Dans un classeur, je sélectionne dans la colonne "A", un bloc de cellules
(de A15 à A202 par ex).
Les cellules sont en surbrillance...
Je veux faire un traitement (dans une macro) à partir de la ligne juste en
dessous de la dernière cellule sélectionnée (dans mon exemple ligne 203).
Comment puis je récupérer le numéro de cette ligne ?...
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,
Comme ceci :
'-------------------------- Sub test() Dim Ligne As Long If TypeName(Selection) = "Range" Then Ligne = Selection(Selection.Rows.Count + 1, 1).Row Msgbox Ligne End If End Sub '--------------------------
'--------------------------
Sub test()
Dim Ligne As Long
If TypeName(Selection) = "Range" Then
Ligne = Selection(Selection.Rows.Count + 1, 1).Row
Msgbox Ligne
End If
End Sub
'--------------------------
'-------------------------- Sub test() Dim Ligne As Long If TypeName(Selection) = "Range" Then Ligne = Selection(Selection.Rows.Count + 1, 1).Row Msgbox Ligne End If End Sub '--------------------------
Il y a une autre méthode qui ne mérite pas une sélection d'une plage de cellules au préalable afin de pouvoir déterminer la première ligne disponible à la fin des données d'une colonne :
Exemple : Première disponible dans la colonne C à la suite des données de cette colonne :
With Worksheets("Feuil1") 'Nom de la feuille à déterminer Ligne = .Cells(.Cells.Rows.Count, "C").End(xlUp).Row + 1 End With
MichD --------------------------------------------------------------- "MichD" a écrit dans le message de groupe de discussion : l531j8$c3j$
Bonjour,
Comme ceci :
'-------------------------- Sub test() Dim Ligne As Long If TypeName(Selection) = "Range" Then Ligne = Selection(Selection.Rows.Count + 1, 1).Row Msgbox Ligne End If End Sub '--------------------------
Il y a une autre méthode qui ne mérite pas une sélection d'une plage de
cellules
au préalable afin de pouvoir déterminer la première ligne disponible à la
fin
des données d'une colonne :
Exemple : Première disponible dans la colonne C à la suite des données de
cette colonne :
With Worksheets("Feuil1") 'Nom de la feuille à déterminer
Ligne = .Cells(.Cells.Rows.Count, "C").End(xlUp).Row + 1
End With
MichD
---------------------------------------------------------------
"MichD" a écrit dans le message de groupe de discussion :
l531j8$c3j$1@speranza.aioe.org...
Bonjour,
Comme ceci :
'--------------------------
Sub test()
Dim Ligne As Long
If TypeName(Selection) = "Range" Then
Ligne = Selection(Selection.Rows.Count + 1, 1).Row
Msgbox Ligne
End If
End Sub
'--------------------------
Il y a une autre méthode qui ne mérite pas une sélection d'une plage de cellules au préalable afin de pouvoir déterminer la première ligne disponible à la fin des données d'une colonne :
Exemple : Première disponible dans la colonne C à la suite des données de cette colonne :
With Worksheets("Feuil1") 'Nom de la feuille à déterminer Ligne = .Cells(.Cells.Rows.Count, "C").End(xlUp).Row + 1 End With
MichD --------------------------------------------------------------- "MichD" a écrit dans le message de groupe de discussion : l531j8$c3j$
Bonjour,
Comme ceci :
'-------------------------- Sub test() Dim Ligne As Long If TypeName(Selection) = "Range" Then Ligne = Selection(Selection.Rows.Count + 1, 1).Row Msgbox Ligne End If End Sub '--------------------------
"MichD" a écrit dans le message de news:l531j8$c3j$
Bonjour,
Comme ceci :
'-------------------------- Sub test() Dim Ligne As Long If TypeName(Selection) = "Range" Then Ligne = Selection(Selection.Rows.Count + 1, 1).Row Msgbox Ligne End If End Sub '--------------------------
"MichD" <michdenis@hotmail.com> a écrit dans le message de
news:l531j8$c3j$1@speranza.aioe.org...
Bonjour,
Comme ceci :
'--------------------------
Sub test()
Dim Ligne As Long
If TypeName(Selection) = "Range" Then
Ligne = Selection(Selection.Rows.Count + 1, 1).Row
Msgbox Ligne
End If
End Sub
'--------------------------
"MichD" a écrit dans le message de news:l531j8$c3j$
Bonjour,
Comme ceci :
'-------------------------- Sub test() Dim Ligne As Long If TypeName(Selection) = "Range" Then Ligne = Selection(Selection.Rows.Count + 1, 1).Row Msgbox Ligne End If End Sub '--------------------------