action de copier coller avec click sur des cellules

[CHTING]

Bonjour à toutes et à tous,

J'ai mis en place des formulaires sans passer par des userforms (pour des raisons de nombre de questions)
Et, j'ai un programme qui me permet de mettre un X et de colorer une cellule en un clic en fonction de son emplacement et que la cellule soit bordée. (en faite, j'ai fait des cases à cocher "manuellement").

J'aimerai, en plus de cocher ces cases, pouvoir en même temps copier coller les cellules en lien avec ces cases à cocher (les cellules d'à côté) dans une feuille vierge. Et je coince

Ci dessous mon code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 _
And (Target.Column = 4 _
Or Target.Column = 7 _
Or Target.Column = 10 _
Or Target.Column = 16 _
Or Target.Column = 20 _
Or Target.Column = 24 _
Or Target.Column = 28 _
Or Target.Column = 38 _
Or Target.Column = 42) _
And Target.Borders(xlEdgeLeft).Weight = xlMedium _
And Target.Borders(xlEdgeTop).Weight = xlMedium _
And Target.Borders(xlEdgeBottom).Weight = xlMedium _
And Target.Borders(xlEdgeRight).Weight = xlMedium Then


Target.Value = IIf(Target.Value = "X", "", "X")
Target.Font.Name = "WingDings"
Target.Font.Size = 12
Target.Interior.ColorIndex = IIf(Target.Value = "X", 41, 0)
End If

End Sub

...et je vous mets en pièce jointe un exemple


Merci par avance de votre aide.

Bien cordialement
CHTING

 

[Modeste]

Bonjour CHTING,

Il reste des précisions à apporter:

• qu'est-ce qui doit être recopié dans la seconde feuille?
• si tu coches, puis que tu décoches, il faut respectivement inscrire, puis supprimer la donnée recopiée dans ton autre feuille?
• si deux cases sont cochées sur la même ligne, qu'est-ce qu'on copie et où?

 

[CHTING]

Bonjour Modeste.

Effectivement, je n'ai pas été assez précis sur l'emplacement de la copie.
J'ai refait le fichier Excel avec une feuille 2 qui est l'emplacement de la copie.
Et oui, si je coche, puis que je décoche, il faut respectivement inscrire, puis supprimer la donnée recopiée dans l' autre feuille.
J'espère que ce sera plus clair.

Encore merci pour ton aide,

Chting