[résolu]dernière occurence dans une feuille

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [résolu]dernière occurence dans une feuille

mirascheat

Bonjour,

Je suis en train de faire une macro et je voulais savoir si il existait une méthode pour trouver la dernière occurence d'une chaine de caractère dans une feuille Excel.
Par avance merci.

Message édité par mirascheat le 27-09-2005 à 13:57:28

Publicité

Fred_l

T'as pas un exemple pour être plus clair !

Chaine dans une cellule ?
Que veux tu récupérer dans cette chaine ? etc...

mirascheat

Oui il y a des chaines de caracteres dans les cellules ...
Et j'ai une chaine qui apparait plusieurs fois dans differentes cellules ... je voudrais recuperer la ligne de la premiere occurence de cette chaine (pas de problème) et la ligne de la derniere occurence ...
Merci

watashi

La démotivation : JAMAIS !

ben si tu sais faire la première occurence tu sais faire la dernière vu que c'est la première en patant de la fin non ?

Si tu donnes le code que tu as fais pour la première occurence, on devrait pouvoir te guider pour la dernière.

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

mirascheat

Ok j'utilise simplement la fonction find :

Code :

row_number = Cells.Find(What:="toto", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Row

watashi

La démotivation : JAMAIS !

Donc voilà, en modifiant un peu ton find et en insérant une boucle, tu obtiens ceci :

Code :

Sub trouve()
Dim row_number1, row_number2, c
With Worksheets(4).Range("A1:F5000" )
Set c = .Find(What:="toto", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False)
If Not c Is Nothing Then
row_number1 = c.Row
'ici la boucle pour trouver la dernière occurence
Do
row_number2 = c.Row
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Row <> row_number1
End If
End With
MsgBox ("Première occurence : " & row_number1 & vbCrLf & "Dernière occurence : " & row_number2)
End Sub

Dis moi si c'est bon chez toi
bon courage

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

mirascheat

merci après adaptation à ma macro ca marche nickel

watashi

La démotivation : JAMAIS !

cool !

si tu marque résolu en titre de sujet, d'autres pourront s'en inspirer

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[résolu]dernière occurence dans une feuille

Sujets relatifs
Revenir sur la 1ère feuille	[RESOLU]récupérer le nom d'un executable pour le lancer
[Résolu] Souci d'occupation mémoire	[resolu] passer un mot écrit en hébreu via méthode GET
[résolu]Passage de variable	mini base de données en java pur[resolu]
[java] recuperer le code d'une page web. [RESOLU]	[RESOLU]Compter le nombre de mot...
Probleme de requete et de texte en php [Résolu, euh en fait non]	[résolu] redirection vers une page autre site
Plus de sujets relatifs à : [résolu]dernière occurence dans une feuille

Page générée en 0.053 secondes