Macro longue à s'exécuter

Bonjour à tous,

j'ai ma macro qui tarde à s'exécuter et ça m'affiche excel ne répond pas

je sais pas c'est quoi le problème

merci d'avance

la macro :

Sub Terminer_la_référence()

If Range("C09,C10,D09,D10") = "" Or Range("D13") = "" Or Range("D14") = "" Then
Msgbox "Veuillez sélectionner une référence, heure début de prod et heure fin de prod"
Exit Sub
End If

Worksheets("Saisie - Conducteur L6 SAP").Activate

Dim compteur As Integer
Dim entree As Boolean

For compteur = 25 To 32
If entree = False Then
If IsEmpty(Cells(compteur, 3).Value) = True Then
If Not IsEmpty(Cells(16, 4).Value) = True And Cells(16, 4) <> 0 And IsEmpty(Cells(17, 4).Value) Then
Msgbox "Résumé : Vous devez entrer une cause de quarantaine"
Exit Sub
End If
If Not IsEmpty(Cells(18, 4).Value) = True And Cells(18, 4) <> 0 And IsEmpty(Cells(19, 4).Value) Then
Msgbox "Résumé : Vous devez entrer une cause de rebut"
Exit Sub
End If
Cells(compteur, 3) = Range("C09:D10").Value
Range("D13").Copy Cells(compteur, 4)
Range("D14").Copy Cells(compteur, 5)
Range("D15").Copy Cells(compteur, 8)
Range("D16").Copy Cells(compteur, 9)
Range("D18").Copy Cells(compteur, 10)
entree = True
End If
End If
Next compteur

'Remplir Rebuts & Quarantaine
For compteur_2 = 8 To 1000000
'Si on a pas déjà rentré quelque chose alors
If entree_2 = False Then
'Si la cellule visée est vide
If Range("D16") <> "" Or Range("D18") <> "" Then
If IsEmpty(Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 2).Value) = True Then
Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 2) = Range("D4").Value
Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 4) = Range("D7").Value
Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 5) = Range("D6").Value
Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 6) = Range("D5").Value
Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 7) = Range("C9:D10").Value
Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 8) = Range("D16").Value
Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 9) = Range("D17").Value
Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 10) = Range("F16").Value
Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 11) = Range("D18").Value
Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 12) = Range("D19").Value
Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 13) = Range("F18").Value

entree_2 = True
End If
End If
End If
Next compteur_2

'Effacer données avec heure fin de prod devient heure début de prod
Range("D13") = Range("D14").Value
Range("D14").ClearContents
Range("D15").ClearContents
Range("D16").ClearContents
Range("D17").ClearContents
Range("D18").ClearContents
Range("D19").ClearContents
Range("C09,C10,D09,D10") = ""
Range("F16") = ""
Range("F17") = ""
Range("F18") = ""
Range("F19") = ""

End Sub

bonjour,

je pense que tu noteras déjà une amélioration sensible en adaptant cette partie du code

Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 13) = Range("F18").Value

entree_2 = True
End If

ainsi

Worksheets("Rebuts & Quarantaines").Cells(compteur_2, 13) = Range("F18").Value

entree_2 = True
Exit For
End if

Bonjour,

EDIT : Salut H2SO4 ! Même pas besoin de remettre à True... Et pas besoin de cette boucle if...

A+

J'ai essayé les deux propositions et c'est toujours pareil

je pense que le probleme vient de effacer les données

Bonjour Mmhmina

Comme il est indiqué dans la charte, merci de mettre le code entre balises grâce au bouton </>

Merci d'y prêter attention SVP

j'ai pas compris désolé

Re,

Je vois ca

Pour déposer du code lorsque vous créez un fil, merci d'utiliser le bouton

Est-ce plus clair !?

j'ai fait ça et toujours pareil

Re,

Toujours pareil de quoi !?

Je ne vous parle pas du code donné par h2so4

Je vous parle du votre donné ici https://forum.excel-pratique.com/s/goto/1061029 que j'ai édité depuis

1) vous copiez le code de votre module

2) sur le forum vous cliquez sur le bouton

3) vous coller votre code dans la fenêtre affichée

A+

ah D'accord merci

Re,

Sinon pour pouvoir mieux vous aider, merci de joindre SVP votre fichier anonymisé avec cet utilitaire

A+