amelioration de code pour eviter select

Version imprimable

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:

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:

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

12/07/2009, 14h16
ucfoutu

Bonjour,

ton

Code:

ActiveCell.Value

n'est jamais rien d'autre, lorsque sélectionnée, que ta

Code:

Range("u" & i).Value
12/07/2009, 14h54
Gorfael
Salut bosk1000 et le forum
Voilà une idée qu'elle est bonne :ccool:
Code:

1 2 3 4 Dim numdl As String, i As Long For i = 2 To Range("a65536").End(xlUp).Row If Range("u" & i) = "" Then Range("u" & i) = Date Next i
Le principe c'est de remplacer
Cellule.select
Selection.instruction ou Activecell.instruction
Par Cellule.instruction.
Ça marche aussi, en général, pour les objets. Certaines instructions ne peuvent s'exécuter que sur la page active (par exemple).
Pour nettoyer ton code, s'il fonctionne avec des Select, tu mets les lignes .select et selection en commentaires, et tu les réécris sans. Ça te permet un retour en arrière, ce qui est utile au début. Après, avec l'habitude, tu pourras inscrire directement un code épuré.

Juste des remarques en passant sur ton code :
- Déclarer une variable ligne en integer ne me sembme pas adéquat : le jour où tu te retrouves avec un code qui plante peut demander beaucoup de temps avant de percuter que l'erreur vient d'une ligne supérieure à la capacité maximale de la variable. ce que tu fais d'habitude et qui fonctionne ne demande pas à être vérifié. Surtout si c'est une erreur de frappe (comme un espace en ligne 65536) et que ton nombre ne devrait pas dépasser les 100.
- Les indentations sont là pour t'aider à visualiser où tu en es dans ton code : savoir si tu est dans une boucle, un test, etc... Je sais, ça semble débile de s'occuper de la mise en forme du code, mais quand tu as des macro de plusieurs centaines de lignes, tu sais où tu te trouves en faisant ça. Effectivement, si tu ne fais jamais d'erreur, ce n'est pas très utile, mais "Errare humanum est" et moi, je suis très humain :P
A+
12/07/2009, 17h40
La Zélie

Citation:

Le principe c'est de remplacer
Cellule.select
Selection.instruction ou Activecell.instruction
Par Cellule.instruction.
Ça marche aussi, en général, pour les objets. Certaines instructions ne peuvent s'exécuter que sur la page active (par exemple).
Pour nettoyer ton code, s'il fonctionne avec des Select, tu mets les lignes .select et selection en commentaires, et tu les réécris sans. Ça te permet un retour en arrière, ce qui est utile au début. Après, avec l'habitude, tu pourras inscrire directement un code épuré.

Juste des remarques en passant sur ton code :
- Déclarer une variable ligne en integer ne me sembme pas adéquat : le jour où tu te retrouves avec un code qui plante peut demander beaucoup de temps avant de percuter que l'erreur vient d'une ligne supérieure à la capacité maximale de la variable. ce que tu fais d'habitude et qui fonctionne ne demande pas à être vérifié. Surtout si c'est une erreur de frappe (comme un espace en ligne 65536) et que ton nombre ne devrait pas dépasser les 100.
- Les indentations sont là pour t'aider à visualiser où tu en es dans ton code : savoir si tu est dans une boucle, un test, etc... Je sais, ça semble débile de s'occuper de la mise en forme du code, mais quand tu as des macro de plusieurs centaines de lignes, tu sais où tu te trouves en faisant ça. Effectivement, si tu ne fais jamais d'erreur, ce n'est pas très utile, mais "Errare humanum est" et moi, je suis très humain :P
A+

Merci Gorfael

Ce n'est que des bonnes idées astucieuses surtout ce que j'ai souligné en gras.

Je sais c'est pas mon post mais j'avais envie de le dire. ;)
12/07/2009, 20h26
bosk1000

merci
en fait mon erreur était de mal placé le if

je vais pouvoir nettoyé un paquet de code que je faisait mal (j'ai appris comme ça avec les select, mais on évolue et ça c'est grâce au forum).

je retient aussi pour le fait de nommer les lignes en en "long".

un grand merci