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

jozerebel · 2 Août 2023

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... :-/

jpb388 · 4 Août 2023

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

Oneida · 3 Août 2023

Bonjour,
Quel est le rapport entre le contenu de la combobox et ce que vous copiez, car y a pas de test sur la "selection" des items cette combobox?

jpb388 · 3 Août 2023

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 · 3 Août 2023

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

jpb388 · 3 Août 2023

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 · 3 Août 2023

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 · 3 Août 2023

jpb388 à dit:
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 ?

Salut jpb,

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

Cdt

jpb388 · 4 Août 2023

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

jozerebel · 6 Août 2023

jpb388 à dit:
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

Salut Jpb388 !

Waouh quel travail !

Je te remercie car tout est nickel !!!

Je passe en clôturé.

Encore mille merci;

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

jozerebel

XLDnaute Occasionnel

jpb388

Oneida

XLDnaute Impliqué

jpb388

XLDnaute Accro

jozerebel

XLDnaute Occasionnel

Pièces jointes

jpb388

XLDnaute Accro

jozerebel

XLDnaute Occasionnel

jozerebel

XLDnaute Occasionnel

jpb388

XLDnaute Accro

Pièces jointes

jozerebel

XLDnaute Occasionnel

Discussions similaires