afficher cellules par selection

[dad62]

bonjour à tous
j'aimerai des explications pour afficher une plage de cellules en cliquant dans une cellule ou sur un bouton.voir fichier joint.
merci.

 

[JHA]

Re : afficher cellules par selection

Re Dad, le forum,

Ci joint ton fichier avec des menus déroulant. je te laisse regarder les plages nommées et les listes de validation. Tu choisis en colonne A, puis en colonne B et tu as ensuite les données en C et F par une recherchev().

JHA

 

[dad62]

Re : afficher cellules par selection

salut,
je me suis certainement mal fait comprendre je voudrai par exemple en cliquant sur le bouton laiton que s'affiche en B3:F9 les cellules de la feuil3 A13:E:19 .
je ne sais pas formuler les macros mais il doit exister quel que chose comme quand clic show cells .
merci

 

[cbea]

Re : afficher cellules par selection

Bonjour Dad62, JHA,

Voici une autre solution.
L'affichage des valeurs s'effectue après un double clic dans la cellule.

 

[BOISGONTIER]

Re : afficher cellules par selection

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 1 Then
    Set result = Sheets("feuil3").[A:A].Find(What:=Target.Value, LookIn:=xlValues)
    If Not result Is Nothing Then
      Sheets("feuil3").Select
      result.Offset(1, 0).Resize(7, 5).Select
    End If
  End If
End Sub

JB
Formation Excel VBA JB

 

[dad62]

Re : afficher cellules par selection

parfait messieurs , je retient la version de CBEA ,pour la version de BOISGONTIER c'est un peu comme si je faisait un lien hypertexte.
encore merci .

 

[BOISGONTIER]

Re : afficher cellules par selection

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 1 Then
    Set result = Sheets("feuil3").[A:A].Find(What:=Target.Value, LookIn:=xlValues)
    If Not result Is Nothing Then
      result.Offset(1, 0).Resize(7, 5).Copy [b3]
    End If
  End If
End Sub

JB

 

[dad62]

Re : afficher cellules par selection

merci boisgontier ça marche aussi j'essaie de placer tout ça dans mon classeur et vous dit QUOI

 

[dad62]

Re : afficher cellules par selection

re
mes donnes sont dans mon classeur le tableau en feuil8(osci1)B46 et les listes en feuil12(quincail)A 143 ily a d'autres données sur les lignes supérieures(cela pose t'il un problème?)avec la macro de boisgontier voici ce que j'ai modifié ou est le hic?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Set result = Sheets("feuil12(quincail)").[A:A].Find(What:=Target.Value, LookIn:=xlValues)
If Not result Is Nothing Then
result.Offset(1, 0).Resize(7, 5).Copy [C46]
End If
End If
End Sub

 

[BOISGONTIER]

Re : afficher cellules par selection

Voir PJ

Si tu as mis C46 il faut regarder le résultat en C46:

result.Offset(1, 0).Resize(7, 5).Copy [C46]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 1 Then
    Set result = Sheets("feuil12(quincail)").[A:A].Find(What:=Target.Value, LookIn:=xlValues)
    If Not result Is Nothing Then
      result.Offset(1, 0).Resize(7, 5).Copy [b3]
    End If
  End If
End Sub

JB

 

[dad62]

Re : afficher cellules par selection

salut ça marche impec sauf que j'ai cafouillé avec le nom de la feuille .
merci et à la prochaine