bonsoir le forum
j'ai souci de code que je n'arrive pas a résoudre
j'ai crée un bouton "effacer ligne" pour effacer des données, couleur de police et de remplissage sur une ligne
mais de temps en temps ca efface aussi les trait de contour de cellule
mon code fait un peut "bricolage" mais j'ai trouvé d'autre a ma porté
quelqu'un aurait une idée ?
Sub Effacer_ligne_de_donnée()
If ActiveCell.Column <> 1 Then Exit Sub 'si le double-clic a lieu ailleurs que dans la colonne A, sort de la procédure
Sheets("Planning").Select
Range("A89:L89").Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column)
End Sub
j'ai souci de code que je n'arrive pas a résoudre
j'ai crée un bouton "effacer ligne" pour effacer des données, couleur de police et de remplissage sur une ligne
mais de temps en temps ca efface aussi les trait de contour de cellule
mon code fait un peut "bricolage" mais j'ai trouvé d'autre a ma porté
quelqu'un aurait une idée ?
Sub Effacer_ligne_de_donnée()
If ActiveCell.Column <> 1 Then Exit Sub 'si le double-clic a lieu ailleurs que dans la colonne A, sort de la procédure
Sheets("Planning").Select
Range("A89:L89").Copy Destination:=Cells(ActiveCell.Row, ActiveCell.Column)
End Sub