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 :
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...
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
J'espère avoir était assez clair et vous remercie d'avance pour vos solutions !![]()
Partager