Macro pour plusieurs cellules

[Lamoriciere]

Bonjour,

Cette macro qui me sert à ajouter un espace vide devant le contenu de la cellule Q3

Sub menage()
Range('Q3') = ' ' & Left(Range('Q3'), 20)
End Sub

J'aimerais l'appliquer jusqu'à la cellule Q75, c-à-d de Q3 à Q75 en un seul clic.
Quelqu'un connaît-il le moyen de le faire?

Merci beaucoup
Lamoricière

 

[Robert]

Bonsoir Lamoricière, bonsoir le forum,

Il y a plusieurs possibilités. Essaie :

Sub menage()
Dim x as Byte

For x=3 To 75
Range('Q' & x) = ' ' & Left(Range('Q' & x), 20)
Next x
End Sub

 

[Lamoriciere]

Bonjour Robert,

Je ne sais comment expliquer la bourde que je viens de commettre, mea culpa, je suis en tort.
Les deux macros sont les mêmes mais je vais tenter de me justifier.
Ce matin en cherchant après ma question que je n'ai pas retrouvée, je me suis souvenu que hier je n'étais pas loggé donc, en toute bonne fois j'ai cru que ma question n'était pas soumise et je l'ai reformulée autrement.
De plus, les deux fois que j'ai soumis ma question la case à cocher 'Souscrire' n'était pas présente, chose dont je me suis étonné d'ailleurs.
Je vous prie d'accepter mes excuses les plus sincères.
Merci à tous deux.