avec ceci, j'arrives trés bien à me déplacer en avant dans ma feuille (du
haut vers le bas en fait) :
Private Sub AVANT_Click()
'Déplacement vers l'avant
s = ActiveCell.Row
Set trouve_avant = Range("a1000" & ":a" & s).Find(What:="Avis N°")
trouve_avant.Activate
End Sub
Mon soucis étant de faire la même chose mais en sens inverse, du bas de la
feuille vers le haut. Quelqu'un aurait une idée ? Merci.
Apparemment, ca ne fonctionne pas : "la méthode range de l'objet a échoué" ...
Tout va bien chez moi ! Vraisemblable coupure dans la ligne de code : A vérifier : de "Range.... à .... Activate", tout est sur une SEULE ligne
AV
NICO.S
Salut,
Malheuresement cela ne fonctionne pas.
Il trouve bien une cellule contenant l'élément recherché mais il s'agit de la dernière de la feuille, et cela peut importe l'activecell ... De plus a chaque appui sur le bouton il reste collé a cette sus-dit cellule. Ca doit sans doute venir du fait qu'il commence a rechercher depuis la cellule A1000, et qu'a chaque relance de la routine il retrouve cette même cellule, logique. Je vais continuer à chercher.
Merci.
NICO.S
"TiMike" écrivait news:320001c428f7 $b70c3440$:
peut etre que (what:="Avis N°",searchDirection:=xlPrevious) ?
-----Message d'origine----- Bonjour,
avec ceci, j'arrives trés bien à me déplacer en avant dans ma feuille (du
haut vers le bas en fait) :
Private Sub AVANT_Click() 'Déplacement vers l'avant s = ActiveCell.Row Set trouve_avant = Range("a1000" & ":a" & s).Find (What:="Avis N°")
trouve_avant.Activate End Sub
Mon soucis étant de faire la même chose mais en sens inverse, du bas de la
feuille vers le haut. Quelqu'un aurait une idée ? Merci.
NICO.S
.
Salut,
Malheuresement cela ne fonctionne pas.
Il trouve bien une cellule contenant l'élément recherché mais il s'agit
de la dernière de la feuille, et cela peut importe l'activecell ... De
plus a chaque appui sur le bouton il reste collé a cette sus-dit cellule.
Ca doit sans doute venir du fait qu'il commence a rechercher depuis la
cellule A1000, et qu'a chaque relance de la routine il retrouve cette
même cellule, logique. Je vais continuer à chercher.
Il trouve bien une cellule contenant l'élément recherché mais il s'agit de la dernière de la feuille, et cela peut importe l'activecell ... De plus a chaque appui sur le bouton il reste collé a cette sus-dit cellule. Ca doit sans doute venir du fait qu'il commence a rechercher depuis la cellule A1000, et qu'a chaque relance de la routine il retrouve cette même cellule, logique. Je vais continuer à chercher.
Merci.
NICO.S
"TiMike" écrivait news:320001c428f7 $b70c3440$:
peut etre que (what:="Avis N°",searchDirection:=xlPrevious) ?
-----Message d'origine----- Bonjour,
avec ceci, j'arrives trés bien à me déplacer en avant dans ma feuille (du
haut vers le bas en fait) :
Private Sub AVANT_Click() 'Déplacement vers l'avant s = ActiveCell.Row Set trouve_avant = Range("a1000" & ":a" & s).Find (What:="Avis N°")
trouve_avant.Activate End Sub
Mon soucis étant de faire la même chose mais en sens inverse, du bas de la
feuille vers le haut. Quelqu'un aurait une idée ? Merci.
Apparemment, ca ne fonctionne pas : "la méthode range de l'objet a échoué" ...
Tout va bien chez moi ! Vraisemblable coupure dans la ligne de code : A vérifier : de "Range.... à .... Activate", tout est sur une SEULE ligne
AV
Oui c'était deja bien comme cela, sur une seule ligne. J'ai réessayer et ca ne fonctionne toujours pas, j'ai le même message d'erreur. J'ai beaucoup de mal à comprendre comment est structuré ton Range.
Apparemment, ca ne fonctionne pas : "la méthode range de l'objet a
échoué" ...
Tout va bien chez moi !
Vraisemblable coupure dans la ligne de code :
A vérifier : de "Range.... à .... Activate", tout est sur une SEULE ligne
AV
Oui c'était deja bien comme cela, sur une seule ligne. J'ai réessayer et ca
ne fonctionne toujours pas, j'ai le même message d'erreur. J'ai beaucoup de
mal à comprendre comment est structuré ton Range.
Apparemment, ca ne fonctionne pas : "la méthode range de l'objet a échoué" ...
Tout va bien chez moi ! Vraisemblable coupure dans la ligne de code : A vérifier : de "Range.... à .... Activate", tout est sur une SEULE ligne
AV
Oui c'était deja bien comme cela, sur une seule ligne. J'ai réessayer et ca ne fonctionne toujours pas, j'ai le même message d'erreur. J'ai beaucoup de mal à comprendre comment est structuré ton Range.
Merci.
NICO.S
AV
Oui c'était deja bien comme cela, sur une seule ligne. J'ai réessayer et ca ne fonctionne toujours pas, j'ai le même message d'erreur.
Autre possibilité de plantage : lorsque tu lances la macro, la ligne de la cellule active est au-dessus de la 1°ligne contenant l'occurrence cherchée en A1:Ax ("Avis N°")
Sinon, si tu veux un exemple, transmets une adresse
AV
Oui c'était deja bien comme cela, sur une seule ligne. J'ai réessayer et ca
ne fonctionne toujours pas, j'ai le même message d'erreur.
Autre possibilité de plantage : lorsque tu lances la macro, la ligne de la
cellule active est au-dessus de la 1°ligne contenant l'occurrence cherchée en
A1:Ax ("Avis N°")
Sinon, si tu veux un exemple, transmets une adresse
Oui c'était deja bien comme cela, sur une seule ligne. J'ai réessayer et ca ne fonctionne toujours pas, j'ai le même message d'erreur.
Autre possibilité de plantage : lorsque tu lances la macro, la ligne de la cellule active est au-dessus de la 1°ligne contenant l'occurrence cherchée en A1:Ax ("Avis N°")
Sinon, si tu veux un exemple, transmets une adresse
AV
NICO.S
"AV" écrivait news::
Oui c'était deja bien comme cela, sur une seule ligne. J'ai réessayer et ca ne fonctionne toujours pas, j'ai le même message d'erreur.
Autre possibilité de plantage : lorsque tu lances la macro, la ligne de la cellule active est au-dessus de la 1°ligne contenant l'occurrence cherchée en A1:Ax ("Avis N°")
Sinon, si tu veux un exemple, transmets une adresse
AV
Malheuresement non, ca n'est toujours pas cela... enfin si j'ai bien compris le sens de ta phrase. Peux importe la ligne de la cellule active, ca plante.
Oui c'était deja bien comme cela, sur une seule ligne. J'ai réessayer
et ca ne fonctionne toujours pas, j'ai le même message d'erreur.
Autre possibilité de plantage : lorsque tu lances la macro, la ligne
de la cellule active est au-dessus de la 1°ligne contenant
l'occurrence cherchée en A1:Ax ("Avis N°")
Sinon, si tu veux un exemple, transmets une adresse
AV
Malheuresement non, ca n'est toujours pas cela... enfin si j'ai bien
compris le sens de ta phrase. Peux importe la ligne de la cellule active,
ca plante.
Si tu veux parler d'une adresse email : nico.s3d@wanadoo.fr
Oui c'était deja bien comme cela, sur une seule ligne. J'ai réessayer et ca ne fonctionne toujours pas, j'ai le même message d'erreur.
Autre possibilité de plantage : lorsque tu lances la macro, la ligne de la cellule active est au-dessus de la 1°ligne contenant l'occurrence cherchée en A1:Ax ("Avis N°")
Sinon, si tu veux un exemple, transmets une adresse
AV
Malheuresement non, ca n'est toujours pas cela... enfin si j'ai bien compris le sens de ta phrase. Peux importe la ligne de la cellule active, ca plante.