Discussion :

[Alma31]

Bonjour à tous,

A l'aide d'une macro que l'on activerait via un Bouton d'action, j'aimerais passer toutes les cellules de ma colonnes A sur 10 digits
ex: 49328607 devient 0049328607
101234556 devient 0101234556

Pourriez-vous m'aider s'il vous plait ?

Je vous remercie d'avance pour votre aide,

Cdt,

Pièce jointe 208439

Alma31

[casefayere]

Bonjour,
code sur un bouton placé sur la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CommandButton1_Click()
Dim Dcel As Range, Plage As Range, Cel As Range
Set Dcel = Range("A" & Rows.Count).End(xlUp)
Set Plage = Range("A2", Dcel)
Plage.NumberFormat = "0000000000"
End Sub

[Alma31]

Merci bcp Casefayere pour votre solution! Cela fonctionne.

Cdt,

Alma31