while

[crinquinette]

bonjour,
voila mon soucis :
1) je suis dans la cellule E2 et j'y fait un traitement, une fois le traitement fait
2) je veux aller dans la cellule E3 et y faire le memen traitement et ce jusqu'à ce que je sois arrivé à la fin des données contenues dans la colonne.
j'ai essayé un while mais je bugge pouvez vous m'aider?

voici le code

While contenu <> ''
Range('O2').Select
var = Mid(Cells(2, 10).Value, 4, 2)
MsgBox (var)
Range('o2').Value = var
ActiveCell.Offset
Loop

merci d'avance (je suis pas très pro mais je débute)

 

[Titi_Malembourg]

T'es pas très pro et t'as 15000 pseudos aussi...
Puce51.

 

[crinquinette]

re,
en effet comme je l'ai dit je suis pas très pro, et je n'ai pas 15000 pseudo mais un seul, j'ai seulement du le recreer car j'avais un soucis il ne voulait plus fonctionner et me mettait message incorrect, j'ai donc recréé un pseudo sinon je serais restée crinquinette.
meme si je suis pas pro j'ai déjà aidé d'autres débutants comme moi, je demandais simplement de l'aide pas des remarques
cordialement,
l'aide pour mon soucis est la bienvenue

 

[chris]

Bonjour

Une solution

fin = Range('O65000').end(xlup).row

For i=2 to fin
var = Mid(Cells(i, 10).Value, 4, 2)
MsgBox (var)
Range('O' & i).Value = var
Next i