En faite le tableau de la feuil2 peut etre répété autant de fois que je veux, je ne sais pas combien il va en avoir.
Private Sub Worksheet_Change(ByVal Target As Range)
'au changement d'un numéro de tableau en colonne D,
'cherche les infos correspondantes dans la feuille "Données", pour les recopier
Application.EnableEvents = False
If Target.Column = 4 And Target.Interior.ColorIndex = 2 Then 'colonne D sur une cellule coloré en blanc
'on cherche la position du tableau dans la feuille données
With Sheets("feuil4").Range("A:A")
'MsgBox Target.Item(1)
Set c = .Find(Target.Item(1)) ', LookIn:=xlValues, XlLookAt:=xlWhole)
On Error Resume Next
If Not c Is Nothing Then
If c.Value <> "" Then
'recopie du tableau
.Range("B" & c.Row & ":F" & c.Row + 4).Copy Destination:=Target.Offset(0, 1) 'va comprendre pourquoi il faut mettre B et F pour copier CG......?????
Else
Target.Offset(0, 1).Resize(4, 5).ClearContents 'si numéro pas trouvé: on efface
End If
Else
Target.Offset(0, 1).Resize(4, 5).ClearContents 'si numéro pas trouvé: on efface
End If
End With
End If
Application.EnableEvents = True
End Sub
J'avais fais ce code mais le problème c'est que la je copie colle le tableau comme il est sauf que dans mon cas la le tableau n'est pas de la même forme donc il faudrait selectionner par colonne ou je ne sais pas
Merci pour ton aide, j'espere que tu comprend mon problème