Split("-")
Fermé
abderrahim1234
Messages postés
6
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
11 décembre 2019
-
Modifié le 5 déc. 2019 à 16:44
abderrahim1234 Messages postés 6 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 11 décembre 2019 - 11 déc. 2019 à 15:27
abderrahim1234 Messages postés 6 Date d'inscription jeudi 5 décembre 2019 Statut Membre Dernière intervention 11 décembre 2019 - 11 déc. 2019 à 15:27
A voir également:
- Vb6 split
- Split cam - Télécharger - Messagerie
- La fonction split de vb6 - Forum VB / VBA
- Vb6 download ✓ - Forum VB / VBA
- Pdf split and merge - Télécharger - PDF
- Runtime vb6 - Télécharger - Divers Utilitaires
5 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
6 déc. 2019 à 13:33
6 déc. 2019 à 13:33
Bonjour,
Essaies :
Essaies :
Option Explicit
Sub Test()
Dim r As Range
Dim i As Long
Dim v As Variant
Dim t As Variant
Dim n As Integer
'Plage de cellules à traiter
Set r = Worksheets("Feuil1").Range("A1").CurrentRegion 'Adapter le nom de la feuille
'Analyser chaque ligne en partant de la fin
For i = r.Rows.Count To 2 Step -1
'Valeur à tester
v = r.Cells(i, 4).Value
'tableau des références
t = Split(v, "-")
'nombre de lignes à ajouter
n = UBound(t)
'copier/insérer les lignes nécessaires
Do While n > 0
r.Rows(i).Copy
r.Rows(i).Insert Shift:=xlDown
n = n - 1
Loop
Application.CutCopyMode = False
'Mettre en place les références
If UBound(t) > 0 Then
r.Cells(i, 4).Resize(UBound(t) + 1).Value = Application.Transpose(t)
End If
Next i
End Sub
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
5 déc. 2019 à 17:23
5 déc. 2019 à 17:23
Bonjour,
Qu'as tu commencé à faire ?
- Sais tu faire des boucles en VBA ?
- Sais tu lire et écrire dans des cellules en VBA ?
La fonction split retourne un array ...
Il suffit donc de boucler dessus pour générer autant de lignes qu'il y a de valeurs dans ton array.
Qu'as tu commencé à faire ?
- Sais tu faire des boucles en VBA ?
- Sais tu lire et écrire dans des cellules en VBA ?
La fonction split retourne un array ...
Il suffit donc de boucler dessus pour générer autant de lignes qu'il y a de valeurs dans ton array.
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
6 déc. 2019 à 08:33
6 déc. 2019 à 08:33
Bonjour,
Ici un excellent cours VBA gratuit :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
Les boucles pages 46 à 49
et Split page 88
Ici un excellent cours VBA gratuit :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
Les boucles pages 46 à 49
et Split page 88
abderrahim1234
Messages postés
6
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
11 décembre 2019
Modifié le 6 déc. 2019 à 09:34
Modifié le 6 déc. 2019 à 09:34
bonjour,
merci pour votre aide
j'essayer de faire ce code ma ça marche pas
merci pour votre aide
j'essayer de faire ce code ma ça marche pas
Sub Macro4() Dim txt As String Dim b As Long Dim var() As String For i = 1 To 100 txt = Cells(i, 4).Value If Len(txt) > 7 Then var = Split(txt, "-", vbTextCompare) End If Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next i End Sub
abderrahim1234
Messages postés
6
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
11 décembre 2019
6 déc. 2019 à 10:28
6 déc. 2019 à 10:28
bonjour petit aide svp
ça fonctionne pas
Dim Tableau() As String
Dim i As Integer
Dim txt As String
For j = 2 To 100
txt = Cells(j, 4).Value
If Len(txt) > 7 Then
Tableau = Split(txt, "-")
For i = 1 To UBound(Tableau)
Debug.Print Tableau(i)
Cells(i + 1, 4).Value = Tableau(i)
Next i
End If
Next j
ce que je veux

ça fonctionne pas
Dim Tableau() As String
Dim i As Integer
Dim txt As String
For j = 2 To 100
txt = Cells(j, 4).Value
If Len(txt) > 7 Then
Tableau = Split(txt, "-")
For i = 1 To UBound(Tableau)
Debug.Print Tableau(i)
Cells(i + 1, 4).Value = Tableau(i)
Next i
End If
Next j
ce que je veux
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
6 déc. 2019 à 10:49
6 déc. 2019 à 10:49
merci d'utiliser les balises de code.
"ça fonctionne pas": qu'observes-tu?
"ça fonctionne pas": qu'observes-tu?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
abderrahim1234
Messages postés
6
Date d'inscription
jeudi 5 décembre 2019
Statut
Membre
Dernière intervention
11 décembre 2019
6 déc. 2019 à 10:55
6 déc. 2019 à 10:55
merci yg_be
je sais pas comment ça fonctionne les balises de code
mais je pense on utilise split avec les boucles
je sais pas comment ça fonctionne les balises de code
mais je pense on utilise split avec les boucles
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
6 déc. 2019 à 12:23
6 déc. 2019 à 12:23
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
tu écris "ça fonctionne pas": que se passe-t'il?
tu écris "ça fonctionne pas": que se passe-t'il?
11 déc. 2019 à 15:27