VBA problème recherche V

[Arpette]

Bonsoir à toutes et tous,

ma mcro fait une rechercheV et il peut y avoir plusieurs résultats. Mon problème est qu'ils s'écrasent. Je souhaiterais qu'ils se décalent sur la droite. Pas facile à expliquer, je vous joint le fichier pour mieux comprendre.
Le résultat est en feuille " Step 1".
Merci de votre aide,
@+

 

[Fred0o]

Re : VBA problème recherche V

Bonsoir Arpette,

Si j'ai bien compris ce que tu veux, cette modification de macro devrait répondre à ta demande :

Sub Suivi_des_PO()
Dim h
Dim c As Range, d As Range
Dim Valeur_Recherche As String
Dim Départ As String
Dim Zone, Zone1, Zone2 As Range, i As Byte

Application.ScreenUpdating = False
 
 
'Affectation de la variable c à la colonne M de la feuille "Step 1"
Set c = Worksheets("Step 1").Range("M" & Worksheets("Step 1").Range("M65536").End(xlUp).Row)
Do While c.Row > 1

  With Worksheets("Open Orders").Range("A2:A" & Worksheets("Open Orders").Range("A65536").End(xlUp).Row)
    Set d = .Find(c)
        If Not d Is Nothing Then
            Départ = d.Address
            
            i = 2
            
            Do
                'n° de ligne
                Do While Not IsEmpty(c(1, i))
                    i = i + 1
                Loop
                c(1, i) = d(1, 5)
                Set d = .FindNext(d)
            Loop While Not d Is Nothing And d.Address <> Départ
             
        End If
  End With
   
Set c = c(0, 1)

Loop

Application.ScreenUpdating = True
End Sub

A+

 

[Arpette]

Re : VBA problème recherche V

Bonsoir Fredo, super c'est nickel.
Merci,
@+