Pour passer à la 2ème colonne

Bonjour,

J'ai une macro toute simple : je sélectionne une colonne pour avoir le format monétaire.... et je voudrais qu'à la fin la macro sélectionne la 2ème colonne suivante.

Je n'arrive pas à retrouver ce qu'il faut mettre à la place des XXXXXX

Set plage = Selection

Selection.NumberFormat = "#,##0.00 _€"

XXXXXXXXXXXX.Select

End Sub

D'avance merci

Bonjour,

Sub Test()
    Dim plage As Range, k%
    Set plage = Selection
    For k = 0 To 20 Step 2
        plage.Offset(, k).NumberFormat = "#,##0.00 _€"
    Next k
End Sub

Démarrer sur une sélection pour donner un point de départ choisi, ok !

Au-delà les sélections sont de trop !

Ce code va te formater 11 colonnes, tu dimensionnes à ta convenance en remplaçant 20 par le nombre de colonnes que tu veux formater en plus de ta colonne de départ, multiplié par 2.

Cordialement.

Re

Ton code est encore mieux par rapport à ce que j'espérais ! Merci et

Il m'intéresse d'autant plus que je fais souvent des coller/copier qui aboutissent à des nombres en format "texte" et je vais essayer d'intégrer la conversion dans cette macro, ce qui devrait me permettre de formater n.colonnes en une seule fois.

Si je rencontre des difficultés, je reviendrai ici

Excellente journée

Bonne continuation.