Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

LOL, j'ose à peine poser ma question de crainte du retour de mon cher JM 🙂

J'ai un souci de boucle, voici mon code :
Code:
Sub Mise_a_jour_urgents()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    Sheets("SuivisAppels").Select
    For i = 7 To 50000
        ActiveSheet.Unprotect Password:=""
        If Cells(ActiveCell.Row, 20) < Now + 1 And Cells(ActiveCell.Row, 40) = 1 Then 'répondeurs à venir
        Cells(ActiveCell.Row, 37) = 1
        Cells(ActiveCell.Row, 40) = ""
        End If
        If Cells(ActiveCell.Row, 20) < Now + 1 And Cells(ActiveCell.Row, 39) = 1 Then 'à rappeler
        Cells(ActiveCell.Row, 36) = 1
        Cells(ActiveCell.Row, 39) = ""
        End If
        If Cells(ActiveCell.Row, 20) < Now + 1 And Cells(ActiveCell.Row, 38) = 1 Then 'ok rdv
        Cells(ActiveCell.Row, 33) = 1
        Cells(ActiveCell.Row, 38) = ""
        End If
    Next
    ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoRestrictions
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic
End Sub

Le code fonctionne mais il faut que je me trouve sur chaque ligne pour qu'il exécute.

Je cherche, je cherche mais ne trouve pas ce qui ne va pas.

Votre aide me serait salutaire comme d'hab.
Si un fichier test est nécessaire, je prendrai le temps d'en faire un.
Avec mes remerciements,
Bon dimanche à toutes et à tous.
Amicalement,
Lionel,
 
Bonjour le fil, le forum

arthour973
Quelle est ta crainte?
Que je te dise que tu aurais pu joindre un fichier exemple, histoire ne pas perdre de temps à recréer un fichier existant sur ton disque dur?
Si oui, alors ta crainte était justifiée 😉
 
Re

A vue de nez, mais non testé (puisque pas de fichier exemple...)
VB:
Sub Mise_a_jour_urgents()
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    Sheets("SuivisAppels").Select
    For i = 7 To 50000
        ActiveSheet.Unprotect Password:=""
        If Cells(i, 20) < Now + 1 And Cells(i, 40) = 1 Then 'répondeurs à venir
        Cells(i, 37) = 1
        Cells(i, 40) = ""
        End If
        If Cells(i, 20) < Now + 1 And Cells(i, 39) = 1 Then 'à rappeler
        Cells(i, 36) = 1
        Cells(i, 39) = ""
        End If
        If Cells(i, 20) < Now + 1 And Cells(i, 38) = 1 Then 'ok rdv
        Cells(i, 33) = 1
        Cells(i, 38) = ""
        End If
    Next
    ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlNoRestrictions
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
549
Réponses
2
Affichages
124
Réponses
4
Affichages
177
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Réponses
2
Affichages
404
Réponses
16
Affichages
1 K
Retour