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