Pour que le curseur pointe sur 1 cellule après validation boite de dialogue

Question

Au départ, je clique sur la cellule O4, ça m'amène vers le petit programme ci-dessous avec une boite de dialogue qui s'ouvre et interroge sur la cellule Q1. Mais après validation, le curseur reste sur O4. Peut-on faire en sorte que le curseur pointe en Q1 lorsqu'on a cliqué sur "OK" dans la boîte de dialogue ? ==&gt; If &#91;Q1&#93; &lt; 4 Or &#91;Q1&#93; &gt; 6 Then MsgBox "Echec en cellule Q1, saisir un coeff entre 4 et 6" Application.EnableEvents = True Exit Sub End If Merci. Bonne journée...

boss_68 · Accepted Answer

Re

Essaye

Private Sub Worksheet_Change(ByVal Target As Range)

    ' Gestion de Q1
    If Not Intersect(Target, Range("Q1")) Is Nothing Then

        If IsNumeric(Range("Q1").Value) Then
            If Range("Q1").Value >= 4 And Range("Q1").Value <= 6 Then

                If Not Range("Q1").Comment Is Nothing Then
                    Range("Q1").Comment.Visible = False
                End If

            End If
        End If

    End If

    ' Gestion de R9
    If Not Intersect(Target, Range("R9")) Is Nothing Then

        If IsNumeric(Range("R9").Value) Then
            If Range("R9").Value >= 4 And Range("R9").Value <= 6 Then

                If Not Range("R9").Comment Is Nothing Then
                    Range("R9").Comment.Visible = False
                End If

            End If
        End If

    End If

End Sub

7calcul-de-la-masse-grasse-sans-le-poids-29-03-26.xlsb (208.40 Ko)

BsAlv · Accepted Answer

Re, On peut avoir plusieurs formes avec le même nom et alors ce n'est pas sûr lequel est traité si VBA change des choses. Non, ce "clearcontents" ne supprime pas vos commentaires. Je suppose que la macro est lancée et a passé la ligne "Application.EnableEvents=False" et puis s'est arrêtée manuellement ou par une erreur et n'a pas réparé ces évenements avec "Application.enableEvents=True". Vos problèmes indiquent tous cette cause. Donc, maintenant tu a réouvert ton fichier et normallement tout fonctionne, je suppose que cela ne changera plus. Sinon, tu n'as qu'à fermer le fichier et re-ouvrir oubien à ajouter une macro qui contient une ligne "Application.enableEvents=True" et la lancer si nécessaire oubien chercher la cause ... . C'était quoi la dernière chose que t'as fait avant ce fénomène ...

boss_68 · Answer

Voir si cela te convient les modifs sont entre les 4 lignes en étoiles ***************************** Double clic surO4 ==&gt; message ==&gt; OK ==&gt; automatiquement le commentaire va s'afficher de Q1 ==&gt; mettre la valeur entre 4 à 6 ==&gt; le commentaire se referme Slts...

LouReeD · Answer

Boss_68, je profite de votre message pour poser une question beaucoup plus générale, rien à voir avec vous précisément si ce n'est que là c'est le cas. Pourquoi ne pas mettre le code modifié dans le message en plus du fichier ? Le fichier pour le demandeur, le code pour les visiteurs qui ne veulent pas forcément télécharger le fichier juste pour voir "trois" lignes de code... If &#91;Q1&#93; &lt; 4 Or &#91;Q1&#93; &gt; 6 Then Application.EnableEvents = True Range("Q1").Select DoEvents If Not Range("Q1").Comment Is Nothing Then Range("Q1").Comment.Visible = True End If MsgBox "Echec en cellule Q1, saisir un coeff entre 4 et 6" Exit Sub Je trouve que c'est le cas pour beaucoup de réponse. @ bientôt LouReeD...

boss_68 · Answer

Désolé If Not Intersect(Target, Range("O4")) Is Nothing Then If &#91;Q1&#93; &lt; 4 Or &#91;Q1&#93; &gt; 6 Then Application.EnableEvents = True Range("Q1").Select DoEvents If Not Range("Q1").Comment Is Nothing Then Range("Q1").Comment.Visible = True End If MsgBox "Echec en cellule Q1, saisir un coeff entre 4 et 6" Exit Sub End If + Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("Q1")) Is Nothing Then If IsNumeric(Range("Q1").Value) Then If Range("Q1").Value &gt;= 4 And Range("Q1").Value &lt;= 6 Then If Not Range("Q1").Comment Is Nothing Then Range("Q1").Comment.Visible = False End If End If End If End If End Sub Slts...

BsAlv · Answer

Re, n'est-ce pas possible que t'as plusieurs formes "Image 1" et comme tu supprimes chaque fois seulement un, les autres peuvent créer ce problème...