vba: plusieurs case a cocher= plusieur ligne

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

Bens7

XLDnaute Impliqué
Bonjour a tous j;ai u petit User form qui fonctionne mais avec une seul case a coche ya 3 choix Combox, Textbox, Case a coche j;ai essayer dans rajouter 2 nouvelle mais sa marche pas si vous pouvez jeter un coup d'oeil sur la piece jointe c'est top!
PS: Si je coche les 3 ya 3 Lignes qui se creer, si 2 alors 2 Lignes, si 1 alors 1 Ligne
 

Pièces jointes

Re : vba: plusieurs case a cocher= plusieur ligne

Bonjour Bens,

Me ça correspondant à l'objet dans lequel tu te trouves, donc dans ton cas, il s'agit de l'UserForm NOTE, tu pourrais aussi mettre NOTE.CATEGORIE, tu peux aussi utiliser seulement CATEGORIE cela prend en compte l'objet dans lequel tu te rouves, donc NOTE.

Tu pourrais très bien, si tu avais 2 UserForm ouverts, appeler un objet de l'autre UserForm dans ce cas-là tu mettrais UserForm2.CATEGORIE

On retrouve le même principe pour la fermeture de l'UserForm avec Unload Me, s'il s'agit de NOTE --> Unload NOTE, s'il s'agit d'un autre UserForm --> Unload UserForm2

Le [A65536] et [A65000] c'est pour le comptage de ligne :

Dans ligne = Sheets("NOTE").[A65000].End(xlUp)(2).Row , on remonte d'une cellule pour chercher la dernière cellule pleine ou vide, le A correspond à la colonne recherchée, le 65536 correspond à la dernière ligne d'un fichier xls. Pour aller plus vite on peut écrire 65000 cela évite de s'embêter sachant que l'on utilise rarement les quelques lignes qui restent. Les fichiers xlsx ou xlsm comptent plus de ligne (1048576).

End(xlUp) permet de remonter et de trouver la dernière cellule remplie de la colonne A , le (2) permet de prendre la ligne du dessous (donc la première cellule vide) cela évite le + 1 que je ne trouve pas très "beau".

A+

Martial
 
- 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
5
Affichages
358
Réponses
10
Affichages
411
Réponses
7
Affichages
367
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
903
Retour