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 :
Merci à 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 :
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 SubMerci à tous