Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion info009
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

info009

XLDnaute Nouveau
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.
 
Dernière édition:
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
@+
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
598
Réponses
1
Affichages
768
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…