vocabulaire

[larry]

(re)bonjour

La macro ci-dessous s'arrête juste avant le 2ème If ... je n'arrive à voir mon erreur.
Ce qu'il faut savoir : le résultat de la cellule A18 varie en fonction de 'compteur' (via une formule index/equiv) qui lui même évolue en fonction de 'rang'...

En espérant être clair

Merci par avance.



_______________________________________

Sub Suivi()

rang = 1
If rang < 60 Then
ActiveWorkbook.Names.Add Name:="compteur", RefersToR1C1:="=" & rang

If Range("a18").Value <> 0 Then
Range("A12:A18").Select
Selection.Copy
Range("A12").End(xlToRight).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
rang = rang + 1
End If

rang = 2

End Sub

 

[dg]

Bonjour


if n'est pas une boucle

aucune instruction ne te renvoie en début de procédure


il faut utiliser un while ou équivalent

cordialement

 

[larry]

oui je vais partir sur un while ou un For/Next.

je dois placer une nouvelle condition liée à la date du jour

comment puis-je écrire?

si la date de référence (qui est dans une cellule) est > à la date d'aujourd'hui alors je ne fais rien


merci pour votre aide.

 

[larry]

c'est bon! j'y suis arrivé! ouf ouf!

merci pour les conseils.

bonne fin de journée.