Dim ????

[DJ FA]

Oui merci, mais le soucis c'est que c'est aléatoire !

[vba-new]

Ok j'avais pas compris.
Et avec ceci ? :

Code: Tout sélectionner

Dim x As Integer
For i = 3 To Range("A65000").End(xlUp).Row
 

Ce code détecte automatiquement la dernière ligne de la colonne A (il faut que ça soit supérieur à 3).

[DJ FA]

Code: Tout sélectionner

Dim x As Integer
For i = 3 To Range("A27").End(xlUp).Row

Et ça , ça ira ?

[vba-new]

Ça peut marcher mais si ton tableau a un nombre de lignes supérieur ou égal à 27 ça ne marchera pas. J'ai pris 65000 pour prendre large. A toi de tester

[Dan]

Bonjour

DJ FA,

Code: Tout sélectionner

Dim x As Integer
For i = 3 To Range("A27").End(xlUp).Row

Cela devrait être Dim i et pas Dim x mais pas besoin de déclarer en Integer si tu vas jusque 27, déclare en Byte.

Pour ma part je ferai ceci

Code: Tout sélectionner

Dim i As long
For i = 3 To Range("A" & rows.count).End(xlUp).Row

Amicalement

[DJ FA]

je vais essayer, merci.

[Dan]

re

DJ FA, tu en es où là ??

Si ok merci de cloturer le fil

AMicalement

[DJ FA]

Oui ça fonctionne très bien, merci à vous.