Suppression de cellules dans des colonnes

Bonjour à vous tous,

Je cherche une formule ou une macro avec bouton d'activation pour supprimer des lignes dans plusieurs colonnes à la fois.

Dans le fichier joint, j'aimerai supprimer des cellules de mon choix dans les colonnes A B C ou E F G ou I J K.

Merci d'avance pour votre aide et bonne journée à tous,

Lenny

Bonjour,

j'aimerai supprimer des cellules de mon choix

comment le choix se fait-il ?

par sélection ?

Hello SabV et à tous,

le choix se fait par sélection. Je choisis un produit et je le supprime. Donc je supprime sa cellule et les 2 cellules suivante.

exemple : si je supprime A16, je supprime aussi B16 et C16.

Merci d'avance.

Lenny

le choix se fait par sélection. Je choisis un produit et je le supprime. Donc je supprime sa cellule et les 2 cellules suivante.

exemple : si je supprime A16, je supprime aussi B16 et C16.

Si je comprends bien vous sélectionner une seul cellule, et vous voulez que la sélection s'étendre sur les 2 cellules adjacente sur la même ligne, puis vous voulez qu’une suppression de ces 3 cellules soit faite avec un remonter vers le haut ?

Bonjour Sabv et à tous,

absolument. C'est exactement ça.

n'hésitez pas si vous avez d'autres questions.

Merci d'avance.

Lenny

Bonjour,

à tester,

Sub test()
n = Selection.Row
Set isect = Application.Intersect(Selection, Union(Range("A:C"), Range("E:G"), Range("I:K")))
If Not isect Is Nothing Then
    Select Case isect.Column
      Case 1 To 3: Range("A" & n & ":C" & n).Delete Shift:=xlUp
      Case 5 To 7: Range("E" & n & ":G" & n).Delete Shift:=xlUp
      Case 9 To 11: Range("I" & n & ":K" & n).Delete Shift:=xlUp
    End Select
End If
End Sub

Merci SabV.

Je ne suis pas expert comment dois-je faire pour l'activer ? Est-il possible d'avoir une cellule que je remplirai et qui ferait l'action ou un bouton d'activation?

Merci beaucoup d'avance.

Lenny

Bonjour,

vu que la suppression des 3 cellules ce fait d'après la sélection, vous pourriez utiliser l'événement Worksheet_SelectionChange

sur la page code de la feuille,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Msg, Style, Title, Help, Ctxt, Response, MyString, n As Long
Msg = "Voulez-vous supprimer ces cellules ?"    ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Définit les boutons.
Title = "Suppression de cellules"    ' Définit le titre.

n = Target.Row
Set isect = Application.Intersect(Target, Union(Range("A:C"), Range("E:G"), Range("I:K")))
If Not isect Is Nothing Then
 réponse = MsgBox(Msg, Style, Title)
  If réponse = 7 Then Exit Sub
    Select Case isect.Column
      Case 1 To 3: Range("A" & n & ":C" & n).Delete Shift:=xlUp
      Case 5 To 7: Range("E" & n & ":G" & n).Delete Shift:=xlUp
      Case 9 To 11: Range("I" & n & ":K" & n).Delete Shift:=xlUp
    End Select
End If
End Sub

excellent ça marche parfaitement.

Merci beaucoup Sabv