Bonjour à toutes et à tous.
J'ai créé une macro qui fait ce que je veux, mais c'est très lent.
Sauriez-vous comment accélérer le processus?
Merci de vos retours.
PS: J'ai déjà désactivé dans le classeur les calculs automatiques.
J'ai créé une macro qui fait ce que je veux, mais c'est très lent.
Sauriez-vous comment accélérer le processus?
Code:
Sub BUDGET()
For i = 2 To 10000
Sheets("Feuil1").Select
If Sheets("Feuil1").Range("D" & i).Value <> "Tâcherons" And Sheets("Feuil1").Range("D" & i).Value <> "" And Sheets("Feuil1").Range("K" & i).Value <> "" And Sheets("Feuil").Range("A30").Value = "ABC" Then
Sheets("Feuil2").Range("A30").Value = Sheets("Feuil1").Range("K" & i).Value
Sheets("Feuil2").Select
Range("B30").Select
Dim strName As String
strName = InputBox("Veuillez rentrer le montant du budget", "Budget")
ActiveCell.Value = strName
ElseIf Sheets("Feuil1").Range("D" & i).Value <> "Tâcherons" And Sheets("Feuil1").Range("D" & i).Value <> "" And Sheets("Feuil1").Range("K" & i).Value <> "" And Sheets("BILAN").Range("A30").Value <> Sheets("Feuil1").Range("K" & i).Value And Sheets("Feuil2").Range("A31").Value = "ABC" Then
Sheets("Feuil2").Range("A31").Value = Sheets("Feuil1").Range("K" & i).Value
Sheets("Feuil2").Select
Range("B31").Select
Dim strName1 As String
strName1 = InputBox("Veuillez rentrer le montant du budget", "Budget")
ActiveCell.Value = strName1
End If
Next i
End Sub
Merci de vos retours.
PS: J'ai déjà désactivé dans le classeur les calculs automatiques.
Dernière édition: