Bonjour, je suis encore un peut débutant dans le monde du VBA et je bloque sur une macro. Résultat je doit l'exécuter en 2 fois et la macro est extrêmement lente de part la quantité de ligne à vérifier.
Merci de votre aide
Voici le code de mes macro :
Sub Macro12()
'Inscrit le code 89 ou 5
For i = 4 To 65000
If Cells(i, "C") = 1 Then Cells(i, "J").Value = 89 Else
If Cells(i, "J") = 89 Or Cells(i, "J") = "" Then If Cells(i, "C").Value = 1 Then Cells(i, "J").Value = 89 Else Cells(i, "J").Value = 5
Next i
End Sub
Sub macro13()
'Recherche les autre codes
For i = 4 To 65000
Cells(i, "K").Select
If Cells(i, "J") = 89 Then ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[4],Phases!R1C1:R100C6,3,FALSE)" Else 'colonne K
Next i
'Formules à integrer dans la macro
If Cells(i, "J") = 89 Then ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[3],Phases!R1C1:R100C6,4,FALSE)" Else 'colonne L
If Cells(i, "J") = 89 Then ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],Phases!R1C1:R100C6,5,FALSE)" Else 'colonne M
Merci de votre aide
Voici le code de mes macro :
Sub Macro12()
'Inscrit le code 89 ou 5
For i = 4 To 65000
If Cells(i, "C") = 1 Then Cells(i, "J").Value = 89 Else
If Cells(i, "J") = 89 Or Cells(i, "J") = "" Then If Cells(i, "C").Value = 1 Then Cells(i, "J").Value = 89 Else Cells(i, "J").Value = 5
Next i
End Sub
Sub macro13()
'Recherche les autre codes
For i = 4 To 65000
Cells(i, "K").Select
If Cells(i, "J") = 89 Then ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[4],Phases!R1C1:R100C6,3,FALSE)" Else 'colonne K
Next i
'Formules à integrer dans la macro
If Cells(i, "J") = 89 Then ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[3],Phases!R1C1:R100C6,4,FALSE)" Else 'colonne L
If Cells(i, "J") = 89 Then ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],Phases!R1C1:R100C6,5,FALSE)" Else 'colonne M