Qu'est ce qui ne va pas ?

[David]

Bonjour chers forumistes

Le titre est explicite

A travers cet extrait de code, je ne comprends pas pourquoi, alors que dans ma feuil1, cellule("b1") activé, la procédure ne s'arrête pas à la colonne 12 comme il est écrit ?
Y a t'il une erreur qui m'aurait échappée ?

Dim i As Integer
i = i + 1

While i < 12
ActiveCell.Offset(rowoffset:=0, columnoffset:=i).Select
Wend
If i = 12 Then
Range("c1").Select
End If

Merci d'aider encore un aveugle dans ce domaine.

 

[salim]

bonsoir David

je ne suis pas pro loin de la mais peut être qu'il faut initialiser i=0
et ensuite mettre i+1

vraiment je n'en suis pas sur je suis comme toi je débute et tattone
tu peux toujours esayer.

A+ Salim

 

[David]

tu as sans doute raison, je te remercie de ta rapidité

 

[LaurentTBT]

Bonsoir,

Ton i=i+1 est en dehors de ta boucle Do while…
A part ça, je ne vois pas trop ce que tu veux faire: dans ta boucle, tu ne fais que sélectionner successivement les 12 cellules à droite de la cellule active, pour finalement sélectionner C1!
Sur mon ordi, ça va tellement vite que je n'ai même pas le temsp de voir les différentes cellules être sélectionnées!
Ou alors il manque une partie de ta macro?

Dis nous en plus…

 

[jmh]

Salut David

essaye avec ce code, normalement ca marche.

Ton probléme est que ta variable i n'était pas à l'intérieur de ta boucle donc sa valeur restait à 1.

Dim i As Integer
i = 1

Do While i < 12
i = i + 1
ActiveCell.Offset(0, 1).Select
Loop
If i = 12 Then
Range("c1").Select
End If

 

[David]

Ca paraît un peu spécial, mais c'est juste pour m'aider à démarrer un remplissage automatique de cellule dans un tableau.
Merci pour ton info