bonjour à tous

j'ai récement appris qu'il fallait éviter les ".select"

donc je revois mes codes et je bute sur des boucles

donc dans ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Dim numdl As String, i As Integer
numdl = Range("a65536").End(xlUp).Row 'recuper le numero de la dernière ligne du tableau
      For i = 2 To numdl ' pour donner la ligne pour demarer la fonction
      Range("u" & i).Select ' pour activer la formule sur la ligne les une après les autres
      If ActiveCell.Value = "" Then ActiveCell.Value = Date ' pour mettre la date
        Next i
est-il possible d'eviter le Range("u" & i).Select, car la condition if...then, je n'arrive pas sur une seule ligne

j'arrive s'il faut mettre tout les lignes avec une date
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim numdl As String, i As Integer
numdl = Range("a65536").End(xlUp).Row 'recuper le numero de la dernière ligne du tableau
      For i = 2 To numdl ' pour donner la ligne pour demarer la fonction
      Range("u" & i).Value = Date  ' pour mettre la date
        Next i
mais la condition if...then je bloque