Bonjour à tous et toutes!
J'ai un petit probléme dans mon code VBA. En effet je cherche dans une double boucle à vérifier l'égalité entre deux cellules qui n'appartiennent pas aux mêmes feuilles.
Plus que des grands discours voici mon code...
Le probléme survient à la ligne :
et c'est une erreur d'execution '1004'
"Erreur définie par l'application ou par l'objet" (toujours aussi explicite! )
En gros je compare les valeurs de la colonne A du reste à livrer et la colonne D des résultats et si celles-ci son identiques j'agit, sinon je continue ma boucle...
J'éspére avoir été claire, n'hésitait pas à me revenir pour de plus amples informations...
Merci à tous!!
J'ai un petit probléme dans mon code VBA. En effet je cherche dans une double boucle à vérifier l'égalité entre deux cellules qui n'appartiennent pas aux mêmes feuilles.
Plus que des grands discours voici mon code...
Code:
Sub Maj_reste_a_livrer()
Dim nb_ligne_res As Integer 'nombre de ligne de resultats
Dim nb_ligne_liv As Integer 'nombre de ligne de reste à livrer
Dim j As Integer, i As Integer
Sheets("Resultats").Activate
nb_ligne_res = WorksheetFunction.CountA(Range("A:A"))
Sheets("Reste à livrer").Activate
nb_ligne_liv = WorksheetFunction.CountA(Range("A:A"))
For i = 2 To nb_ligne_res 'boucle sur les résultats de contrôle
For j = 2 To nb_ligne_liv ' boucle sur les reste à livrer (à modifier)
If Sheets("Resultats").Cells("D" & i) = Sheets("Reste à livrer").Cells("A" & j) And Sheets("Resultats").Cells("J" & i).Value = "KO" Then 'erreur à ce ni
Sheets("Reste à livrer").Cells("F" & j) = Sheets("Resultats").Cells("A" & i)
Sheets("Reste à livrer").Cells("G" & j) = Sheets("Resultats").Cells("K" & i)
Sheets("Reste à livrer").Cells("H" & j) = Sheets("Resultats").Cells("L" & i)
Sheets("Reste à livrer").Cells("I" & j) = Sheets("Resultats").Cells("M" & i)
End If
If Sheets("Resultats").Cells("D" & i).Value = Sheets("Reste à livrer").Cells("A" & j).Value And Sheets("Resultats").Cells("J" & i).Value = "OK" Or "RET" Then
Rows("j:j").Select
Selection.Delete Shift:=xlUp
End If
Next j
Next i
End Sub
Le probléme survient à la ligne :
Code:
If Sheets("Resultats").Cells("D" & i) = Sheets("Reste à livrer").Cells("A" & j) And Sheets("Resultats").Cells("J" & i).Value = "KO"
et c'est une erreur d'execution '1004'
"Erreur définie par l'application ou par l'objet" (toujours aussi explicite! )
En gros je compare les valeurs de la colonne A du reste à livrer et la colonne D des résultats et si celles-ci son identiques j'agit, sinon je continue ma boucle...
J'éspére avoir été claire, n'hésitait pas à me revenir pour de plus amples informations...
Merci à tous!!