renvoi liste par combobox

porcinet82

XLDnaute Barbatruc

• 30 Décembre 2008

• #2

Re : renvoi liste par combobox

Salut,

C'est peut etre faisable par formule, mais voici une macro a placer dans le module de la feuille concernée (ca fonctionne pour ton fichier tel quel, donc qui dit modif, dit adaptation...):

Code:

Private Sub ComboBox1_Change()
Dim j%
For j = 5 To 8 'colonne E à H
    If Cells(2, j).Value = Cells(4, 3).Value Then 'test si le numéro (ligne2) est égal à la valeur de la cellule C4
        Range(Cells(3, j), Cells(6, j)).Copy Destination:=Range("B7:B10") 'Copie de la liste
        Exit Sub
    End If
Next j
End Sub

@+

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 30 Décembre 2008

• #3

Re : renvoi liste par combobox

Bonjour,

-Sélectionner B7:B10
=INDEX(E3:H6;;C4)
-Valider avec Maj+ctrl+entrée

JB
Formation Excel VBA JB

 

Pièces jointes

• Classeur1(1).xls

  33.5 KB · Affichages: 86
• Classeur1(1).xls

  33.5 KB · Affichages: 91
• Classeur1(1).xls

  33.5 KB · Affichages: 86

Vote positif 0 Vote négatif

J

jtitin

XLDnaute Occasionnel

• 30 Décembre 2008

• #4

Re : renvoi liste par combobox

merci pour ta réponse Porcinet82

mais quelqu'un peut m'aiguiller sur une formule

merci encore

 

Vote positif 0 Vote négatif

J

jtitin

XLDnaute Occasionnel

• 30 Décembre 2008

• #5

Re : renvoi liste par combobox

Hop pas vue la réponse de BOISGONTIER

merci c'est super

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 30 Décembre 2008

• #6

Re : renvoi liste par combobox

Bonjour

peut-être comme ceci

 

Pièces jointes

• decaler_rgi.xls

  38.5 KB · Affichages: 75

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 30 Décembre 2008

• #7

Re : renvoi liste par combobox

Bonjour
Cela doit fonctionné??

HTML:

=DECALER((E3);;EQUIV(DROITE($C$2;1)*1;$E$2:$H$2;0)-1;)

à mettre en B7 et tirer vers le bas

 

Vote positif 0 Vote négatif