Mise à jour de liste déroulante

Bonsoir,
Cette ligne suffit pour vider la liste
Cbonof.Clear
Le remplissage de la liste reste correct donc je pense que ta macro
n'est pas exécutée aprés ta suppression de ligne.
Dans ton bouton qui supprime la ligne mets en dernier pour appeler la macro
si ce n'est pas fait
MiseAjourListeDeroulante2

Youky

"opreman" <oprema@cgocable.ca> a écrit dans le message de news:
1161112914.534031.68920@f16g2000cwb.googlegroups.com...
Bonjour, voici mon problème, j'espère que quelqu'un peux m'aider.
J'ai un classeur dont les données commence à la ligne 3.
Dans un userform, j'ai un bouton "supprimer" ( pour effacer une ligne
puis trier ) . Jusque là, ça va bien.
Cependant ma liste déroulante du userform ne se met pas correctement
à jour avec la routine que j'ai mis ( voir plus bas ). à partir de la
ligne que j'ai enlever, les information ne sont plus syncro.
Ou est l'erreur ? merci à l'avance

Private Sub MiseAjourListeDeroulante2()
'Suppression des entrées de la liste si celle-ci en contient
If Cbonof.ListCount >= 1 Then
Dim ElementListe As Integer
Dim NbreElt As Integer
NbreElt = Cbonof.ListCount - 1
For ElementListe = NbreElt To 0 Step -1
Cbonof.RemoveItem (ElementListe)
Next ElementListe
End If
'Ajout de tous les noms des fournisseurs
Dim compteur As Long
Dim ajoutFourn As String
For compteur = 3 To sheets("Fourn").Range("A2").End(xlDown).Row
ajoutFourn = sheets("Fourn").Range("A" & compteur).Value
Cbonof.AddItem (ajoutFourn)
Next compteur
End Sub

Je te remercie, pour vider, c'est beaucoup plus simple. Cependant mon
problème demeure.
Lorsque je supprime, les infos correspondants à mon cbonof sont
décalés. Ça doit venir de :
Crois-tu que tu peux encore m'aider ?


Private Sub Cbonof_change()
Dim LigneSel As Long
LigneSel = Cbonof.ListIndex + 3
TextNom = sheets("Fourn").Range("B" & LigneSel).Value
TextAdresse = sheets("Fourn").Range("C" & LigneSel).Value
TextVille = sheets("Fourn").Range("D" & LigneSel).Value
TextProvince = sheets("Fourn").Range("E" & LigneSel).Value
TextPays = sheets("Fourn").Range("F" & LigneSel).Value
TextCodepostal = sheets("Fourn").Range("G" & LigneSel).Value
TextTel = sheets("Fourn").Range("H" & LigneSel).Value
Texttel2 = sheets("Fourn").Range("I" & LigneSel).Value
TextFax = sheets("Fourn").Range("J" & LigneSel).Value
TextWeb = sheets("Fourn").Range("K" & LigneSel).Value
TextTrans = sheets("Fourn").Range("L" & LigneSel).Value
TextVia = sheets("Fourn").Range("M" & LigneSel).Value
TextCond = sheets("Fourn").Range("N" & LigneSel).Value
TextNom1 = sheets("Fourn").Range("O" & LigneSel).Value
TextExt1 = sheets("Fourn").Range("P" & LigneSel).Value
TextCour1 = sheets("Fourn").Range("Q" & LigneSel).Value
TextCell1 = sheets("Fourn").Range("R" & LigneSel).Value
TextNom2 = sheets("Fourn").Range("S" & LigneSel).Value
TextExt2 = sheets("Fourn").Range("T" & LigneSel).Value
TextCour2 = sheets("Fourn").Range("U" & LigneSel).Value
TextCell2 = sheets("Fourn").Range("V" & LigneSel).Value
End Sub





Youky wrote:

Bonsoir,
Cette ligne suffit pour vider la liste
Cbonof.Clear
Le remplissage de la liste reste correct donc je pense que ta macro
n'est pas exécutée aprés ta suppression de ligne.
Dans ton bouton qui supprime la ligne mets en dernier pour appeler la mac ro
si ce n'est pas fait
MiseAjourListeDeroulante2

Youky

"opreman" <oprema@cgocable.ca> a écrit dans le message de news:
1161112914.534031.68920@f16g2000cwb.googlegroups.com...
Bonjour, voici mon problème, j'espère que quelqu'un peux m'aider.
J'ai un classeur dont les données commence à la ligne 3.
Dans un userform, j'ai un bouton "supprimer" ( pour effacer une ligne
puis trier ) . Jusque là, ça va bien.
Cependant ma liste déroulante du userform ne se met pas correctement
à jour avec la routine que j'ai mis ( voir plus bas ). à partir de la
ligne que j'ai enlever, les information ne sont plus syncro.
Ou est l'erreur ? merci à l'avance

Private Sub MiseAjourListeDeroulante2()
'Suppression des entrées de la liste si celle-ci en contient
If Cbonof.ListCount >= 1 Then
Dim ElementListe As Integer
Dim NbreElt As Integer
NbreElt = Cbonof.ListCount - 1
For ElementListe = NbreElt To 0 Step -1
Cbonof.RemoveItem (ElementListe)
Next ElementListe
End If
'Ajout de tous les noms des fournisseurs
Dim compteur As Long
Dim ajoutFourn As String
For compteur = 3 To sheets("Fourn").Range("A2").End(xlDown).Row
ajoutFourn = sheets("Fourn").Range("A" & compteur).Value
Cbonof.AddItem (ajoutFourn)
Next compteur
End Sub

Re,
Le premier N° listindex commence à zéro, donc remplace 3 par 4
LigneSel = Cbonof.ListIndex + 4
encore un truc rien à voir, attention si qlq'un renomme la page
il est prérérable d'appeler la sheet par son CodeName qui sera soit Feuil1
ou Feuil2 ou +
tu peux le verifier en fenetre vbprojet, à droite le nom de l'onglet et à
gauche le vrai nom
ce qui fait selon le nom.........
TextNom = Feuil1.Range("B" & LigneSel).Value
ou encore
With Feuil1
TextNom = .Range("B" & LigneSel).Value

et la suite , attention un point avant Range. . . .

End with

End Sub

Bon ben j'ai fais la rectif, attention rectifie bien le nom de Feuil1 ou
autre N°
pour le with, pêt à copier, et rectif du N° Feuil
Youky

Private Sub Cbonof_change()
Dim LigneSel As Long
LigneSel = Cbonof.ListIndex + 4
With Feuil1 'ici soit Feuil1 Feuil2 Feuil3, Feuil4
TextNom = .Range("B" & LigneSel).Value
TextAdresse = .Range("C" & LigneSel).Value
TextVille = .Range("D" & LigneSel).Value
TextProvince = .Range("E" & LigneSel).Value
TextPays = .Range("F" & LigneSel).Value
TextCodepostal = .Range("G" & LigneSel).Value
TextTel = .Range("H" & LigneSel).Value
Texttel2 = .Range("I" & LigneSel).Value
TextFax = .Range("J" & LigneSel).Value
TextWeb = .Range("K" & LigneSel).Value
TextTrans = .Range("L" & LigneSel).Value
TextVia = .Range("M" & LigneSel).Value
TextCond = .Range("N" & LigneSel).Value
TextNom1 = .Range("O" & LigneSel).Value
TextExt1 = .Range("P" & LigneSel).Value
TextCour1 = .Range("Q" & LigneSel).Value
TextCell1 = .Range("R" & LigneSel).Value
TextNom2 = .Range("S" & LigneSel).Value
TextExt2 = .Range("T" & LigneSel).Value
TextCour2 = .Range("U" & LigneSel).Value
TextCell2 = .Range("V" & LigneSel).Value
End With
End Sub

"opreman" <oprema@cgocable.ca> a écrit dans le message de news:
1161120350.207603.313920@i42g2000cwa.googlegroups.com...
Je te remercie, pour vider, c'est beaucoup plus simple. Cependant mon
problème demeure.
Lorsque je supprime, les infos correspondants à mon cbonof sont
décalés. Ça doit venir de :
Crois-tu que tu peux encore m'aider ?


Private Sub Cbonof_change()
Dim LigneSel As Long
LigneSel = Cbonof.ListIndex + 3
TextNom = sheets("Fourn").Range("B" & LigneSel).Value
TextAdresse = sheets("Fourn").Range("C" & LigneSel).Value
TextVille = sheets("Fourn").Range("D" & LigneSel).Value
TextProvince = sheets("Fourn").Range("E" & LigneSel).Value
TextPays = sheets("Fourn").Range("F" & LigneSel).Value
TextCodepostal = sheets("Fourn").Range("G" & LigneSel).Value
TextTel = sheets("Fourn").Range("H" & LigneSel).Value
Texttel2 = sheets("Fourn").Range("I" & LigneSel).Value
TextFax = sheets("Fourn").Range("J" & LigneSel).Value
TextWeb = sheets("Fourn").Range("K" & LigneSel).Value
TextTrans = sheets("Fourn").Range("L" & LigneSel).Value
TextVia = sheets("Fourn").Range("M" & LigneSel).Value
TextCond = sheets("Fourn").Range("N" & LigneSel).Value
TextNom1 = sheets("Fourn").Range("O" & LigneSel).Value
TextExt1 = sheets("Fourn").Range("P" & LigneSel).Value
TextCour1 = sheets("Fourn").Range("Q" & LigneSel).Value
TextCell1 = sheets("Fourn").Range("R" & LigneSel).Value
TextNom2 = sheets("Fourn").Range("S" & LigneSel).Value
TextExt2 = sheets("Fourn").Range("T" & LigneSel).Value
TextCour2 = sheets("Fourn").Range("U" & LigneSel).Value
TextCell2 = sheets("Fourn").Range("V" & LigneSel).Value
End Sub

Merci beaucoup pour ton temps..mais voilà :

Si je change le 3 pour un 4. Ca génère d'autres problèmes.
1) Lorsque je veux juste consulter ou ajouter un item, ca prend le 3.
2) Lorsque je supprime, `ca prends le 3 jusqu'à la ligne supprimée,
puis le 4 pour les lignes suivantes.
As-tu une idée ????
NB Merci pour le truc des feuil1....

Pierre


Youky wrote:

Re,
Le premier N° listindex commence à zéro, donc remplace 3 par 4
LigneSel = Cbonof.ListIndex + 4
encore un truc rien à voir, attention si qlq'un renomme la page
il est prérérable d'appeler la sheet par son CodeName qui sera soit Feuil1
ou Feuil2 ou +
tu peux le verifier en fenetre vbprojet, à droite le nom de l'onglet et à
gauche le vrai nom
ce qui fait selon le nom.........
TextNom = Feuil1.Range("B" & LigneSel).Value
ou encore
With Feuil1
TextNom = .Range("B" & LigneSel).Value

et la suite , attention un point avant Range. . . .

End with

End Sub

Bon ben j'ai fais la rectif, attention rectifie bien le nom de Feuil1 ou
autre N°
pour le with, pêt à copier, et rectif du N° Feuil
Youky

Private Sub Cbonof_change()
Dim LigneSel As Long
LigneSel = Cbonof.ListIndex + 4
With Feuil1 'ici soit Feuil1 Feuil2 Feuil3, Feuil4
TextNom = .Range("B" & LigneSel).Value
TextAdresse = .Range("C" & LigneSel).Value
TextVille = .Range("D" & LigneSel).Value
TextProvince = .Range("E" & LigneSel).Value
TextPays = .Range("F" & LigneSel).Value
TextCodepostal = .Range("G" & LigneSel).Value
TextTel = .Range("H" & LigneSel).Value
Texttel2 = .Range("I" & LigneSel).Value
TextFax = .Range("J" & LigneSel).Value
TextWeb = .Range("K" & LigneSel).Value
TextTrans = .Range("L" & LigneSel).Value
TextVia = .Range("M" & LigneSel).Value
TextCond = .Range("N" & LigneSel).Value
TextNom1 = .Range("O" & LigneSel).Value
TextExt1 = .Range("P" & LigneSel).Value
TextCour1 = .Range("Q" & LigneSel).Value
TextCell1 = .Range("R" & LigneSel).Value
TextNom2 = .Range("S" & LigneSel).Value
TextExt2 = .Range("T" & LigneSel).Value
TextCour2 = .Range("U" & LigneSel).Value
TextCell2 = .Range("V" & LigneSel).Value
End With
End Sub

"opreman" <oprema@cgocable.ca> a écrit dans le message de news:
1161120350.207603.313920@i42g2000cwa.googlegroups.com...
Je te remercie, pour vider, c'est beaucoup plus simple. Cependant mon
problème demeure.
Lorsque je supprime, les infos correspondants à mon cbonof sont
décalés. Ça doit venir de :
Crois-tu que tu peux encore m'aider ?


Private Sub Cbonof_change()
Dim LigneSel As Long
LigneSel = Cbonof.ListIndex + 3
TextNom = sheets("Fourn").Range("B" & LigneSel).Value
TextAdresse = sheets("Fourn").Range("C" & LigneSel).Value
TextVille = sheets("Fourn").Range("D" & LigneSel).Value
TextProvince = sheets("Fourn").Range("E" & LigneSel).Value
TextPays = sheets("Fourn").Range("F" & LigneSel).Value
TextCodepostal = sheets("Fourn").Range("G" & LigneSel).Value
TextTel = sheets("Fourn").Range("H" & LigneSel).Value
Texttel2 = sheets("Fourn").Range("I" & LigneSel).Value
TextFax = sheets("Fourn").Range("J" & LigneSel).Value
TextWeb = sheets("Fourn").Range("K" & LigneSel).Value
TextTrans = sheets("Fourn").Range("L" & LigneSel).Value
TextVia = sheets("Fourn").Range("M" & LigneSel).Value
TextCond = sheets("Fourn").Range("N" & LigneSel).Value
TextNom1 = sheets("Fourn").Range("O" & LigneSel).Value
TextExt1 = sheets("Fourn").Range("P" & LigneSel).Value
TextCour1 = sheets("Fourn").Range("Q" & LigneSel).Value
TextCell1 = sheets("Fourn").Range("R" & LigneSel).Value
TextNom2 = sheets("Fourn").Range("S" & LigneSel).Value
TextExt2 = sheets("Fourn").Range("T" & LigneSel).Value
TextCour2 = sheets("Fourn").Range("U" & LigneSel).Value
TextCell2 = sheets("Fourn").Range("V" & LigneSel).Value
End Sub

Private Sub Cbonof_Click()
au lieu de :
Private Sub Cbonof_change()
Il faut utiliser l'évévement Click et non pas Change
je n'avais pas remarqué de suite....
je pense que tout va rentrer dans l'ordre.
Youky
"opreman" <oprema@cgocable.ca> a écrit dans le message de news:
1161176254.496036.321010@m73g2000cwd.googlegroups.com...
Merci beaucoup pour ton temps..mais voilà :

Si je change le 3 pour un 4. Ca génère d'autres problèmes.
1) Lorsque je veux juste consulter ou ajouter un item, ca prend le 3.
2) Lorsque je supprime, `ca prends le 3 jusqu'à la ligne supprimée,
puis le 4 pour les lignes suivantes.
As-tu une idée ????
NB Merci pour le truc des feuil1....

Pierre


Youky wrote:

Re,
Le premier N° listindex commence à zéro, donc remplace 3 par 4
LigneSel = Cbonof.ListIndex + 4
encore un truc rien à voir, attention si qlq'un renomme la page
il est prérérable d'appeler la sheet par son CodeName qui sera soit
Feuil1
ou Feuil2 ou +
tu peux le verifier en fenetre vbprojet, à droite le nom de l'onglet et à
gauche le vrai nom
ce qui fait selon le nom.........
TextNom = Feuil1.Range("B" & LigneSel).Value
ou encore
With Feuil1
TextNom = .Range("B" & LigneSel).Value

et la suite , attention un point avant Range. . . .

End with

End Sub

Bon ben j'ai fais la rectif, attention rectifie bien le nom de Feuil1 ou
autre N°
pour le with, pêt à copier, et rectif du N° Feuil
Youky

Private Sub Cbonof_change()
Dim LigneSel As Long
LigneSel = Cbonof.ListIndex + 4
With Feuil1 'ici soit Feuil1 Feuil2 Feuil3, Feuil4
TextNom = .Range("B" & LigneSel).Value
TextAdresse = .Range("C" & LigneSel).Value
TextVille = .Range("D" & LigneSel).Value
TextProvince = .Range("E" & LigneSel).Value
TextPays = .Range("F" & LigneSel).Value
TextCodepostal = .Range("G" & LigneSel).Value
TextTel = .Range("H" & LigneSel).Value
Texttel2 = .Range("I" & LigneSel).Value
TextFax = .Range("J" & LigneSel).Value
TextWeb = .Range("K" & LigneSel).Value
TextTrans = .Range("L" & LigneSel).Value
TextVia = .Range("M" & LigneSel).Value
TextCond = .Range("N" & LigneSel).Value
TextNom1 = .Range("O" & LigneSel).Value
TextExt1 = .Range("P" & LigneSel).Value
TextCour1 = .Range("Q" & LigneSel).Value
TextCell1 = .Range("R" & LigneSel).Value
TextNom2 = .Range("S" & LigneSel).Value
TextExt2 = .Range("T" & LigneSel).Value
TextCour2 = .Range("U" & LigneSel).Value
TextCell2 = .Range("V" & LigneSel).Value
End With
End Sub

"opreman" <oprema@cgocable.ca> a écrit dans le message de news:
1161120350.207603.313920@i42g2000cwa.googlegroups.com...
Je te remercie, pour vider, c'est beaucoup plus simple. Cependant mon
problème demeure.
Lorsque je supprime, les infos correspondants à mon cbonof sont
décalés. Ça doit venir de :
Crois-tu que tu peux encore m'aider ?


Private Sub Cbonof_change()
Dim LigneSel As Long
LigneSel = Cbonof.ListIndex + 3
TextNom = sheets("Fourn").Range("B" & LigneSel).Value
TextAdresse = sheets("Fourn").Range("C" & LigneSel).Value
TextVille = sheets("Fourn").Range("D" & LigneSel).Value
TextProvince = sheets("Fourn").Range("E" & LigneSel).Value
TextPays = sheets("Fourn").Range("F" & LigneSel).Value
TextCodepostal = sheets("Fourn").Range("G" & LigneSel).Value
TextTel = sheets("Fourn").Range("H" & LigneSel).Value
Texttel2 = sheets("Fourn").Range("I" & LigneSel).Value
TextFax = sheets("Fourn").Range("J" & LigneSel).Value
TextWeb = sheets("Fourn").Range("K" & LigneSel).Value
TextTrans = sheets("Fourn").Range("L" & LigneSel).Value
TextVia = sheets("Fourn").Range("M" & LigneSel).Value
TextCond = sheets("Fourn").Range("N" & LigneSel).Value
TextNom1 = sheets("Fourn").Range("O" & LigneSel).Value
TextExt1 = sheets("Fourn").Range("P" & LigneSel).Value
TextCour1 = sheets("Fourn").Range("Q" & LigneSel).Value
TextCell1 = sheets("Fourn").Range("R" & LigneSel).Value
TextNom2 = sheets("Fourn").Range("S" & LigneSel).Value
TextExt2 = sheets("Fourn").Range("T" & LigneSel).Value
TextCour2 = sheets("Fourn").Range("U" & LigneSel).Value
TextCell2 = sheets("Fourn").Range("V" & LigneSel).Value
End Sub

merci beaucoup Youki
CA MARCHE !!!!!!!!


Salut
Pierre



Youky wrote:

Private Sub Cbonof_Click()
au lieu de :
Private Sub Cbonof_change()
Il faut utiliser l'évévement Click et non pas Change
je n'avais pas remarqué de suite....
je pense que tout va rentrer dans l'ordre.
Youky
"opreman" <oprema@cgocable.ca> a écrit dans le message de news:
1161176254.496036.321010@m73g2000cwd.googlegroups.com...
Merci beaucoup pour ton temps..mais voilà :

Si je change le 3 pour un 4. Ca génère d'autres problèmes.
1) Lorsque je veux juste consulter ou ajouter un item, ca prend le 3.
2) Lorsque je supprime, `ca prends le 3 jusqu'à la ligne supprimée,
puis le 4 pour les lignes suivantes.
As-tu une idée ????
NB Merci pour le truc des feuil1....

Pierre


Youky wrote:

Re,
Le premier N° listindex commence à zéro, donc remplace 3 par 4
LigneSel = Cbonof.ListIndex + 4
encore un truc rien à voir, attention si qlq'un renomme la page
il est prérérable d'appeler la sheet par son CodeName qui sera soit
Feuil1
ou Feuil2 ou +
tu peux le verifier en fenetre vbprojet, à droite le nom de l'onglet et à
gauche le vrai nom
ce qui fait selon le nom.........
TextNom = Feuil1.Range("B" & LigneSel).Value
ou encore
With Feuil1
TextNom = .Range("B" & LigneSel).Value

et la suite , attention un point avant Range. . . .

End with

End Sub

Bon ben j'ai fais la rectif, attention rectifie bien le nom de Feuil1 ou
autre N°
pour le with, pêt à copier, et rectif du N° Feuil
Youky

Private Sub Cbonof_change()
Dim LigneSel As Long
LigneSel = Cbonof.ListIndex + 4
With Feuil1 'ici soit Feuil1 Feuil2 Feuil3, Feuil4
TextNom = .Range("B" & LigneSel).Value
TextAdresse = .Range("C" & LigneSel).Value
TextVille = .Range("D" & LigneSel).Value
TextProvince = .Range("E" & LigneSel).Value
TextPays = .Range("F" & LigneSel).Value
TextCodepostal = .Range("G" & LigneSel).Value
TextTel = .Range("H" & LigneSel).Value
Texttel2 = .Range("I" & LigneSel).Value
TextFax = .Range("J" & LigneSel).Value
TextWeb = .Range("K" & LigneSel).Value
TextTrans = .Range("L" & LigneSel).Value
TextVia = .Range("M" & LigneSel).Value
TextCond = .Range("N" & LigneSel).Value
TextNom1 = .Range("O" & LigneSel).Value
TextExt1 = .Range("P" & LigneSel).Value
TextCour1 = .Range("Q" & LigneSel).Value
TextCell1 = .Range("R" & LigneSel).Value
TextNom2 = .Range("S" & LigneSel).Value
TextExt2 = .Range("T" & LigneSel).Value
TextCour2 = .Range("U" & LigneSel).Value
TextCell2 = .Range("V" & LigneSel).Value
End With
End Sub

"opreman" <oprema@cgocable.ca> a écrit dans le message de news:
1161120350.207603.313920@i42g2000cwa.googlegroups.com...
Je te remercie, pour vider, c'est beaucoup plus simple. Cependant mon
problème demeure.
Lorsque je supprime, les infos correspondants à mon cbonof sont
décalés. Ça doit venir de :
Crois-tu que tu peux encore m'aider ?


Private Sub Cbonof_change()
Dim LigneSel As Long
LigneSel = Cbonof.ListIndex + 3
TextNom = sheets("Fourn").Range("B" & LigneSel).Value
TextAdresse = sheets("Fourn").Range("C" & LigneSel).Value
TextVille = sheets("Fourn").Range("D" & LigneSel).Value
TextProvince = sheets("Fourn").Range("E" & LigneSel).Value
TextPays = sheets("Fourn").Range("F" & LigneSel).Value
TextCodepostal = sheets("Fourn").Range("G" & LigneSel).Value
TextTel = sheets("Fourn").Range("H" & LigneSel).Value
Texttel2 = sheets("Fourn").Range("I" & LigneSel).Value
TextFax = sheets("Fourn").Range("J" & LigneSel).Value
TextWeb = sheets("Fourn").Range("K" & LigneSel).Value
TextTrans = sheets("Fourn").Range("L" & LigneSel).Value
TextVia = sheets("Fourn").Range("M" & LigneSel).Value
TextCond = sheets("Fourn").Range("N" & LigneSel).Value
TextNom1 = sheets("Fourn").Range("O" & LigneSel).Value
TextExt1 = sheets("Fourn").Range("P" & LigneSel).Value
TextCour1 = sheets("Fourn").Range("Q" & LigneSel).Value
TextCell1 = sheets("Fourn").Range("R" & LigneSel).Value
TextNom2 = sheets("Fourn").Range("S" & LigneSel).Value
TextExt2 = sheets("Fourn").Range("T" & LigneSel).Value
TextCour2 = sheets("Fourn").Range("U" & LigneSel).Value
TextCell2 = sheets("Fourn").Range("V" & LigneSel).Value
End Sub