Problème avec boucle For

[Hulk]

Bonjour tout le monde,

Ce code ne devrait-il pas me coller les données l'une sous l'autre dans la colonne A ?

Private Sub DTPickerAu_CloseUp()

    Dim i As Integer
    
    For i = 2 To Range("A100").End(xlUp).Row + 1
        Cells(i, 1).Value = "Du " & DTPickerDu.Value & " au " & DTPickerAu
    Next i

End Sub

Or là il me copie les valeurs sur toutes les lignes... ?

Merci à tous pour votre aide !

 

[tototiti2008]

Re : Problème avec boucle For

Bonjour Hulk,

Oui, visiblement tu boucles sur toutes les lignes

Peut-être

Private Sub DTPickerAu_CloseUp()

    Dim i As Integer
    
    i = Range("A65536").End(xlUp).Row + 1
        Cells(i, 1).Value = "Du " & DTPickerDu.Value & " au " & DTPickerAu

End Sub

 

[phlaurent55]

Re : Problème avec boucle For

Bonjour Hulk,

modifie comme ceci:

Private Sub DTPickerAu_CloseUp()
Cells(Range("A100").End(xlUp).Row + 1, 1).Value = "Du " & DTPickerDu.Value & " au " & DTPickerAu
End Sub

à+
Philippe

Édit: Bonjur tototiti

 

[Hulk]

Re : Problème avec boucle For

Tototiti, Phillipe,

Comme d'hab, EFFICACITÉ !

Merci et @+.