Boucle et Find

[Lu K]

Bonjour à tous,

Me re-voilà pour une nouvelle aventure !

J'ai créer un code permettant de rechercher avec "Find" des informations d'une autre feuille. Mais parfois les références n'existe pas et je voudrait que le boucle passe directement au suivant sans faire le reste.

Voici mon code :

Private Sub Miseajour_Click()
Dim Fiche As String
Dim Fiche2 As String
Dim ligne As String
Dim xboucle As Integer


For xboucle = 1 To 20000
On Error Resume Next
If Cells(xboucle, 2) > 0 And Cells(xboucle, 14) = "" Then
Fiche = Cells(xboucle, 24).Value

    'If cells(xboucle, 8) = "" Then
            With Sheets("Feuil1").Range("c2:c20000")
            Set c = .Find(Fiche, LookIn:=xlValues)
            If Not c Is Nothing Then Next xboucle          ' c'est ici que ça déconne !!!
            With Sheets("Feuil2")
                Cells(xboucle, 3) = c.Offset(0, 5) 
                Cells(xboucle, 4) = c.Offset(0, 1)
                Cells(xboucle, 5) = c.Offset(0, 2) 
                Cells(xboucle, 6) = c.Offset(0, 3) 
                Cells(xboucle, 18) = c.Offset(0, -2)
                Cells(xboucle, 19) = c.Offset(0, 11) 
                Cells(xboucle, 20) = c.Offset(0, 13) 
                Cells(xboucle, 21) = c.Offset(0, 14) 
                
                c.Offset(0, 8) = c.Offset(0, 8) + Cells(xboucle, 7)
                c.Offset(0, 9) = c.Offset(0, 4) - c.Offset(0, 8)
                Cells(xboucle, 23) = Cells(xboucle, 7) 
                Cells(xboucle, 8) = c.Offset(0, 9) '- cells(xboucle, -7)
                Cells(xboucle, 9) = Cells(xboucle, 6) * Cells(xboucle, 7)
                Cells(xboucle, 11) = Cells(xboucle, 4) * Cells(xboucle, 5) * Cells(xboucle, 6) * Cells(xboucle, 7) 'Cubage
                Cells(xboucle, 25) = Cells(Cells(xboucle - 1), 25) + 1
                Cells(xboucle, 14) = Cells(xboucle, 24)
                End With
            End With

End If
Next xboucle

Exit Sub

Merci à tous

 

[Pierrot93]

Re : Boucle et Find

Bonjour,

un code comme ceci devrait suffire...

Set c = .Find(Fiche, LookIn:=xlValues)
If Not c Is Nothing Then
    'tes instructions...
End If
Next xboucle

bon après midi
@+

 

[Lu K]

Re : Boucle et Find

Bonjour Pierrot93,

Je crois que j'ai fit une bourde ! A vouloir trop faire, j'en ai oublié le sens du code !

Merci pour ton aide précieuse.