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
est-il possible d'eviter le Range("u" & i).Select, car la condition if...then, je n'arrive pas sur une seule ligne
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
j'arrive s'il faut mettre tout les lignes avec une date
mais la condition if...then je bloque
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
Partager