Nbcar - gauche - droite ... en VBA

bonjour

j'ai un tableau contenant un colonne de numero de dossier de type WO2013043796

ces numero de dossier doivent toujours avoir 12 caracteres

seulement parfois il n'y en a que 11 car il manque un zéro du genre WO2013x43796 (le x indique a quel endroit il manque le zero)

quand ce zero est manquant, c'est toujours au meme endroit

jusqu'ici a chaque tableau, un par semaine, je crée vite fait une formule du genre

=SI(NBCAR(B2)=11;GAUCHE(B2;6)&"0"&DROITE(B2;5);B2)

y'a t'il un moyen de la transposer en VBA de façon a n'avoir qu'a appuyer sur un bouton ?

Merci

Salut,

Voici un exemple pour la colonne B

Sub Contrôle()
Range("B1").Activate
Do Until ActiveCell = ""
    If Len(ActiveCell) = 11 Then
        ActiveCell = Left(ActiveCell, 6) & 0 & Right(ActiveCell, 5)
    End If
    ActiveCell.Offset(1, 0).Activate
Loop
End Sub

Cordialement.

un grand merci ...

j’essaierais ça demain

bonne fin de journée

Bonjour Yvouille,

c'est exactement ce que je voulais, je te remercie.

bonne journée