problème boucle et msgbox

  • Initiateur de la discussion Initiateur de la discussion meldja
  • Date de début Date de début

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 !

meldja

XLDnaute Impliqué
Bonjour,
J'ai une boucle sur "Private Sub Worksheet_Change(ByVal Target As Range)" qui doit afficher un msgbox à la fin mais elle l'affiche à chaque fois que la condition de la boucle est vraie.
Ensuite, j'ai une autre boucle sur "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" qui affiche mon msgbox de la première procédure (Private Sub Worksheet_Change(ByVal Target As Range)).
Je ne comprends pas vraiment pourquoi.
En pièce jointe, mon fichier. La cellule cible de la première macro est la B1. Si on sélectionne "Sada" ou "Kawéni", il y a plusieurs établissements qui répondent au critère.
Merci si quelqu'un peut y jeter un coup d'oeil.
 

Pièces jointes

Re : problème boucle et msgbox

Bonjour,

Essayez avec les instructions ajoutées qui sont signalées par ///
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
On Error GoTo fin:
Application.ScreenUpdating = False
Application.EnableEvents = False    '///
If Target.Address = "$B$1" Then
Range("B45:C200").ClearContents

Rows("3:32").EntireRow.Hidden = True
For i = 3 To 32
    If Range("B" & i).Text Like "*" & Range("B1").Text & "*" Then
    Rows(i).EntireRow.Hidden = False
    End If
Next i
End If
Application.EnableEvents = True    '///
Application.ScreenUpdating = True
MsgBox "toto", vbInformation, "TOTO"
fin:
Exit Sub
End Sub
 
Re : problème boucle et msgbox

Bonjour à tous

une autre solution consiste, dans Private Sub Worksheet_Change(ByVal Target As Range), à déplacer la ligne MsgBox "toto", ... juste avant le End If . le message ne sera déclenché que si la cellule B1 est modifiée.

A+
 
- 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
9
Affichages
212
Réponses
4
Affichages
225
Réponses
14
Affichages
249
Réponses
21
Affichages
225
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
482
Retour