Bonjour,

Plus que novice en VBA est après de nombreuses recherches infructueuses je cherche a écrire dans une msgbox le contenu des cellules B,C,D,E,F,G de la ligne que j'ai sélectionnée avant de l'effacer.
Merci d'avance pour votre aide

Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub EffaceLigneTableau1()
 
With Selection
 
    If .Columns.Count > 50 And Selection.Row > 5 Then   
 
        If msgbox("Confirmez-vous la supression de la ligne", vbYesNo + vbCritical, "Suppression ligne") = vbYes Then
            ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
        End If
 
    Else
        msgbox "Veuillez sélectionner une ligne compléte" & vbLf & "Les lignes 1 à 4 ne sont pas autorisées", vbInformation, "Information"
    End If
End With
 
End Sub