action de copier coller avec click sur des cellules

CHTING

XLDnaute Junior
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
 

Pièces jointes

  • Exemple vba.xlsm
    78.9 KB · Affichages: 44

Modeste

XLDnaute Barbatruc
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

XLDnaute Junior
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
 

Pièces jointes

  • Exemple vba 2.xlsm
    79.8 KB · Affichages: 37

Discussions similaires

Statistiques des forums

Discussions
312 932
Messages
2 093 727
Membres
105 801
dernier inscrit
ilitch