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

[jozerebel]

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

 

[Oneida]

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]

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

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é

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

 

[jozerebel]

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]

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]

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]

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]

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]

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;