Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

USF entrées multiples + Evenement change

  • Initiateur de la discussion Initiateur de la discussion Nikless
  • 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 !

Nikless

XLDnaute Junior
Amis XLD-iens bonjour,

Je souhaite effectuer des entrées multiples (en l'occurrence les joueurs par équipe, nombre variant entre 2 et 4) dans un USF et les reporter dans la feuille attenante.

Je suis confronté à des problèmes de boucles sans fin avec des événements change. Je suppute qu'il faille utiliser "Application.EnableEvents", mais ça n'a pas été concluant dans mes essais précédents.

Un premier jet avec davantage d'explications et de questions à trouver dans le fichier joint.

Nikless qui vous salue
 

Pièces jointes

Dernière modification par un modérateur:
Re : USF entrées multiples + Evenement change

Bonjour Nikless, bonjour le forum,

Tu déclares ton post comme toute versions et tu joins un fichier xlsm... Je n'ai pu l'ouvrir qu'à l'aide d'un convertisseur mais l'onglet DB ne réagissait plus au VBA. J'en ai créé un autre et renommé l'ancien DBOld.

En pièce jointe ton fichier modifié avec codes commentés.

Sur ce post, tu disais qu'il y avait une erreur dans ma version mais tu n'as pas daigné préciser laquelle ? Ça m'interesse !
 

Pièces jointes

Re : USF entrées multiples + Evenement change

Bonjour Robert, bonjour le forum,

Mes excuses pour la boulette du tags "toutes versions". Je m'empresse de rectifier ça.

Ton fichier remplit les fonctions désirées. Je le test et je reviens vers toi.
Merci pour tes explications, en particulier : la boucle sur les contrôles de l'USF. 😉

Pour ce qui de l'erreur évoquée dans ma précédente conversation, il s'agit d'une erreur qui intervient après la création de la nouvelle feuille lors du déplacement (Move) de celle-ci.
.Move Before:=Sheets(x + 1) 'place l'onglet dans l'ordre des commerciaux

J'ai pu résoudre (ou plutôt contourner) le problème en ajoutant la feuille à la fin du classeur...
.Move After:=Sheets(ThisWorkbook.Sheets.Count)

Très bonne journée à tous, merci encore à Robert,

Nikless
 
- 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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…