Combobox à 2 colonnes et numérotation, merci de votre aide

Bonjour,

Je réalise un UserForm sous excel en VBA pour la première fois... et c'est pas facile. Malgrés la foultitude d'informations que j'ai pu récupérer sur le site, j'ai toujours du mal.

Je dispose de la version Excel 2003 et j'ai besoin de votre aide concernant 2 problèmes :

1°) J'ai effectué une combobox à 2 colonnes (dans les propriétés RowSource j'ai fait:feuille2!Celluledébut:Cellulefin cela fonctionne) cependant je n'arrive pas à inscrire le résultat de la ligne sélectionné dans les 2 colonnes de destination de mon tableau (PS les valeurs de ma combobox sont stockées sur la feuille 2, et le tableau de destination est sur la feuille1).

2°) Je souhaite égallement réaliser une numérotation automatique dans la première colonne de mon tableau.

Si vous pouvez m'aider en m'indiquant un code à suivre et à me l'expliquer (ou je mets le nom des feuilles, de ma combobox, de mes cellules de destination etc...)

Je rappelle que je suis un débutant.

Merci énormément par avance et je vous félicite pour la qualité du site.

Vincent

Salut,

Pour le 1°), si je comprend bien tu souhaites que quand tu cliques sur le bon champ de ta liste déroulante la valeur sélectionnée s'affiche dans une plage de destination d'une feuille Excel ?

Pour le 2°), qu'appelles tu une "numérotation automatique" ? numéroter les lignes de ta liste déroulante de 1 à 10 s'il y a 10 lignes par exemple ?

C'est exactement ce que je cherche à faire toutefois je précise que pour le 1°)je souhaite que chacune de mes colonnes de ma liste déroulante s'affiche dans 2 colonnes de ma feuille 1
pour le 2°) c'est ce que je souhaiterais faire

Merci de ta rapidité et de ton aide

euh en fait j'ai répondu trop vite pour le deuxième ce n'est pas le menu déroulant que je souhaite numéroter mais les lignes de mon tableau (lorsque je clique sur valider, mon code insère une nouvelle ligne et je voudrais que celà m'ajoute automatiquement 1,2,3... un peu comme si je tirais dans le coin à droite de ma cellule, cela me permettrait de connaître le nombre de lignes dans mon tableau

Merci

peux-tu poster le code déjà en place pour ton form stp ?

Bonjour tlm,

Tu peux t'inspirer de cette procédure événementielle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub ComboBox1_Change() Dim DerL As Integer   With Sheets(2) If .Cells(2, 1) = "" Then DerL = 2 .Cells(2, 1) = 1 Else DerL = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(DerL, 1) = Cells(DerL - 1, 1) + 1 End If   .Cells(DerL, 2) = Me.ComboBox1.List(ComboBox1.ListIndex, 0) .Cells(DerL, 3) = Me.ComboBox1.List(ComboBox1.ListIndex, 1)   End With End Sub

---

Okay j'anonyme mon fichier et je le met en ligne ce soir (le code peut vous paraïtre un peu bricolage de fortune, mais je débute...)
En tout cas merci beaucoup de vous intéresser à mon cas.

Voilà j'ai éssayé ta méthode frings, cependant un grand nombre de points (lignes de codes) me paraissent obscur aussi je joins mon fichier, dans lequel j'ai inséré ton code et auquel j'ai ajouté des commentaires (en fait des questions), ce serait vraiment sympa de ta part de jeter un coup d'oeil pour m'expliquer le code.

Pièce jointe 34357

Citation:

---

Code:

---

Dim DerL As Integer 'c'est quoi la fonction DerL

---

---

DerL est une variable qui contiendra le numéro de la Dernière Ligne ou plutôt de la première ligne vide, ligne dans laquelle on insèrera les valeurs sélectionnées dans ton ComboBox. J'ai nommé cette variable DerL mais j'aurais très bien pu la nommer toto ou mavariable ou ... C'est toi qui définit le nom de tes variables en veillant à ne pas utiliser un nom déjà utiliser par vba tel que cells, val, date, etc...

Citation:

---

Code:

---

With Sheets(2) 'à quoi correspond cette valeure?

---

---

Pour l'exemple, j'ai considéré que les valeurs sélectionnées devaient s'insérer dans la 2ème feuille, Sheets(2) correspond à la 2ème feuille (2ème onglet) en partant de la gauche. Dans ton cas ce serait par exemple

Code:

---

1 2 3

With Sheets("Visite") 'qui correspond dans ton classeur à la 1ère feuille 'on pourrait donc également l'écrire With Sheets(1)

---

Citation:

---

Code:

---

If .Cells(2, 1) = "" Then 'ce sont les cellules de destinations, avec 2 n° de colonne et 1 n° de ligne?

---

---

Non c'est l'inverse, Cells(n° ligne, n° colonne)
Tu remarques également qu'il y a un point devant Cells, c'est pour lier la Cells avec With Sheets(2), il s'agit donc de la cellule de la 2ème feuille

Citation:

---

Code:

---

DerL = 2 'Pourquoi 2?

---

---

pour l'exemple, j'ai décidé que la première ligne dans laquelle ira s'inscrire les données est la ligne 2 (généralement la ligne 1 est utilisée pour les titres de colonnes), à toi de déterminer la première ligne de ton tableau.
Supposons la ligne 2 de la colonne 1

Code:

---

1 2 3 4 5 6 7 8

'on vérifie si la cellule A2 contient déjà des données ou non If .Cells(2, 1) = "" Then 'si elle n'en contient pas, la variable DerL prend la valeur 2 'pour mémoriser que c'est dans la ligne 2 'qu'on viendra insérer les données du combobox DerL = 2 'et on insère la 1ère numérotation de ligne dans la cellule A2 .Cells(2, 1) = 1

---

Citation:

---

Code:

---

.Cells(2, 1) = 1 'Cellules de destinations?

---

---

1ère numérotation de ligne, explication ci-dessus

Par contre, si la cellule A2 contient déjà des données, on cherche la première ligne vide de la colonne A

Code:

---

1 2 3 4 5 6 7 8 9

Else DerL = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'supposons que ton tableau comporte déjà des données de la ligne A2 à la ligne A27, 'DerL prendra la valeur 28 .Cells(DerL, 1) = Cells(DerL - 1, 1) + 1 'en gardant la même supposition, cela correspond à 'Cells(28, 1) = Cells(28 - 1, 1) + 1 'en français, la cellule A28 prend la valeur de la cellule précédente + 1 'pour incrémenter la numérotation

---

Citation:

---

Code:

---

DerL = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'à quoi correspond Rows.Count,1

---

---

Rows.Count permet au code d'être compatible aussi bien sur Excel 2007 que sur les versions précédentes.
Rows.Count = compte les lignes, ce qui correspondra à 1.048.576 lignes sur Excel 2007 et 65.536 lignes sur les version précédentes.
Pour rechercher la dernière ligne utilisée, la méthode consiste à partir de la toute dernière ligne [Rows.Count] de la colonne [1] et de remonter jusqu'à ce qu'une valeur est trouvée [End(xlUp)], ensuite on prend le numéro de cette dernière ligne [Row] et on lui ajoute 1 pour désigner non plus la dernière ligne utilisée mais la ligne juste en-dessous, c'est à dire la première ligne vide [+ 1]

Citation:

---

Code:

---

.Cells(DerL, 1) = Cells(DerL - 1, 1) + 1 'Ce sont toujours les cellules de destinations?

---

---

Non c'est l'incrémentation de la numérotation de ligne comme expliqué un peu plus haut

Les deux lignes suivantes correspondent à l'insertion des données de tes deux colonnes du ComboBox, dans la première ligne vide de ta feuille, numéro de cette ligne désigné par la variable DerL

Code:

---

1 2	.Cells(DerL, 2) = Me.Num.List(Num.ListIndex, 0) .Cells(DerL, 3) = Me.Num.List(Num.ListIndex, 1)

---

Num.ListIndex = numéro de la ligne sélectionnée dans le ComboBox
0 = 1ère colonne du Combo
1 = 2ème ligne du Combo

Voilà...j'ai essayé d'expliquer le plus simplement possible, je peux difficilement faire plus sans réécrire tout le manuel de VBA.
Avant d'essayer d'intégrer ce code à ton classeur, je te conseille de te fabriquer un petit classeur tout simple avec quelques lignes et un userform contenant un combo, et de tester, manipuler, triturer le code afin d'essayer d'en comprendre le mécanisme.

Bon courage pour la suite ;)

Merci énormément,

Je viens de lire ton message,n tout me paraît plus clair, je vais ewssayer de faire fonctionner' cela dans mon tableau (en essayant au préalable sur un exemple bidon). Je vous tiens au courant du résultat.

En tout cas un grand merci pour ta patience et tes explications, Fring.

:D

Malgrès les infos que tu m'as fourni, j'ai un problème (Erreur 381) voici le code que j'ai saisi grâce à ton aide:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Num_Change()   Dim DerL As Integer   With Sheets("Visite") 'je mets ma feuille de destination If .Cells(59, 4) = "" Then 'mes cellules de destinations (D59 et E59) DerL = 59 'ma première ligne (ligne 59) ou je veux inscrire mes données .Cells(59, 4) = 1 'cellule D59 Else DerL = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(DerL, 1) = Cells(DerL - 1, 1) + 1 End If   .Cells(DerL, 4) = Me.Num.List(Num.ListIndex, 0) 'insertion de ma donnée (colonne 1 de ma combobox (que j'ai appelé Num))en cellule D59 .Cells(DerL, 5) = Me.Num.List(Num.ListIndex, 1) 'insertion de ma donnée (colonne 2 de ma combobox (que j'ai appelé Num))en cellule E59   End With End Sub

---

Quelle erreur fais-je:(? à noter que le programme tourne 1 fois sur 2.

NB: je ne sais pas comment faire pour insérer mon code comme toi;

Merci

Je ne sais pas te dire comme ça ce qui provoque l'erreur, je te joint un petit bout de fichier, cela pourra peut-être t'aider.

Dans ton code fais attention aux colonnes

Code:

---

1 2 3

If .Cells(59, 4) = "" Then 'mes cellules de destinations (D59 et E59) DerL = 59 'ma première ligne (ligne 59) ou je veux inscrire mes données .Cells(59, 4) = 1 'cellule D59

---

non...ce ne sont pas les cellules de destinations mais les cellules de numérotation automatique de la ligne comme tu l'as demandé. Vu que tes cellules de destination sont en colonne D et E, la numérotation tu dois la faire dans une autre colonne, C par exemple, ce qui donnera

Code:

---

1 2 3

If .Cells(59, 3) = "" Then 'mes cellules de destinations (D59 et E59) DerL = 59 'ma première ligne (ligne 59) ou je veux inscrire mes données .Cells(59, 3) = 1 'cellule C59

---

Code:

---

1 2 3 4

Else DerL = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(DerL, 1) = Cells(DerL - 1, 1) + 1 End If

---

Là tu vérifies si la numérotation existe dans la colonne 1 !!! Il faut évidemment que la colonne soit la même que ci-dessus (C dans l'exemple)

Code:

---

1 2 3 4

Else DerL = .Cells(Rows.Count, 3).End(xlUp).Row + 1 .Cells(DerL, 3) = Cells(DerL - 1, 3) + 1 End If

---

Ci-joint un bout de fichier avec ton code adapté selon mes commentaires ci-dessus

Pièce jointe 34374
.

Ton fichier marche impec mais dès que je fais un copier coller de ton code dans mon fichier final il me marque erreur 381 Impossible de lire la propriété List.Index de table de propriétés non valide.

Je précise qu'il tourne une fois avant de me proposer de débugger si je mets fin il tourne à nouveau mais la num ne fonctionne plus car il saute une ligne;

Je précise également qu'avant d'insérer le code le programme (mis à part mes combobox à 2 colonnes) tournait.

Une idée?

:(

En regardant ton fichier, finalement tu ne dois pas utilisé l'événement Change du Combo vu que tu passes par un bouton "valider", tu peux donc insérer le code dans ce bouton

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Valider_Click()   Dim DerL As Integer   With Sheets("Visite") 'je mets ma feuille de destination If .Cells(59, 1) = "" Then 'mes cellules de destinations (D59 et E59) DerL = 59 'ma première ligne (ligne 59) ou je veux inscrire mes données .Cells(59, 1) = 1 'cellule D59 Else DerL = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(DerL, 1) = Cells(DerL - 1, 1) + 1 End If   .Cells(DerL, 4) = Me.Num.List(Num.ListIndex, 0) 'insertion de ma donnée (colonne 1 de ma combobox (que j'ai appelé Num))en cellule D59 .Cells(DerL, 5) = Me.Num.List(Num.ListIndex, 1) 'insertion de ma donnée (colonne 2 de ma combobox (que j'ai appelé Num))en cellule E59   End With   MsgBox "La visite a été prise en compte et ajoutée au tableau !", vbInformation Visite.Hide Rows(59).Select Selection.Insert 'etc...

---

J'ai testé et cette partie de code fonctionne

Un bémol à mon message précédent, j'ai été dans feuille 1 et j'ai supprimé la ligne: .Num.Text = "" qui me reméttai ma combobox à 0 chaque fois que je cliquait sur nouvelle visite

Cette manip a eu plusieurs effets :
1°) elle ne remet pas ma combobox à zéro à chaque foi:(
2°) elle ne me met plus de bug:)
3°) La numérotation ne fonctionne plus:!

Concernant le 3°) la numérotation continue à chaque lancement du fichier normalement là ça ne fonctionne plus

???

:D ça fonctionne presque je rencontre un problème avec la numérotation dans ma cellule A59 il apparait toujours 1 et il n'y a pas d'incrémentation, je vais à nouveau vérifier.

Je vais également voir si je peux remettre ma combobox à 0 à chaque démarrage (=clic sur nouvelle visite).

Un grand grand merci

Le problème de numérotation est là

Code:

---

1 2	Rows(59).Select Selection.Insert

---

tu insères à chaque fois une nouvelle ligne et donc A59 est toujours vide et donc il considère qu'il n'y a pas encore de valeurs introduites et donc...il commence la numérotation à 1.

Pourquoi insérer une nouvelle ligne à chaque fois ?

Le but est de réaliser une synthèse de chaque visite effectuée, aussi, je ne souhaite pas écraser chaque nouvelle ligne, la méthode que j'utilise est peut être mauvaise, elles est tirée de divers exemple que j'ai rencontré sur le net.

Il existe peut être une autre méthode (comment ajoutais tu chaque ligne dans l'exemple que tu m'avais envoyé)

Pour remettre à 0 pas de Pb sa marche nickel

Citation:

---

Envoyé par Vincent23

(comment ajoutais tu chaque ligne dans l'exemple que tu m'avais envoyé)

---

Pourquoi ajouter des lignes alors qu'il reste 65500 lignes vides en dessous ?

La procédure que je t'ai proposée insère les valeurs les unes en dessous des autres

Ton tableau va donc s'étendre au fur et à mesure que tu vas ajouter des lignes. Pour récupérer la mise en forme des lignes et leurs bordures, ajoutes les 3 lignes de code suivantes.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub Valider_Click()   Dim DerL As Integer   With Sheets("Visite") 'je mets ma feuille de destination If .Cells(59, 1) = "" Then 'mes cellules de destinations (D59 et E59) DerL = 59 'ma première ligne (ligne 59) ou je veux inscrire mes données .Cells(59, 1) = 1 'cellule D59 Else DerL = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(DerL, 1) = Cells(DerL - 1, 1) + 1 End If   .Cells(DerL, 4) = Me.Num.List(Num.ListIndex, 0) 'insertion de ma donnée (colonne 1 de ma combobox (que j'ai appelé Num))en cellule D59 .Cells(DerL, 5) = Me.Num.List(Num.ListIndex, 1) 'insertion de ma donnée (colonne 2 de ma combobox (que j'ai appelé Num))en cellule E59   'récupération de la mise en forme .Rows(DerL - 1).Copy .Rows(DerL).PasteSpecial xlFormats Application.CutCopyMode = False   End With   MsgBox "La visite a été prise en compte et ajoutée au tableau !", vbInformation Visite.Hide

---

Et supprime

Code:

---

1 2	Rows(59).Select Selection.Insert

---

okay je vais suivre ta démarche, et te tenir au courant;)

Pour info est il nécessaire de modifier mes autres contrôles ou si ils vont se décaler automatiquement à partir du moment ou je vais suivre ta procédure.

Etant donné la rapidité de tes réponses et leur pertinence est ce que je pourrais te poser de nouvelles questions sous ce sujet ou si je dois créer un nouveau sujet.

J'ai d'ors et déjà une autre question concernant les combobox à 2 colonnes,
j'ai une deuxième combobox je vais suivre la même démarche je peux tjs utiliser DerL ou si je dois prendre une autre variable.

Enorme merci de tout ce que tu fais pour moi