VBA- Utiliser un separateur entre caractères d'une cellule

[info009]

Bonjour,

J'essaie de rajouter un séparateur / sur les cellules de ma colonne B.

Chaque cellule se compose de 10 caractères.

j'ai fais un code mais j'ai l'erreur propriété ou méthode non géré par cet objet.

Voici mon code :

Sub ajout_slash()
 
 cellule_nonvide = Application.WorksheetFunction.CountA(Feuil1.Range("$B:$B"))
 
  For i = 2 To cellule_nonvide
 
  Cells(i, 2).Value = Left(Cells(i, 2).Value, 2) & "/" & Mid(Cells(i, 2).valule, 3, 2) & "/" & Right(Cells(i, 2).Value, 5)
 
 Next
 
End Sub

Merci.

 

[Pierrot93]

Re : VBA- Utiliser un separateur entre caractères d'une cellule

Bonjour,

tu as un "valule" au lieu de "value" dans ton code....

petite remarque au passage, peut être utiliser la conversion de données....

bonne journée
@+

 

[john]

Re : VBA- Utiliser un separateur entre caractères d'une cellule

Bonjour,
En écrivant ceci chez moi ça marche...
Sub ajout_slash()
cellule_nonvide = Application.WorksheetFunction.CountA(Feuil1.Range("$B:$B"))
For i = 1 To cellule_nonvide
tmp = Cells(i, 2).Value
Cells(i, 2).Value = Left(tmp, 2) & "/" & Mid(tmp, 3, 1) & "/" & Right(tmp, 5)
Next
End Sub
Bonne journée.
John

 

[info009]

Re : VBA- Utiliser un separateur entre caractères d'une cellule

ça marche bien.

Merci pour ton aide