Problème macro proposé

[pjiu]

Bonjour à tous !
Il y a quelques temps j'avais posté un message pour un problème de date répétée (cf 'Comment ne pas répéter des données'). On m'a donc proposé une macro qui marchait très bien. Mais je me suis aperçue qu'il y avait un bug. Lorsque la dernière date est répétée deux fois, elle ne réapparait pas.
Bon je sais que c'est très flou, je vous joins donc un ptit doc... merci d'avance !

 

[Guest]

Re : Problème macro proposé

Bonjour:

Private Sub CommandButton1_Click()
For i = 10 To Range("E" & Application.Rows.Count).End(xlUp).[COLOR=red][B]Offset(1).[/B][/COLOR]Row
    If Cells(i, 5) = "" Then Cells(i, 5) = Cells(i - 1, 5)
Next i
End Sub

A+

 

[pjiu]

Re : Problème macro proposé

Merci Hasco !
Ca marche toujours si la même date est répétée trois fois ?

 

[Guest]

Re : Problème macro proposé

re,

Ca marche toujours si la même date est répétée trois fois ?

franchement, c'est le genre de question auquelle tu peux répondre tout seul en essayant.

Mais la réponse est non.

Essaie ceci:

Private Sub CommandButton1_Click()
For i = 10 To Range("E" & Application.Rows.Count).End(xlUp).Offset(1).Row
    If Cells(i, 5) = "" Then Cells(i, 5) = Cells(i, 5).End(xlUp).Value
Next i
End Sub

Qui reprend la dernière date renseignée en remontant la colonne

A+

 

[pjiu]

Re : Problème macro proposé

Oui c'est vraie que j'aurais pu trouvé la réponse toute seule mais dans ma précipitation, c'est la première question qui m'est venue. En tous cas merci, ça marche très bien. Je ne comprends pas la différence entre ton dernier code et celui qui était proposé dans ma feuille, ça donne le même résultat mais qu'est ce qui change concrètement ?

 

[ROGER2327]

Re : Problème macro proposé

Bonjour pjiu, Hasco

Personnellement, je verrais bien la chose ainsi :

[COLOR="DarkSlateGray"][B]Private Sub CommandButton1_Click()
Dim i&
   For i = 10 To Range("E" & Application.Rows.Count).Offset(0, 1).End(xlUp).Row
      If Cells(i, 5) = "" Then Cells(i, 5) = Cells(i - 1, 5)
   Next i
End Sub[/B][/COLOR]

ROGER2327
#3963

Vendredi 13 Tatane 137 (Saint Dada, prophète, SQ)
8 Thermidor An CCXVIII
2010-W30-1T00:26:33Z