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
anonymousA
Bonjour,
sans VBA en matricielle (Crtl+Shift+Enter) sur une plage de taille identique à la plage de recherche( ici la plage E1:E6). =SI(E1:E6="a";LIGNE(E1:E6);"")
en VBA, utiliser Find With Worksheets(1).Range("la plage") Set c = .'plage.Find(What:="a", LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse)
If Not c Is Nothing Then firstaddress = c.Address Set Plage = c Do Set Plage = Union(c, Plage) Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstaddress End If End With
Ensuite c'est simple d'interroger for each c in plage pour avoir c.row pour connaitre le N° de ligne
A+
bonjour à tous,
Voici ma matrice
a b c a d e
Existe-t-il une fonction qui me permettrait de trouver ma position de mes valeurs "a" ?.
pos: 1 et 4
merci Christine
Bonjour,
sans VBA en matricielle (Crtl+Shift+Enter) sur une plage de taille
identique à la plage de recherche( ici la plage E1:E6).
=SI(E1:E6="a";LIGNE(E1:E6);"")
en VBA, utiliser Find
With Worksheets(1).Range("la plage")
Set c = .'plage.Find(What:="a", LookIn:=xlFormulas,
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:úlse)
If Not c Is Nothing Then
firstaddress = c.Address
Set Plage = c
Do
Set Plage = Union(c, Plage)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
Ensuite c'est simple d'interroger for each c in plage pour avoir c.row
pour connaitre le N° de ligne
A+
bonjour à tous,
Voici ma matrice
a
b
c
a
d
e
Existe-t-il une fonction qui me permettrait de trouver ma position de mes
valeurs "a" ?.
sans VBA en matricielle (Crtl+Shift+Enter) sur une plage de taille identique à la plage de recherche( ici la plage E1:E6). =SI(E1:E6="a";LIGNE(E1:E6);"")
en VBA, utiliser Find With Worksheets(1).Range("la plage") Set c = .'plage.Find(What:="a", LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:úlse)
If Not c Is Nothing Then firstaddress = c.Address Set Plage = c Do Set Plage = Union(c, Plage) Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstaddress End If End With
Ensuite c'est simple d'interroger for each c in plage pour avoir c.row pour connaitre le N° de ligne
A+
bonjour à tous,
Voici ma matrice
a b c a d e
Existe-t-il une fonction qui me permettrait de trouver ma position de mes valeurs "a" ?.
pos: 1 et 4
merci Christine
michdenis
Bonjour Christine,
Essaie ceci :
'----------------------------------------- Sub test()
With Worksheets("Feuil1") With .Range("A1:A" & .Range("A65536").End(xlUp).Row) Set c = .Find("a", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then firstAddress = c.Address Do Message = c.Row & ", " & Message Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With End With If Message <> "" Then Message = Left(Message, Len(Message) - 2) MsgBox "Les lignes sont : " & Message & "." Else MsgBox "Rien trouver." End If
End Sub '-----------------------------------------
Salutations!
"Imbeault Christine" a écrit dans le message de news: bonjour à tous,
Voici ma matrice
a b c a d e
Existe-t-il une fonction qui me permettrait de trouver ma position de mes valeurs "a" ?.
pos: 1 et 4
merci Christine
Bonjour Christine,
Essaie ceci :
'-----------------------------------------
Sub test()
With Worksheets("Feuil1")
With .Range("A1:A" & .Range("A65536").End(xlUp).Row)
Set c = .Find("a", LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Message = c.Row & ", " & Message
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End With
If Message <> "" Then
Message = Left(Message, Len(Message) - 2)
MsgBox "Les lignes sont : " & Message & "."
Else
MsgBox "Rien trouver."
End If
End Sub
'-----------------------------------------
Salutations!
"Imbeault Christine" <imbeault.christine@qcmines.com> a écrit dans le message de news: en7crrOLGHA.3496@TK2MSFTNGP14.phx.gbl...
bonjour à tous,
Voici ma matrice
a
b
c
a
d
e
Existe-t-il une fonction qui me permettrait de trouver ma position de mes
valeurs "a" ?.
'----------------------------------------- Sub test()
With Worksheets("Feuil1") With .Range("A1:A" & .Range("A65536").End(xlUp).Row) Set c = .Find("a", LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then firstAddress = c.Address Do Message = c.Row & ", " & Message Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If End With End With If Message <> "" Then Message = Left(Message, Len(Message) - 2) MsgBox "Les lignes sont : " & Message & "." Else MsgBox "Rien trouver." End If
End Sub '-----------------------------------------
Salutations!
"Imbeault Christine" a écrit dans le message de news: bonjour à tous,
Voici ma matrice
a b c a d e
Existe-t-il une fonction qui me permettrait de trouver ma position de mes valeurs "a" ?.
pos: 1 et 4
merci Christine
isabelle
bonjour Christine,
une autre solution avec une fonction perso :
Function Occurence(plage As Range, valeur_cherché) For Each c In plage If c = valeur_cherché Then Occurence = Occurence & c.Row & "-" Next Occurence = Left(Occurence, Len(Occurence) - 1) End Function
isabelle
bonjour à tous,
Voici ma matrice
a b c a d e
Existe-t-il une fonction qui me permettrait de trouver ma position de mes valeurs "a" ?.
pos: 1 et 4
merci Christine
bonjour Christine,
une autre solution avec une fonction perso :
Function Occurence(plage As Range, valeur_cherché)
For Each c In plage
If c = valeur_cherché Then Occurence = Occurence & c.Row & "-"
Next
Occurence = Left(Occurence, Len(Occurence) - 1)
End Function
isabelle
bonjour à tous,
Voici ma matrice
a
b
c
a
d
e
Existe-t-il une fonction qui me permettrait de trouver ma position de mes
valeurs "a" ?.
Function Occurence(plage As Range, valeur_cherché) For Each c In plage If c = valeur_cherché Then Occurence = Occurence & c.Row & "-" Next Occurence = Left(Occurence, Len(Occurence) - 1) End Function
isabelle
bonjour à tous,
Voici ma matrice
a b c a d e
Existe-t-il une fonction qui me permettrait de trouver ma position de mes valeurs "a" ?.