Bonsoir à tous, j'ai besoin d'aide car je bute sur le problème de boucle depuis plusieurs jours, je ne suis pas un pro de VBA et ça se voit ;-)

Voici mon problème :

1) j'ai un fichier excel avec les données suivantes :

_ voiture 1

_ voiture 2

_ voiture 1

_ camion 3

_ voiture 1

2) j'ai fait une macro qui cherche "_ " ( sans les termes derrières) et qui copie la ligne trouvée dans une autre feuille

3) mais ma macro s'arrete sur la premiere valeur mais j'aimerai qu'elle cherche chaque valeur et les copies les unes derrière les autres sur l'autre feuille

exemple: dans la feuille 2 : _ voiture 1

_ voiture 2

_ camion 3

4)voici ma macro:

Sub essai()
Dim Var As String
On Error Resume Next
Var = ("_")
Set mottrouvé = Cells.Find(What:=Var)
If Not mottrouvé Is Nothing Then
mottrouvé.Select
val1 = Selection.Value
Sheets("d").Select
Range("a65000").Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.Value = val1
Sheets("a").Activate

Dim LigVar, ColVar
LigVar = 1
Selection.Offset(LigVar, ColVar).Select
val2 = Selection.Value
Sheets("d").Activate
Range("b65000").Select
Selection.End(xlUp).Offset(1, 0).Select
Selection.Value = val2
End If
End Sub

Pouvez-vous m'aider, m'indiquer une piste, me sortir de mon bourbier.

Merci à tous

bonjour,

Pas trop compris ton machin. Pour ce genre de question un classeur joint est incontournable.

Cette macro copie dans feuil2 les éléments trouvés dans Feuil1 (avec un léger désordre du à la méthode utilisée -Find- )

Sub essai()
Dim FirstAddress$, i&, c
i = Sheets("Feuil2").Range("a65000").End(xlUp)(2).Row
On Error Resume Next
With Sheets("Feuil1").Range("A1:A100")
Set c = .Cells.Find("_", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets("Feuil2").Range("A" & i) = c.Value
Set c = .FindNext(c)
i = i + 1
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub

Mais j'ai peut-être pas tout compris...

A+

Merci pour votre réponse

je veux bien vous joindre un fichier mais je ne sais pas comment faire

bonsoir,,

Upload ton fichier dans cjoint et colle le lien dans ta réponse (après avoir cliqué sur Créer le lien cjoint ce lien est mémorisé dans ton presse papier : YAPUKA le coller dans ton topic)

...Mais tu pourrais déjà commencer à tester la macro YAKA remplacer le nom des feuilles et ça devrait le faire !

A+

voici le fichier, je teste en parallele votre macro.

http://cjoint.com/?jnw51njtmH

bonjour,

La solution :

Sub essai()
Dim i&, k&, s$, o
On Error Resume Next
i = Sheets("d").Range("a65000").End(xlUp)(2).Row
On Error Resume Next
For Each o In Selection
s = o.Value: k = InStr(s, " . ")
If k > 0 Then
Sheets("d").Range("A" & i) = s
s = o.Offset(1).Value: k = InStr(s, Chr(151))
If k > 0 Then
Sheets("d").Range("B" & i) = s
End If
i = i + 1
End If
Next
End Sub

Nota: la macro travaille sur la sélection en cours. Il convient donc de sélectionner d'abord toute la colonne à traiter...

A+

Merci beaucoup, c'est génial ça fonctionne à merveille.

Total respect