Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Listbox et colonnes (adaptation)

Listbox et colonnes (adaptation)

4 réponses
Avatar
Vincent
Bonsoir
J'essai d'adapter cette procédure :
J'ai un userform frm_rattac et un listbox listox1
j'ai 2 colonnes dans mon listbox, je souhaite qu'après clic sur le bouton,
l'élément de la 1ère colonne aille dans ActiveCell.Offset(0, -1)
et que l'élément de la 2ème colonne dans ActiveCell.Offset(0, 0)
Merci
Vincent

Private Sub CommandButton2_Click()
ActiveCell.Offset(0, 0) = frm_rattac.ListBox1.Column(2,
frm_rattac.ListBox1.ListIndex)
ActiveCell.Offset(0, -1) = frm_rattac.ListBox1.Column(1,
frm_rattac.ListBox1.ListIndex)
Unload Me
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Hervé
Salut Vincent,
L'index des colonne commence à 0 :

Private Sub CommandButton2_Click()
With Me.ListBox1
ActiveCell.Offset(0, 0) = .Column(1, .ListIndex)
ActiveCell.Offset(0, -1) = .Column(0, .ListIndex)
End With
Unload Me
End Sub

Hervé

"Vincent" ézavu.com> a écrit dans le message news:

Bonsoir
J'essai d'adapter cette procédure :
J'ai un userform frm_rattac et un listbox listox1
j'ai 2 colonnes dans mon listbox, je souhaite qu'après clic sur le bouton,
l'élément de la 1ère colonne aille dans ActiveCell.Offset(0, -1)
et que l'élément de la 2ème colonne dans ActiveCell.Offset(0, 0)
Merci
Vincent

Private Sub CommandButton2_Click()
ActiveCell.Offset(0, 0) = frm_rattac.ListBox1.Column(2,
frm_rattac.ListBox1.ListIndex)
ActiveCell.Offset(0, -1) = frm_rattac.ListBox1.Column(1,
frm_rattac.ListBox1.ListIndex)
Unload Me
End Sub




Avatar
Vincent
Bonsoir et merci Hervé,
la proc plante impossible de définir la Column Index ???
J'ai beau la tourner dans tous les sens, elle ne veut rien savoir.
Vincent

"Hervé" a écrit dans le message de
news:
Salut Vincent,
L'index des colonne commence à 0 :

Private Sub CommandButton2_Click()
With Me.ListBox1
ActiveCell.Offset(0, 0) = .Column(1, .ListIndex)
ActiveCell.Offset(0, -1) = .Column(0, .ListIndex)
End With
Unload Me
End Sub

Hervé

"Vincent" ézavu.com> a écrit dans le message news:

Bonsoir
J'essai d'adapter cette procédure :
J'ai un userform frm_rattac et un listbox listox1
j'ai 2 colonnes dans mon listbox, je souhaite qu'après clic sur le
bouton,


l'élément de la 1ère colonne aille dans ActiveCell.Offset(0, -1)
et que l'élément de la 2ème colonne dans ActiveCell.Offset(0, 0)
Merci
Vincent

Private Sub CommandButton2_Click()
ActiveCell.Offset(0, 0) = frm_rattac.ListBox1.Column(2,
frm_rattac.ListBox1.ListIndex)
ActiveCell.Offset(0, -1) = frm_rattac.ListBox1.Column(1,
frm_rattac.ListBox1.ListIndex)
Unload Me
End Sub








Avatar
BJ
Bonsoir Hervé -Re bonsoir Vincent
Petit ajout pour éviter des plantages au cas ou aucune sélection n'a été
faite en listbox1(en début de macro)

If Me.ListBox1.ListIndex=-1 Then Exit Sub

Bruno
Hervé a écrit dans le message :

Salut Vincent,
L'index des colonne commence à 0 :

Private Sub CommandButton2_Click()
With Me.ListBox1
ActiveCell.Offset(0, 0) = .Column(1, .ListIndex)
ActiveCell.Offset(0, -1) = .Column(0, .ListIndex)
End With
Unload Me
End Sub

Hervé

"Vincent" ézavu.com> a écrit dans le message news:

Bonsoir
J'essai d'adapter cette procédure :
J'ai un userform frm_rattac et un listbox listox1
j'ai 2 colonnes dans mon listbox, je souhaite qu'après clic sur le
bouton,


l'élément de la 1ère colonne aille dans ActiveCell.Offset(0, -1)
et que l'élément de la 2ème colonne dans ActiveCell.Offset(0, 0)
Merci
Vincent

Private Sub CommandButton2_Click()
ActiveCell.Offset(0, 0) = frm_rattac.ListBox1.Column(2,
frm_rattac.ListBox1.ListIndex)
ActiveCell.Offset(0, -1) = frm_rattac.ListBox1.Column(1,
frm_rattac.ListBox1.ListIndex)
Unload Me
End Sub








Avatar
Vincent
Merci Bruno merci Hervé, cela fonctionne parfaitement.
C'est moi qui bug !
Bonne soirée
Vincent

"BJ" a écrit dans le message de
news:
Bonsoir Hervé -Re bonsoir Vincent
Petit ajout pour éviter des plantages au cas ou aucune sélection n'a été
faite en listbox1(en début de macro)

If Me.ListBox1.ListIndex=-1 Then Exit Sub

Bruno
Hervé a écrit dans le message :

Salut Vincent,
L'index des colonne commence à 0 :

Private Sub CommandButton2_Click()
With Me.ListBox1
ActiveCell.Offset(0, 0) = .Column(1, .ListIndex)
ActiveCell.Offset(0, -1) = .Column(0, .ListIndex)
End With
Unload Me
End Sub

Hervé

"Vincent" ézavu.com> a écrit dans le message news:

Bonsoir
J'essai d'adapter cette procédure :
J'ai un userform frm_rattac et un listbox listox1
j'ai 2 colonnes dans mon listbox, je souhaite qu'après clic sur le
bouton,


l'élément de la 1ère colonne aille dans ActiveCell.Offset(0, -1)
et que l'élément de la 2ème colonne dans ActiveCell.Offset(0, 0)
Merci
Vincent

Private Sub CommandButton2_Click()
ActiveCell.Offset(0, 0) = frm_rattac.ListBox1.Column(2,
frm_rattac.ListBox1.ListIndex)
ActiveCell.Offset(0, -1) = frm_rattac.ListBox1.Column(1,
frm_rattac.ListBox1.ListIndex)
Unload Me
End Sub