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
Daniel
Bonjour. Essaie :
Sub Test() Dim Valeur As String, Ligne As Integer, c As Range Valeur = [M1] Range("A1:K100").Select For Each c In Selection If c.Value = Valeur Then Ligne = c.Row End If Next c MsgBox Ligne End Sub
Cordialement. Daniel
"Golem13" a écrit dans le message de news: 427dfca3$0$1240$
Bonjour.
Comment recuperer en VBA le numero de la derniere ligne contenant une valeur choisis.
Style , dans le champ A1:K100, trouve le numero de la derniere ligne ou se trouve la valeur de la cellule M1 .
Bon dimanche à tous.
@+
Bonjour.
Essaie :
Sub Test()
Dim Valeur As String, Ligne As Integer, c As Range
Valeur = [M1]
Range("A1:K100").Select
For Each c In Selection
If c.Value = Valeur Then
Ligne = c.Row
End If
Next c
MsgBox Ligne
End Sub
Cordialement.
Daniel
"Golem13" <GOL1@wanadoo.fr> a écrit dans le message de news:
427dfca3$0$1240$8fcfb975@news.wanadoo.fr...
Bonjour.
Comment recuperer en VBA le numero de la derniere ligne contenant une
valeur
choisis.
Style , dans le champ A1:K100, trouve le numero de la derniere ligne ou se
trouve la valeur de la cellule M1 .
Sub Test() Dim Valeur As String, Ligne As Integer, c As Range Valeur = [M1] Range("A1:K100").Select For Each c In Selection If c.Value = Valeur Then Ligne = c.Row End If Next c MsgBox Ligne End Sub
Cordialement. Daniel
"Golem13" a écrit dans le message de news: 427dfca3$0$1240$
Bonjour.
Comment recuperer en VBA le numero de la derniere ligne contenant une valeur choisis.
Style , dans le champ A1:K100, trouve le numero de la derniere ligne ou se trouve la valeur de la cellule M1 .
Bon dimanche à tous.
@+
AV
Style , dans le champ A1:K100, trouve le numero de la derniere ligne ou se trouve la valeur de la cellule M1 .
Sub zzz() MsgBox [max(if(A1:K100=M1,row(A1:K100)))] End Sub
AV
Style , dans le champ A1:K100, trouve le numero de la derniere ligne ou se
trouve la valeur de la cellule M1 .
Sub zzz()
MsgBox [max(if(A1:K100=M1,row(A1:K100)))]
End Sub