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

XL 2021 Boucler sur un combobox d'une feuille Excel (Pas un Usf)

jozerebel

XLDnaute Occasionnel
Bonsoir à tous,

J'ai un combobox (insérer par le menu Développeur / Insérer Contrôle.

Ce cbbox liste par macro l'ensemble des éléments, sans doublon, utilisés sur une autre feuille.

Je souhaite dans une macro boucler sur chaque item de ce cbbox (les sélectionner un par un et lancer un calcul à chaque fois).

Cependant, mon code ne fonctionne pas et me recopie autant de fois le tableau correspondant à l'élément déjà sélectionné qu'il y a d'éléments dans le cbbox.

Je ne vois pas ce qui ne va pas...

Je vous remercie pour votre aide...


Dim lignefin1 As Integer
Dim lignefin2 As Integer

Sheets("Balance").Select
lignefin2 = Sheets("Balance").Range("D" & Rows.Count).End(xlUp).Row + 1
Sheets("Balance").Range("A8" & lignefin2).ClearContents
Sheets("Balance").Range("A8" & lignefin2).Select
Selection.Font.Bold = False



For i = 0 To Sheets("Compte").ComboBox1.ListCount
Call compte
lignefin1 = Sheets("Compte").Range("D" & Rows.Count).End(xlUp).Row + 1
lignefin2 = Sheets("Balance").Range("D" & Rows.Count).End(xlUp).Row + 1

Worksheets("Compte").Range("A4" & lignefin1).Copy Worksheets("Balance").Range("A" & lignefin2)


Next i

ps : fichier trop volumineux pour le téléverser... :-/
 
Solution
Bonjour à tous
regarde si cela te convient
les procédures sont sur un module et plus sur thisworkbook
j'ai viré la combobox qui pour moi ne sert à rien
je n'ai pas pu vraiment testé la macro car il n'y a que des Ko Compte
mais j'ai confiance
bonne journée

jpb388

XLDnaute Accro
bonjour à tous
si la combobox est de type formulaire une cellule est liée et il suffit de le traiter
si c'est une activeX tu peux faire quelque chose comme cela
N0 item
VB:
Private Sub ComboBox1_Click()
      Select Case ComboBox1.ListIndex
            Case 0
                  Debug.Print "choix 1 lancer macro 1"
            Case 1
                  Debug.Print "choix 2 lancer macro 2"
      End Select
End Sub
ou par le nom sélectionné
Code:
Private Sub ComboBox1_Click()
      Select Case ComboBox1.List(ComboBox1.ListIndex)
            Case "Nom1"
                  Debug.Print "choix 1 lancer macro 1"
            Case "Nom2"
                  Debug.Print "choix 2 lancer macro 2"
      End Select
End Sub
Code:
 

jozerebel

XLDnaute Occasionnel
Bonjour à tous et merci pour vos retours,

En fait c'est la même macro qui doit se lancer pour chaque lecture (automatique) des éléments de la combo.

J'ai réduit mon fichier pour le upload.

Je vous remercie pour votre aide.

Cdt
 

Pièces jointes

  • Compta_Gen_Util - Copie.zip
    536.9 KB · Affichages: 3

jpb388

XLDnaute Accro
Bonjour à tous
Si j'ai bien compris
la feuille saisie est bien plus grande et comporte surement des doublons
Mondico te sers à filtrer les données pour avoir 1 seul titre
la feuille compte sert de tableau modèle
on boucle sur la liste feuille saisie, on additionne les 2 sommes (crédit et débit) séparément bien sur
on renseigne le tableau modèle et on le colle dans la feuille balance
on efface le tableau modèle et on recommence avec le titre 2
et ainsi de suite
es ce bien cela ?
 

jozerebel

XLDnaute Occasionnel
Salut jpb388,

Je te remercie pour le temps consacré à ta réponse.

C est exactement ça sachant que la taille du tableau dans la feuille compte dépend du nombre d écritures saisies (c est comme un extrait de compte).

Et pour le denier point, tu as tout compris.

Si tu as une piste, je suis d avance reconnaissant
 

jozerebel

XLDnaute Occasionnel
Salut jpb,

Réponse dans un message dédié (j avais pas appuyé sur "répondre"

Cdt
 

jpb388

XLDnaute Accro
Bonjour à tous
regarde si cela te convient
les procédures sont sur un module et plus sur thisworkbook
j'ai viré la combobox qui pour moi ne sert à rien
je n'ai pas pu vraiment testé la macro car il n'y a que des Ko Compte
mais j'ai confiance
bonne journée
 

Pièces jointes

  • Compta_Gen_Util - Copie.zip
    542.4 KB · Affichages: 3

jozerebel

XLDnaute Occasionnel
Salut Jpb388 !

Waouh quel travail !

Je te remercie car tout est nickel !!!

Je passe en clôturé.

Encore mille merci;
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…