Discussion :

[Guigz-64]

Bonjour à la communauté !

Voilà, je souhaiterais qu'avant l'insertion d'une ligne, un message apparaisse et indique "Attention, vous allez insérer une ligne !".

J'ai enregistré ce bout de code dans Workbook / SheetSelectionChange :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
x = ActiveCell.Row
y = ActiveCell.Column
If y <> 1 And x <> 1 Then
    Exit Sub
Else
    If Rows(x).EntireRow.Select = True Then
        MsgBox "Attention, vous allez insérer une ligne"
    Else
        Exit Sub
    End If
End If
End Sub

Sauf que lorsque je sélectionne n'importe quelle cellule de la colonne A, la macro me sélectionne alors automatiquement toute la ligne. J'avoue ne pas trop savoir comment m'y prendre...

J'espère avoir était assez clair et vous remercie d'avance pour vos solutions !

[mercatog]

Pour avoir le message sur sélection d'une ligne entière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
If Target.Columns.Count = Sh.Columns.Count Then MsgBox "Attention, vous avez sléctionné une ligne"
End Sub

[Guigz-64]

Merci Mercatog !! Donc sii je comprends bien, l'idée c'est de comparer le nombre de colonnes sélectionnées par rapport au nombre de colonnes totales ?

Maintenant, serait-il possible d'afficher un message avant :
- soit l'insertion d'une ligne,
- soit la suppression d'une ligne.

Encore merci d'avance !!