VBA - Désélectionner une cellule avant de lancer une macro

Question

Dans le fichier ci-joint, si je choisis par exemple 10 dans la cellule F22 de la feuille ‘’Base’’ puis que je lance la macro placée derrière le bouton en place, un tirage est effectué et je peux constater sur la feuille ‘’Contrôle – Résultats’’ nouvellement affichée que c’est bien un tirage pour 9 et 10 joueurs qui a été effectué. Si j’inscris maintenant 11 en F22, mais que je ne sors pas de cette cellule avant de lancer à nouveau la macro, ça plante. Savez-vous comment éviter cela ? Comment forcer la désélection de cette cellule – ou d’une autre – avant le lancement de la macro ? Cordialement...

Nain porte koi · Accepted Answer

Pour moi il n'y a aucun problème tant que la saisie est validée, cad que vous appuyez bien sur la touche entrée en déplacer la sélection. Un détournement assez cochon envoyer un "entrée" dans la procédure "Private Sub Worksheet_Change" SenKeys "~" Mais c'est problématique car on ne sais pas forcément ou se trouve le curseur quand on envoi la touche...

saboh12617 · Accepted Answer

Wow mais pourquoi coder comme ça… Inscrivez "en dur" dans votre code quelles cellules doivent changer (par exemple "F23") au lieu de Target et vous devriez résoudre certains problèmes. De même dans le SelectionChange, puisque apparemment c'est là que se fait la mise à jour des valeurs des cellules F22 et F23, forcément si vous ne changez pas de cellule elles ne sont pas mises à jour puisque SelectionChange n'est pas lancé. Vous devriez déplacer la logique de fonctionnement dans des Sub à part, par exemple "MettreAJourClubs" ou "CalculerTirage", et appeler ces macros depuis les évènements de la feuille. Ainsi vous aurez beaucoup plus de contrôle, et surtout vous ne serez plus dépendant de "l'utilisateur a cliqué une autre cellule" ou je ne sais quelle erreur pouvant entrainer une boucle infinie d'appels entre vos évènements. Selon moi, un bon code de gestion d'évènement c'est cela : ' dans le module de feuille :&nbsp;ON MINIMISE LE CODE Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' on verifie la ou les conditions qui assurent que notre plage est celle attendue If Target.Intersect("maPlageATraiter") Is Nothing Then Exit Sub If Target.Count &gt; 1 Then Exit Sub ' on s'assure de ne pas faire de boucle infinie Application.ScreenUpdating = False Application.EnableEvents = False ' on peut lancer notre macro de calcul/traitement FaireQuelqueChose Application.EnableEvents = True End Sub ' dans Module1 par exemple Public Sub FaireQuelqueChose() Dim i As Byte, j As Byte Retour: For i = 4 To 23 If Range("B" & i) = "" And Range("B" & i + 1) &lt;&gt; "" Then Range("B" & i) = Range("B" & i + 1) Range("B" & i + 1) = "" GoTo Retour End If If Range("C" & i) = "" And Range("C" & i + 1) &lt;&gt; "" Then Range("C" & i) = Range("C" & i + 1) Range("C" & i + 1) = "" GoTo Retour End If Next i Range("F22") = Application.WorksheetFunction.CountA(Range("B4:B23")) Range("F23") = Application.WorksheetFunction.CountA(Range("C4:C23")) End Sub...

Dan · Accepted Answer

Avec l'appel call prenoms on est sur une autre feuille. La ligne comme ceci : If Target.Address = "$F$22" Then Sheets("Base").Activate: Range("F23").Activate Mais bon comme dit Nain Porte koi, il faut appuyer sur la touche Entree avant. Sinon je n'ai pas trop compris le pourquoi de la macro call prenom puisque l'on est sur la feuille Base et que si feuille Base la macro n'est pas exécutée. Un autre chose pourquoi aller sélectionner la dernière cellule de la feuille dans cette ligne Application.GoTo Reference:=Worksheets("Base").Range("XFD1048576"), Scroll:=False Il y a certainement une raison mais je n'ai pas trop analysé.. Cordialement...

Dan · Accepted Answer

Re Heu ... la remarque sur la call prenoms était juste une remarque hors du contexte du souci de la demande. Simplement que je me demandais le pourquoi d'appeler cette macro dans la macro Worksheet_change sachant que ce code réagit sur le changement de la cellule F23 ou F24 dans la feuille Base. Donc on peut supprimer la ligne call prenom. Par contre la ligne à changer, que j'ai mise après mon commentaire dans mon post précédent, il n'y a pas de plantage...

Alex020181 · Accepted Answer

Ton problème ne vient pas de la désélection de F22 ou non. Ton problème vient du fait que tu tournes en rond en plaçant ton code dans change. Place un point d'arrêt dans ton change et met ton 10 en F22. En faisant F8 pour faire du pas à pas tu verras déjà que tu relances x fois le même code. Et en plus comme ton code intervient en supprimant des données de cette feuille bein tu tournes en rond...

Dan · Accepted Answer

C'est un sujet en complément à la première question et je n'ai pas regardé l'impact de la modification dans ces cellule Je n'ai pas ce résultat lorsque je le fais. Le code m'envoie à la dernière cellule dans la feuille Si je désactive la ligne "application.goto.. dans la sub mise en place, j'ajoute un nom en B14 sans confirmer par la touche Entrée et que je lance le code, j'ai parfois ce message Effectivement je n'avais pas regardé si le tirage était modifié mais cela pourrait se comprendre si on ne valide pas une entrée dans une cellule. Excel conserve l'ancienne donnée. Peut être essayer en mettant cette instruction au début du code Mise en place --&gt; Application.SendKeys ("{enter}") Mais bon à voir... à mon avis c'est pas top comme solution. Crdlt...

Dan · Answer

Re Effectivement c'est ce que j'ai constaté aussi sans l'avoir mentionné dans mes posts Par contre si je mets une info en B17 alors qu'il n'y a rien à B14, 15 et 16 (comme c'est le cas dans le fichier), là Excel tourne en boucle et je suis obligé de quitter en dur. Mais c'est peut-être chez moi le souci (j'ai un pC qui râme quelques fois) Faut vérifier si ce n'est pas du coté de l'instruction Application.EnableEvents qui est à False et qui empêche le code d'être exécuté Il me semble que ce coté là il y a quelques soucis. A voir... Autre point que je viens de voir, - j'ajoute un joueur manuellement en B14 et j'appuie sur Entrée puis je lance la macro via le bouton, la feuille en F22 mentionne bien 14 - Si je supprime la valeur en B14, rien ne se passe en F22, il faut que je clique ailleurs dans la feuille pour que le calcul se fasse en F22 Question : est-ce qu'il ne faudrait pas ajouter les instructions Worksheet_function dans le code Worksheet_change en cas d'un changement de valeur dans la plage B2:c23. Donc juste après le Call Controle_Noms_uniques ? D'ailleurs tant qu'à faire pourquoi ne pas supprimer le code Worksheet_Selection_change et revoir le code Worksheet_change en utilisant des 2 lignes de code plutôt que de faire une boucle for i =4 to 23 --&gt; Range("B4:B23").SpecialCells(xlCellTypeBlanks).Delete xlShiftUp Range("C4:C23").SpecialCells(xlCellTypeBlanks).Delete xlShiftUp Range("B4:C23").Interior.Color = RGB(252, 228, 214) Autre sujet qui n'a rien avoir mais lorsque j'ouvre le fichier j'ai toujours un chiffre 2 derrière le XLSM... bizarre Crdlt...

BsAlv · Answer

On crée une nouvelle macro "Yvouille" avec le contenu de la macro "Worksheet_SelectionChange" et on utilise cette macro 2 fois, une fois dans la macro "Worksheet_SelectionChange" et une 2ième fois dans la macro "Worksheet_Change" quand on change quelque chose dans la plage B4:C23 Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Byte, j As Byte Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("F22:F23")) Is Nothing Then If Target &lt; 8 Then Target = 8 If Target &gt; 20 Then Target = 20 Call Prenoms_x For i = 10 To 23 If i - 3 &gt; Range("F22") Then Range("B" & i).ClearContents If i - 3 &gt; Range("F23") Then Range("C" & i).ClearContents Next i If Target.Address = "$F$22" Then Sheets("Base").Activate: Range("F23").Activate If Target.Address = "$F$23" Then Sheets("Base").Activate: Range("F24").Activate ' If Target.Address = "$F$22" Then Range("F23").Activate ' Sinon ça sélectionne la cellule C23 qui est la dernière effacée ci-dessus ' If Target.Address = "$F$23" Then Range("F24").Activate ' Sinon ça sélectionne la cellule C23 qui est la dernière effacée ci-dessus End If If Not Intersect(Target, Range("B2:C23")) Is Nothing Then Call Controle_Noms_uniques Yvouille 'pour mise à jour des 2 compteurs ****************************************** End If Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Yvouille 'pour mise à jour des 2 compteurs ****************************************** End Sub Private Sub Yvouille() Dim i As Byte, j As Byte Application.ScreenUpdating = False Application.EnableEvents = False Retour: For i = 4 To 23 If Range("B" & i) = "" And Range("B" & i + 1) &lt;&gt; "" Then Range("B" & i) = Range("B" & i + 1) Range("B" & i + 1) = "" GoTo Retour End If If Range("C" & i) = "" And Range("C" & i + 1) &lt;&gt; "" Then Range("C" & i) = Range("C" & i + 1) Range("C" & i + 1) = "" GoTo Retour End If Next i Range("F22") = Application.WorksheetFunction.CountA(Range("B4:B23")) Range("F23") = Application.WorksheetFunction.CountA(Range("C4:C23")) Application.EnableEvents = True End Sub...

BsAlv · Answer

Cela est une solution bric à brac. "On Error ..." est quelque chose qu'on utilise comme dernier recours, si on ne sait pas, avec toutes les possibilités possibles, éviter une erreur, mais ici, je ne vois pas le besoin...