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
michdenis
Bonjour Xem,
Dans la feuille désirée, dans sa feuille module, copie ceci :
'--------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 Then MsgBox "Ligne : " & Target.Row Else MsgBox "Première ligne : " & Target(1).Row & _ vbCrLf & "Dernière ligne : " & Target(Target.Rows.Count).Row End If End Sub '---------------------------------
Salutations!
"xem" a écrit dans le message de news: Bonsoir au forum,
Comment afficher avec une MsgBox le numéro de la ligne que je selectione ?
MsgBox " Numéro " & Rows.....????? je sèche lamentablement
Merci pour votre aide.
Xem
Bonjour Xem,
Dans la feuille désirée, dans sa feuille module, copie ceci :
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 Then
MsgBox "Ligne : " & Target.Row
Else
MsgBox "Première ligne : " & Target(1).Row & _
vbCrLf & "Dernière ligne : " & Target(Target.Rows.Count).Row
End If
End Sub
'---------------------------------
Salutations!
"xem" <exem@feria.fr> a écrit dans le message de news: OYdP7r1qFHA.2244@tk2msftngp13.phx.gbl...
Bonsoir au forum,
Comment afficher avec une MsgBox le numéro de la ligne
que je selectione ?
MsgBox " Numéro " & Rows.....????? je sèche lamentablement
Dans la feuille désirée, dans sa feuille module, copie ceci :
'--------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 Then MsgBox "Ligne : " & Target.Row Else MsgBox "Première ligne : " & Target(1).Row & _ vbCrLf & "Dernière ligne : " & Target(Target.Rows.Count).Row End If End Sub '---------------------------------
Salutations!
"xem" a écrit dans le message de news: Bonsoir au forum,
Comment afficher avec une MsgBox le numéro de la ligne que je selectione ?
MsgBox " Numéro " & Rows.....????? je sèche lamentablement
Merci pour votre aide.
Xem
xem
Merci bien Michdenis
Plus c'est simple, plus je cherche et moins je trouve.
Bonne nuit.
Xem
"michdenis" a écrit dans le message de news:
Bonjour Xem,
Dans la feuille désirée, dans sa feuille module, copie ceci :
'--------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 Then MsgBox "Ligne : " & Target.Row Else MsgBox "Première ligne : " & Target(1).Row & _ vbCrLf & "Dernière ligne : " & Target(Target.Rows.Count).Row End If End Sub '---------------------------------
Salutations!
"xem" a écrit dans le message de news:
Bonsoir au forum,
Comment afficher avec une MsgBox le numéro de la ligne que je selectione ?
MsgBox " Numéro " & Rows.....????? je sèche lamentablement
Merci pour votre aide.
Xem
Merci bien Michdenis
Plus c'est simple, plus je cherche et moins je trouve.
Bonne nuit.
Xem
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OHujF11qFHA.1440@TK2MSFTNGP10.phx.gbl...
Bonjour Xem,
Dans la feuille désirée, dans sa feuille module, copie ceci :
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 Then
MsgBox "Ligne : " & Target.Row
Else
MsgBox "Première ligne : " & Target(1).Row & _
vbCrLf & "Dernière ligne : " & Target(Target.Rows.Count).Row
End If
End Sub
'---------------------------------
Salutations!
"xem" <exem@feria.fr> a écrit dans le message de news:
OYdP7r1qFHA.2244@tk2msftngp13.phx.gbl...
Bonsoir au forum,
Comment afficher avec une MsgBox le numéro de la ligne
que je selectione ?
MsgBox " Numéro " & Rows.....????? je sèche lamentablement
Plus c'est simple, plus je cherche et moins je trouve.
Bonne nuit.
Xem
"michdenis" a écrit dans le message de news:
Bonjour Xem,
Dans la feuille désirée, dans sa feuille module, copie ceci :
'--------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 Then MsgBox "Ligne : " & Target.Row Else MsgBox "Première ligne : " & Target(1).Row & _ vbCrLf & "Dernière ligne : " & Target(Target.Rows.Count).Row End If End Sub '---------------------------------
Salutations!
"xem" a écrit dans le message de news:
Bonsoir au forum,
Comment afficher avec une MsgBox le numéro de la ligne que je selectione ?
MsgBox " Numéro " & Rows.....????? je sèche lamentablement
Merci pour votre aide.
Xem
michdenis
Il y a une petite coquille, on aurait dû lire ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim A As Long, B As Long If Target.Rows.Count = 1 Then MsgBox "Ligne : " & Target.Row Else A = Target(1).Row B = Target.Rows.Count MsgBox "Première ligne : " & A & _ vbCrLf & "Dernière ligne : " & A + B - 1 _
End If End Sub
Salutations!
Dans la feuille désirée, dans sa feuille module, copie ceci :
'--------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 Then MsgBox "Ligne : " & Target.Row Else MsgBox "Première ligne : " & Target(1).Row & _ vbCrLf & "Dernière ligne : " & Target(Target.Rows.Count).Row End If End Sub '---------------------------------
Salutations!
"xem" a écrit dans le message de news: Bonsoir au forum,
Comment afficher avec une MsgBox le numéro de la ligne que je selectione ?
MsgBox " Numéro " & Rows.....????? je sèche lamentablement
Merci pour votre aide.
Xem
Il y a une petite coquille, on aurait dû lire ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim A As Long, B As Long
If Target.Rows.Count = 1 Then
MsgBox "Ligne : " & Target.Row
Else
A = Target(1).Row
B = Target.Rows.Count
MsgBox "Première ligne : " & A & _
vbCrLf & "Dernière ligne : " & A + B - 1 _
End If
End Sub
Salutations!
Dans la feuille désirée, dans sa feuille module, copie ceci :
'---------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 Then
MsgBox "Ligne : " & Target.Row
Else
MsgBox "Première ligne : " & Target(1).Row & _
vbCrLf & "Dernière ligne : " & Target(Target.Rows.Count).Row
End If
End Sub
'---------------------------------
Salutations!
"xem" <exem@feria.fr> a écrit dans le message de news: OYdP7r1qFHA.2244@tk2msftngp13.phx.gbl...
Bonsoir au forum,
Comment afficher avec une MsgBox le numéro de la ligne
que je selectione ?
MsgBox " Numéro " & Rows.....????? je sèche lamentablement
Il y a une petite coquille, on aurait dû lire ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim A As Long, B As Long If Target.Rows.Count = 1 Then MsgBox "Ligne : " & Target.Row Else A = Target(1).Row B = Target.Rows.Count MsgBox "Première ligne : " & A & _ vbCrLf & "Dernière ligne : " & A + B - 1 _
End If End Sub
Salutations!
Dans la feuille désirée, dans sa feuille module, copie ceci :
'--------------------------- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 Then MsgBox "Ligne : " & Target.Row Else MsgBox "Première ligne : " & Target(1).Row & _ vbCrLf & "Dernière ligne : " & Target(Target.Rows.Count).Row End If End Sub '---------------------------------
Salutations!
"xem" a écrit dans le message de news: Bonsoir au forum,
Comment afficher avec une MsgBox le numéro de la ligne que je selectione ?
MsgBox " Numéro " & Rows.....????? je sèche lamentablement
