Re : PB de macro de mise à jour d'un tableau par autre tableau
Alors voilà ce que j'ai essayé
il y a visiblement un problème car soit il marque "dépassement de capacité" pour la variable i au niveau de i = i + 1, soit si je met i = i +1 à une autre place , le programme plante.
une idée?
Dim i As Integer
Dim j As Integer
i = 3
j = 42
While Sheets("Recherche").Range("B" & j) <> ""
If Sheets("Recherche").Range("B" & j).Value = Sheets("Base de données").Range("A" & i).Value Then
If Sheets("Recherche").Range("C" & j).Value = Sheets("Base de données").Range("B" & i).Value Then
If Sheets("Recherche").Range("I" & j).Value = Sheets("Base de données").Range("H" & i).Value Then
If Sheets("Recherche").Range("J" & j).Value = Sheets("Base de données").Range("I" & i).Value Then
Sheets("Base de données").Range("C" & i).Value = Sheets("Recherche").Range("D" & j).Value
Sheets("Base de données").Range("D" & i).Value = Sheets("Recherche").Range("E" & j).Value
j = j + 1
ElseIf Sheets("Base de données").Range("A" & i).Value = "" Then
Sheets("Base de données").Range("A" & i).Value = Sheets("Recherche").Range("B" & j).Value
Sheets("Base de données").Range("B" & i).Value = Sheets("Recherche").Range("C" & j).Value
Sheets("Base de données").Range("C" & i).Value = Sheets("Recherche").Range("D" & j).Value
Sheets("Base de données").Range("D" & i).Value = Sheets("Recherche").Range("E" & j).Value
Sheets("Base de données").Range("E" & i).Value = Sheets("Recherche").Range("F" & j).Value
Sheets("Base de données").Range("F" & i).Value = Sheets("Recherche").Range("G" & j).Value
Sheets("Base de données").Range("G" & i).Value = Sheets("Recherche").Range("H" & j).Value
Sheets("Base de données").Range("H" & i).Value = Sheets("Recherche").Range("I" & j).Value
Sheets("Base de données").Range("I" & i).Value = Sheets("Recherche").Range("J" & j).Value
j = j + 1
End If
End If
End If
End If
i = i + 1
Wend
End Sub