Boucler ligne VBA

Bonjour à tous,

Petit blocage du samedi. Je souhaite répéter cette ligne VBA sur 5000 lignes minimum :

Worksheets("Analyse").Range("J2").Formula = Replace(Range("J2"), " ", "")

Et j'aimerais éviter de devoir faire une ligne pour J3, J4, J5, etc.

Une solution?

Merci d'avance!

fifou

Bonjour,

Oui, sur 5000 lignes, ça commence à faire long.

Dim i as long

for i = 2 to 5000 'i va de 2 à 5000
    Worksheets("Analyse").Range("J"&i).Formula = "=Replace(J" & i & ", " ", "")" 'Ji = replace(...)
next i

Attention toutefois ! la formule en J substitue les espaces en J >>> ÇA NE MARCHERA PAS !

Mais vous avez le principe.

Cdlt,

Top merci pour ton retour rapide!

Le code est passé comme ceci :

Worksheets("Analyse").Range("J" & i).Formula = Replace(Range("J" & i), " ", "")

je vais m'amuser sur mes autres lignes de code avec d'autres formules!! :)

Encore merci !!