Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour, Dans le module de la feuille où l'action se déroule 'La procédure s'appliquera seulement si tu as une ou plusieurs lignes complètement sélectionnées '------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Test pour t'assurer que ce sont seulement la sélection des lignes complètes font réagir la procédure If Target.Columns.Count = Columns.Count Then 'Si tu veux limiter l'action seulement si tu 'as plusieurs lignes de sélectionnées If Target.Rows.Count > 1 Then MsgBox "Plusieurs lignes sélectionnées." Else MsgBox "Seulement une ligne sélectionnée." End If End If End Sub '------------------------ MichD
Bonjour,
Dans le module de la feuille où l'action se déroule
'La procédure s'appliquera seulement si tu as une ou plusieurs lignes
complètement sélectionnées
'------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Test pour t'assurer que ce sont seulement la sélection des lignes
complètes font réagir la procédure
If Target.Columns.Count = Columns.Count Then
'Si tu veux limiter l'action seulement si tu
'as plusieurs lignes de sélectionnées
If Target.Rows.Count > 1 Then
MsgBox "Plusieurs lignes sélectionnées."
Else
MsgBox "Seulement une ligne sélectionnée."
End If
End If
End Sub
'------------------------
Bonjour, Dans le module de la feuille où l'action se déroule 'La procédure s'appliquera seulement si tu as une ou plusieurs lignes complètement sélectionnées '------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Test pour t'assurer que ce sont seulement la sélection des lignes complètes font réagir la procédure If Target.Columns.Count = Columns.Count Then 'Si tu veux limiter l'action seulement si tu 'as plusieurs lignes de sélectionnées If Target.Rows.Count > 1 Then MsgBox "Plusieurs lignes sélectionnées." Else MsgBox "Seulement une ligne sélectionnée." End If End If End Sub '------------------------ MichD
ThierryP
Bonjour Denis, Toujours aussi présent !! Merci pour ton retour, ThierryP
