Bonjour à tous!
Une petite macro me permettant me permettant de récupérer certaines colonnes de la feuille Audit si tant es que la clé en colonne 1 est identique à celle de la feuille en cours (clé positionné en colonne 7) ne fonctionne pas!!!
Ou plutôt aléatoirement ...
Sur 2000 lignes de résultat, il me renvoit 400 fois : Aucun résultat puis renvoi une ligne correcte et enfin Aucun résultat et s'arrête...
Help !
Public MaFeuille As Worksheet
Sub MAJAudit()
Ligne = 2
While Worksheets("Audit").Cells(Ligne, 1) <> Empty
LigneEtat = 2
While (Workbooks("Etat.xls").Worksheets("Audit").Cells(LigneEtat, 1) <> Cells(Ligne, 7)) And Workbooks("Etat.xls").Worksheets("Audit").Cells(LigneEtat, 1) <> Empty
LigneEtat = LigneEtat + 1
Wend
If Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 1) = Cells(LigneEtat, 7) Then
Cells(LigneEtat, 11) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 2)
Cells(LigneEtat, 12) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 3)
Cells(LigneEtat, 13) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 4)
Cells(LigneEtat, 14) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 5)
Cells(LigneEtat, 15) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 6)
Cells(LigneEtat, 16) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 7)
Else: Cells(Ligne, 17) = "Aucun résultat"
End If
Ligne = Ligne + 1
Wend
End Sub
Merci à tout le forum
Une petite macro me permettant me permettant de récupérer certaines colonnes de la feuille Audit si tant es que la clé en colonne 1 est identique à celle de la feuille en cours (clé positionné en colonne 7) ne fonctionne pas!!!
Ou plutôt aléatoirement ...
Sur 2000 lignes de résultat, il me renvoit 400 fois : Aucun résultat puis renvoi une ligne correcte et enfin Aucun résultat et s'arrête...
Help !
Public MaFeuille As Worksheet
Sub MAJAudit()
Ligne = 2
While Worksheets("Audit").Cells(Ligne, 1) <> Empty
LigneEtat = 2
While (Workbooks("Etat.xls").Worksheets("Audit").Cells(LigneEtat, 1) <> Cells(Ligne, 7)) And Workbooks("Etat.xls").Worksheets("Audit").Cells(LigneEtat, 1) <> Empty
LigneEtat = LigneEtat + 1
Wend
If Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 1) = Cells(LigneEtat, 7) Then
Cells(LigneEtat, 11) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 2)
Cells(LigneEtat, 12) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 3)
Cells(LigneEtat, 13) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 4)
Cells(LigneEtat, 14) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 5)
Cells(LigneEtat, 15) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 6)
Cells(LigneEtat, 16) = Workbooks("Etat.xls").Worksheets("Audit").Cells(Ligne, 7)
Else: Cells(Ligne, 17) = "Aucun résultat"
End If
Ligne = Ligne + 1
Wend
End Sub
Merci à tout le forum