Un bouton de commande par ligne

Re : Un bouton de commande par ligne

Bonsoir Lio, bonsoir le forum,

Pourquoi un bouton pour chaque ligne qui risque d'alourdir ton fichier ? Je te propose de supprimer les formats de la ligne en cliquant du bouton droit sur la première cellule de cette même ligne. Regarde le code ci dessous de la macro événmentielle BeforeRightClick à placer dans le composant Worksheet de l'onglet en question (Feuil1(Feul1) par exemple) :


Dans le fichier en pièce jointe, clique avec le bouton droit sur une des cellules de la colonne A pour supprimer les formats de toute la ligne.

Re : Un bouton de commande par ligne

Grand merci à vous!
Effectivement un clic droit sur la cellule, c'est mieux. En revanche, je n'arrive pas à supprimer le format des cellules souhaitées... à une cellule près...
La cellules "Suppr" se trouve dans la colonne 13 (M)
et je souhaite supprimer
les cellules de la colonne 3 (C) à 10 (J). J'ai modifié les valeurs dans le code, rien à faire l'action me supprime les colonnes de 2 (B) à 10 (J)... je n'ai pas de cellules fusionnées....
Alors que sur le fichier que vous m'avez envoyé, on peut définir jusqu'où l'on souhaite supprimer le format...
C'est parce que :
- ma cellule "Suppr" ne se trouve pas directement à côté des cellules à effacer?
- mes cellules à effacer se trouvent à gauche?...
Alors voici le code que j'ai mis en place, cela fonctionne, mais je ne sais pas si l'ordi se marre en voyant cela...

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Integer
c = ActiveCell.Row
If Cells(c, 13) = "Suppr" Then
Cancel = True
Range(Cells(c, 3), Cells(c, 10)).Select
Selection.Interior.ColorIndex = xlNone
Cells(c, 11) = "0"
End If
End Sub

Merci à vous...
J'ai encore des questions, mais n'ai pas encore assez creusé!
Lio

Re : Un bouton de commande par ligne

bonjour Lio,Robert
garde donc le code de Robert
'en commentaires quelques possibilités

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim li As Integer 'déclare la variable li (LIgne)
If Target.Column <> 1 Then Exit Sub 'si le clic droit a lieu ailleurs que dans la colonne A, sort de la procédure
Cancel = True 'évite le menu contextuel lié au clic droit
li = Target.Row 'définit la variable li
'efface les formats de la ligne
If Cells(li, 13) = "Suppr" Then
Range(Cells(li, 1), Cells(li, 256).End(xlToLeft)).ClearFormats
'** autres possibilités
'enlève couleur de la ligne
'If Cells(li, 13) = "Suppr" Then Range(Cells(li, 1), Cells(li, 256).End(xlToLeft)).Interior.ColorIndex = xlNone
'enlève couleur de la ligne de c à j
'If Cells(li, 13) = "Suppr" Then Range(Cells(li, "C"), Cells(li, "J").End(xlToLeft)).Interior.ColorIndex = xlNone
'ou
'If Cells(li, 13) = "Suppr" Then Range(Cells(li, 3), Cells(li, 10).End(xlToLeft)).Interior.ColorIndex = xlNone
'efface contenu cellule
'If Cells(li, 13) = "Suppr" Then Range(Cells(li, 3), Cells(li, 10).End(xlToLeft)).clearcontents
'**
Cells(li, 13) = ""
End If
End Sub

à bientôt