> Tous les forums > Forum Bureautique
 position celluleSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
faroka
  Posté le 23/11/2010 @ 07:06 
Aller en bas de la page 
Petit astucien

bonjour les amis

comment proceder pour placer une position de cellule trouvée par :

Sub Premierecellulevide()
Range("b7").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend
End Sub

et la placer dans une macro à la suite de Range ci-dessous

Range("b7:H11").Select

Plus simplement selectionner la position trouvée par "Premierecellulevide" , la placer dans une variable pour que mes futures macros utilise cette variable afin de ce repositionner automatiquement sur cette cellule.

D'avance merci

Publicité
qmike549
 Posté le 23/11/2010 à 08:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

Pas tout compris au vue des renseignements donnés

Sub Premierecellulevide()
Range("b7").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate

Call SelectB7H11
Wend
End Sub

Sub SelectV7H11()

Range("b7:H11").Select

End sub

ferrand
 Posté le 23/11/2010 à 19:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut,

Très alambiqué ! On peut sûrement faire mieux et plus simple si tu donnais les éléments pour.

Enfin, si tu veux conserver ta "première cellule vide" dans une variable, d'abord tu déclares une variable au niveau module, type Range (ou Object ou Variant, c'est toi qui voit), ensuite puisque cette cellule est devenue la cellule active en fin de ta boucle, tu insères:

Set TaVariable = ActiveCell

et tu poursuis comme tu l'entends.

PellocHoaz
 Posté le 24/11/2010 à 14:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Si j'ai bien compris la manipulation à faire :

Sub Premierecellulevide()

Dim Ligne As Long

Range("B7").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Select
Wend

Ligne = ActiveCell.Row

Call SelectionPlage(Ligne)

End Sub

Sub SelectionPlage(ByVal Ligne As Long)

Range("B" & Ligne & ":H11").Select

End Sub

PellocHoaz

ferrand
 Posté le 24/11/2010 à 14:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Qui pose la question au juste ?

PellocHoaz, ta version est cohérente (y compris la façon dont tu as modifié ma réponse). Pas mal déjà . Reste à savoir si cela correspond bien à la question de faroka compte tenu de ses imprécisions. ???

Et tant qu'à produire un code susceptible de fonctionner, tu aurais pu alléger le code de ces Select... Ce ne sont pas les méthodes qui manquent : boucle For... Next, boucle For Each... Next, méthode Find(Empty), sans oublier la méthode classique de recherche de fin de plage End(xlUp)...

Salut !

faroka
 Posté le 24/11/2010 à 22:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci les amis

j'ai reuusi mon projet .

Avec les explications des uns et des autres .

Il est vrai que n'étant pas un programmateur chevronné , j'ai du mal à expliqué avec les mots bien spécifiques au langage informatique .

+

cordialement

PellocHoaz
 Posté le 25/11/2010 à 00:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Parfois, changer trop de choses peut devenir très délicat!

De bonnes options, fournit par l'ensemble des contributeurs!

Notre ami(e) y aura trouvé son compte :-)

PellocHoaz

ferrand
 Posté le 25/11/2010 à 10:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

{#}{#}

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Figer la position d'un commentaire de cellule
Autoriser/forcer le débordement à l'affichage d'une cellule
copier ligne si cellule vide
export cellule vers image
Effacer cellule par rapport a la valeur d'une autre
Recopie cellule par macro
Rendre une cellule vide
case à cocher dans cellule Excel 2010
Recopie cellule dans un autre classeur
Word 2007-Texte centré dans une cellule
Plus de sujets relatifs à position cellule
 > Tous les forums > Forum Bureautique