Info listbox dans textbox et modif de celui-ci

Re : Info listbox dans textbox et modif de celui-ci

bonsoir Poufab, bonsoir le forum,

Tu trouveras un problème très similaire dans ce lien. J'espère que tu pourras adapter à ton cas.

Re : Info listbox dans textbox et modif de celui-ci

Merci Robert,
Le fichier est très bien, je pourrai facilement l'adapter à ce que j'ai besoin en remaniant juste un peut les userform du fichier joint, j'ai testé sa marche. Mais mon but est de comprendre comment cela tout fonctionne, et j'ai voulue l'adapté à mon fichier en modifiant "les sources", mais sa ne marche pas ,et je comprend pas pourquoi, et tu vois j'aimerai bien comprendre pourquoi?

Le code est:

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim x As Integer 'déclare la variable x (incréemt)

'***************************
'alimentation de la ListBox1
'***************************
'boucles sur toutes les cellules éditées de la colonne C de l'onglet "Feuil2"
For x = 2 To Sheets("Feuil2").Range("C65536").End(xlUp).Row
With Me.ListBox1 'prend en compte la ListBox1
.AddItem Sheets("Feuil2").Cells(x, 2) 'ajoute la valeur de la colonne A
.Column(1, .ListCount - 1) = Sheets("Feuil2").Cells(x, 3) 'ajoute la valeur de la colonne B
.Column(2, .ListCount - 1) = Sheets("Feuil2").Cells(x, 4) 'ajoute la valeur de la colonne C
.Column(3, .ListCount - 1) = Sheets("Feuil2").Cells(x, 5) 'ajoute la valeur de la colonne D
.Column(4, .ListCount - 1) = Sheets("Feuil2").Cells(x, 6) 'ajoute la valeur de la colonne E
.Column(5, .ListCount - 1) = Sheets("Feuil2").Cells(x, 7) 'ajoute la valeur de la colonne F
.Column(6, .ListCount - 1) = Sheets("Feuil2").Cells(x, 8) 'ajoute la valeur de la colonne G
End With 'fin de la prise en compte de la ListBox1
Next x 'prochaine cellule de la boucle
'alimentation de la ComboBox1
Me.ComboBox1.List = Sheets("MOTIF").Range("A1:A" & Sheets("MOTIF").Range("A65536").End(xlUp).Row).Value
End Sub

Private Sub ListBox1_Click() 'au clic dans la ListBox1

If Me.Caption = "SUPPRESSION" Then Exit Sub 'si l'UserForm1 porte le titre "SUPPRESSION", sort de la procédure

'********************************
'récupère les données de la ligne
'********************************
With Me.ListBox1 'prend en compte la ListBox1
Me.TextBox1.Value = .Column(1, .ListIndex) 'récupère le nom
Me.TextBox2.Value = .Column(2, .ListIndex) 'récupère le prénom
Me.TextBox3.Value = .Column(3, .ListIndex) 'récupère la chambre
Me.ComboBox1.Value = .Column(4, .ListIndex) 'récupère lieu de rdv
Me.CheckBox1.Value = IIf(.Column(5, .ListIndex) = "X", True, False) 'récupère la régularisation
End With 'fin de la prise en compte de la ListBox1
Me.TextBox1.SetFocus 'place le curseur dans la TextBox1
'sélectionne le texte de la TextBox1
Me.TextBox1.SelStart = 0 'début de la sélection
Me.TextBox1.SelLength = Len(Me.TextBox1.Value) 'longueur de la sélection
End Sub
-------------------------------------------------------------------------
J'ai modifié "feuil2", viré les "Me.", decaler mes colonne de la base comme dans le fichier exemple mais sa ne marche pas.

Si quelqu'un peut m'indiquer l'erreur??? Que j'essaye de piger le truc pour essayer de me debrouillé seul par la suite.

Merci d'avance.

Re : Info listbox dans textbox et modif de celui-ci

Bonsoir Poufab, bonsoir le forum,
C'est ton fichier en pièce jointe qu'il nous faudrait pour pouvoir te dire où se trouve le problème...

Re : Info listbox dans textbox et modif de celui-ci

Robert à dit:

Bonsoir Poufab, bonsoir le forum,
C'est ton fichier en pièce jointe qu'il nous faudrait pour pouvoir te dire où se trouve le problème...

Cliquez pour agrandir...

Bien il y est en piéce jointe non?

Quand tu auras 2 min si tu peut jeter un coup!!

merci encore

Re : Info listbox dans textbox et modif de celui-ci

Salut le forum,
Donc j'ai dejà réussie à résoudre un des problèmes tout seul comme un grand! Youpi!!!

L'ancienne macro qui était avec le fichier exemple envoyé par le sympathique Robert:

poufab à dit:

'***************************
'alimentation de la ListBox1
'***************************
'boucles sur toutes les cellules éditées de la colonne C de l'onglet "Feuil2"
For x = 2 To Sheets("Feuil2").Range("C65536").End(xlUp).Row
With Me.ListBox1 'prend en compte la ListBox1
.AddItem Sheets("Feuil2").Cells(x, 2) 'ajoute la valeur de la colonne A
.Column(1, .ListCount - 1) = Sheets("Feuil2").Cells(x, 3) 'ajoute la valeur de la colonne B
.Column(2, .ListCount - 1) = Sheets("Feuil2").Cells(x, 4) 'ajoute la valeur de la colonne C
.Column(3, .ListCount - 1) = Sheets("Feuil2").Cells(x, 5) 'ajoute la valeur de la colonne D
.Column(4, .ListCount - 1) = Sheets("Feuil2").Cells(x, 6) 'ajoute la valeur de la colonne E
.Column(5, .ListCount - 1) = Sheets("Feuil2").Cells(x, 7) 'ajoute la valeur de la colonne F
.Column(6, .ListCount - 1) = Sheets("Feuil2").Cells(x, 8) 'ajoute la valeur de la colonne G
End With 'fin de la prise en compte de la ListBox1
Next x 'prochaine cellule de la boucle
'alimentation de la ComboBox1
Me.ComboBox1.List = Sheets("MOTIF").Range("A1:A" & Sheets("MOTIF").Range("A65536").End(xlUp).Row).Value
End Sub

Cliquez pour agrandir...

Que j'ai modifié comme tel:

Private Sub UserForm_Initialize()
'si la dernière ligne est supérieure à 256 déclarer i et x en Integer
Dim i As Byte, x As Byte
i = Sheets("BASE DE DONNEE").Range("C1000").End(xlUp).Row
For x = 1 To i
With ListBox1
.AddItem Sheets("BASE DE DONNEE").Cells(x, 2)
.Column(1, .ListCount - 1) = Sheets("base de donnee").Cells(x, 3)
.Column(2, .ListCount - 1) = Sheets("base de donnee").Cells(x, 4)
.Column(3, .ListCount - 1) = Sheets("base de donnee").Cells(x, 5)
.Column(4, .ListCount - 1) = Sheets("base de donnee").Cells(x, 6)
.Column(5, .ListCount - 1) = Sheets("base de donnee").Cells(x, 7)
End With
Next x
End Sub

Cliquez pour agrandir...

Mais petit probléme j'ai l'intitulé des colonnes qui se met dans la listbox comment évité cela??
Par contre j'ai toujours pas résolue le problème du click dans la listbox avec cette macro

Private Sub ListBox1_Click() 'au clic dans la ListBox1

If Me.Caption = "SUPPRESSION" Then Exit Sub 'si l'UserForm1 porte le titre "SUPPRESSION", sort de la procédure

'********************************
'récupère les données de la ligne
'********************************
With Me.ListBox1 'prend en compte la ListBox1
Me.TextBox1.Value = .Column(1, .ListIndex) 'récupère le nom
Me.TextBox2.Value = .Column(2, .ListIndex) 'récupère le prénom
Me.TextBox3.Value = .Column(3, .ListIndex) 'récupère la chambre
Me.ComboBox1.Value = .Column(4, .ListIndex) 'récupère lieu de rdv
Me.CheckBox1.Value = IIf(.Column(5, .ListIndex) = "X", True, False) 'récupère la régularisation
End With 'fin de la prise en compte de la ListBox1
Me.TextBox1.SetFocus 'place le curseur dans la TextBox1
'sélectionne le texte de la TextBox1
Me.TextBox1.SelStart = 0 'début de la sélection
Me.TextBox1.SelLength = Len(Me.TextBox1.Value) 'longueur de la sélection
End Sub

Cliquez pour agrandir...

J'ai l'impression que sa click pas du tout dans la listbox, peut être un truc à paramétré!!
Quelqu'un aurai une idée, pour résoudre cet épineux probléme???

Re : Info listbox dans textbox et modif de celui-ci

Bonsoir Poufab, bonsoir le forum,

Pour que ça marche il faut mettre le code me semble-t-il... En pièce jointe ton fichier modifié.

Re : Info listbox dans textbox et modif de celui-ci

Robert à dit:

Bonsoir Poufab, bonsoir le forum,

Pour que ça marche il faut mettre le code me semble-t-il... En pièce jointe ton fichier modifié.

Cliquez pour agrandir...

Merci Robert, j'avais trouver entre temps!!

Mais j'ai un autre problème, je ferai un autre post.

Encore merci.