Bonjour chers membres,
Dans une autre discussion, un membre (@pierrejean merci 🙂) m'a donnée une macro qui fonctionne nickel ! En fait, quand on clique sur une cellule de colonne B, le tableau correspondant qui se situe sur le deuxième onglet se fait "copier" dans la colonne J et K. Tout cela est parfait mais elle ne fonctionne pas quand je sélectionne la cellule B18, pourtant, y a bien une en-tête de tableau qui a exactement le même nom. Pouvez-vous m'aider ? C'est mon fichier que j'utilise pour ma ressource et je l'améliore.
Merci beaucoup !
Dans une autre discussion, un membre (@pierrejean merci 🙂) m'a donnée une macro qui fonctionne nickel ! En fait, quand on clique sur une cellule de colonne B, le tableau correspondant qui se situe sur le deuxième onglet se fait "copier" dans la colonne J et K. Tout cela est parfait mais elle ne fonctionne pas quand je sélectionne la cellule B18, pourtant, y a bien une en-tête de tableau qui a exactement le même nom. Pouvez-vous m'aider ? C'est mon fichier que j'utilise pour ma ressource et je l'améliore.
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B4:B38")) Is Nothing Then
x = ActiveCell.Value
Set c = Feuil1.Range("B1:O124").Find(x, LookIn:=xlValues)
If Not c Is Nothing Then
For n = c.Row To Rows.Count
If Feuil1.Cells(n, c.Column) = "" Then
fin = n
Exit For
End If
Next
Sheets("Accueil").Range("J2:K" & Rows.Count) = ""
Feuil1.Range(Cells(c.Row, c.Column).Address & ":" & Cells(fin, c.Column + 1).Address).Copy Destination:=Sheets("Accueil").Range("J2")
Else
MsgBox ("Pas trouvé")
End If
End If
End SubMerci beaucoup !