Problème Excel/VBA
Fermé
Lapita_10452
Messages postés
12
Date d'inscription
lundi 2 novembre 2009
Statut
Membre
Dernière intervention
12 janvier 2010
-
12 janv. 2010 à 13:04
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 12 janv. 2010 à 16:09
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 12 janv. 2010 à 16:09
A voir également:
- Problème Excel/VBA
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
Gord21
Messages postés
918
Date d'inscription
samedi 21 novembre 2009
Statut
Membre
Dernière intervention
20 mars 2013
289
12 janv. 2010 à 13:40
12 janv. 2010 à 13:40
Bonjour,
Il n'est pas nécessaire d'utiliser VBA : Données/Convertir et tu choisis _ comme délimiteur
Il n'est pas nécessaire d'utiliser VBA : Données/Convertir et tu choisis _ comme délimiteur
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
293
12 janv. 2010 à 16:09
12 janv. 2010 à 16:09
Mais si tu tiens absolument au VBA
utilise la fonction SPLIT
exemple....
Sub test()
Dim MaChaine As String
Dim n As Integer
MaChaine = "1_ 2_ 3"
MonTableau = Split(MaChaine, " ")
' le résultat en colonne B par exemple
For n = 1 To UBound(MonTableau) + 1
Cells(n, 2) = MonTableau(n - 1)
Next
End Sub
utilise la fonction SPLIT
exemple....
Sub test()
Dim MaChaine As String
Dim n As Integer
MaChaine = "1_ 2_ 3"
MonTableau = Split(MaChaine, " ")
' le résultat en colonne B par exemple
For n = 1 To UBound(MonTableau) + 1
Cells(n, 2) = MonTableau(n - 1)
Next
End Sub