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

info009 · 10 Juillet 2014

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 :

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 · 10 Juillet 2014

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 · 10 Juillet 2014

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 · 10 Juillet 2014

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

ça marche bien.

Merci pour ton aide

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

info009

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

john

XLDnaute Impliqué

info009

XLDnaute Nouveau

Discussions similaires