Remonter les lignes d'un tableau pour remplacer une ligne suprimée

Question

J'ai un tableau avec uniquement des formules (ici a gauche) qui dépandent d'une liste (ici a droite). J'aiermais que lorsque je supprime une case de ma liste de droite, le tout remonte automatiquement (ou à l'aide d'un bouton) pour boucher la case vide. Si vous avez une idée, ça me rendrais bien service. Merci =)...

curulis57 · Answer

Salut Micka-Plays,

une solution VBA, je ne vois que ça d'ailleurs...

Un clic-DROIT sur une cellule en [G] te demande une confirmation de suppression (étape qui peut être supprimée!) pour éliminer la ligne complète.

A toi d'adapter le code (dans le module VBA de la feuille concernée).

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'
Dim iRow%, iRep%
'
If Not Intersect(Target, Range("G:G")) Is Nothing Then
    Cancel = True
    iRow = Target.Row
    iRep = MsgBox("Confirmez-vous la suppression ?", vbQuestion + vbYesNo, "Suppression")
    If iRep = 6 Then Rows(iRow).Delete shift:=xlUp
End If
'
End Sub

A+

9micka-plays.xlsm (18.78 Ko)