changer de cellule

[puce59]

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]

voici le code

While IsEmpty(contenu) = True
Range('O2').Select
var = Mid(Cells(2, 10).Value, 4, 2)
MsgBox (var)
Range('O2').Value = var
ActiveCell.Offset(0,1)
Loop

Sinon, ca bug ou ?

 

[Creepy]

Bonjour le Forum, Puce59,

Voici le code qui boucle sur toutes les cellules non vide d'une colonne.

J'ai pas bien compris ce que tu voualis faire avec quelle colonne, je te laisse donc l'adapter à tes besoins.

Private Sub CommandButton1_Click()
Dim Boucle As Integer

For Boucle = 2 To Feuil1.Range('E65535').End(xlUp).Row
' Recherche la dernière cellule non vide en E en partant du bas
' donc la boucle commencera en 2 et finira en XXX
    Var = Mid(Cells(2, 10).Value, 4, 2)
    MsgBox (Var)
    Range('o' & Boucle).Value = Var
    ' Range o2, o3, etc...
Next Boucle

End Sub

@+

Creepy

 

[puce59]

re bonjour,
entre temps j'ai modifié un peu et j'ai fait :
Sub test()
Dim var
Dim Counter
Counter = Range('O2').Select
While Counter <> ''
var = Mid(Cells(2, 10).Value, 4, 2)
MsgBox (var)
Range('CC1').Value = var
Counter = Counter + 1
Wend

End Sub
le problème c'est qu'il reste toujour sur O2 alors qu'il devrait aller sur O3 et que je sais pas comment lui dire de mettre la valeur sur CC2 et ensuite refaire le traitement et mettre le résultat en CC3 jusqu'à que je sois à la fin de la colonne.

merci,

 

[puce59]

re bonjour,
le problème c'est qu'il prend toujours la donnée en O2:
Dim Boucle As Integer

For Boucle = 2 To Feuil1.Range('O65535').End(xlUp).Row
' Recherche la dernière cellule non vide en E en partant du bas
' donc la boucle commencera en 2 et finira en XXX
var = Mid(Cells(2, 10).Value, 4, 2)
MsgBox (var)
Range('o' & Boucle).Value = var
' Range o2, o3, etc...
Next Boucle
je voudrais qu'une fois rempli O2 il aille en O3 et fasse le traitement
merci

 

[puce59]

re,
déjà ça bugge sur le activecell.offset et je reste sur la meme cellule, ce que je cherche à faire c'est :
Dim Boucle As Integer

For Boucle = 2 To Feuil1.Range('O65535').End(xlUp).Row
' Recherche la dernière cellule non vide en E en partant du bas
' donc la boucle commencera en 2 et finira en XXX
var = Mid(Cells(2, 10).Value, 4, 2)
MsgBox (var)
Range('o' & Boucle).Value = var
' Range o2, o3, etc...
Next Boucle
mais il reste sur la cellule O2 je voudrais qu'il fasse le traitement sur la cellule O3 puis O4 et enfin O.. n.
mais j'y arrives pas merci de votre aide à tous

 

[porcinet82]

salut a tous,

bon je vais essayer d'apporteer ma modeste contribution, qui j'espere resoudra ton probleme ou au moins une partie

For Boucle = 2 To Feuil1.Range('O65535').End(xlUp).Row
var = Mid(Cells(2, 10).Value, 4, 2)
MsgBox (var)
Range('o' & Boucle).Value = var
Cells(boucle+1, 15).select
Next Boucle

il reste a testé mais je pense que ce qu'il te manquait, c'est la ligne qui te fais changer de cellule apres le traitement. parce que avec la ligne Feuil1.Range('O65535').End(xlUp).Row , ta boucle commence a 2 et fini a ta derniere cellule non vide

@+