boucle me donne une erreur

[Dennnisss]

j'ai une boucle qui fonctionne bien sauf si je ne suis pas a l'interieur de sa feuille alors j'ai un bug sur le .Range("C3").select
alors j'ai besoin de vous

svp merci denis🙄

Private Sub CommandButton2_Click()

With Sheets("Serie TV")
.Range("C3").Select
For i = 1 To 1000

If ActiveCell = "" Then Exit Sub
ActiveCell = i
ActiveCell.Offset(1, 0).Activate
Next i
End With


End Sub

 

[Excel-lent]

Re : boucle me donne une erreur

Bonsoir Dennnisss,

Essaye cette macro et tiens nous au courant :

Private Sub CommandButton2_Click()

With Sheets("Serie TV")
    For i = 1 To 1000
       If .Range("C" & i + 2) = "" Then Exit Sub
       .Range("C" & i + 2) = i
    Next i
End With

End Sub

Bon WE

 

[Dennnisss]

Re : boucle me donne une erreur

salut excel lent

je viens d'essayer ton code est tous est super il fonctionne tres bien
alors merci a toi et passe une belle soiree et merci encore une fois

denis

 

[Excel-lent]

Re : boucle me donne une erreur

Hello Dennnisss,

De rien. Content de t'avoir rendu service.

PS. : l'idéal, si tu veux, serait de faire une fusion de la macro que je t'ai proposé ci-dessus et celle que je t'ai proposé sur ton autre "discussion". Bref, prendre le meilleur dans chacune pour en faire une macro tip-top 😉

 

[Dennnisss]

Re : boucle me donne une erreur

salut excel lent

Oui j'ai travailler les deux question a partir du code que tu m'a emit et c'est extra le code va tres bien
passe une tres belle journee et merci encore

denis