Deplacer curseur et ajustement ecran
Bonjour à tous,
Je souhaiterais adapter une macro de mfc pour que le curseur se positionne sur le résultat de ma recherche et que l'affichage de cette ligne s'adapte à mon écran.... bref que je vois cette ligne colorée en plein milieu de mon écran au lieu de la chercher pendant des heures
mon tableau peut faire jusqu'à 5000 lignes...
Je vous remercie à tous et vous souhaite d'agréables fêtes de fin d'année.
Bonjour,
Si j'ai bien compris ta question ... tu peux tester :
Application.Goto Reference:="R" & [C1] & "C1", Scroll:=TrueEn espérant que cela t'aide ...
Bonjour James007,
Non c'est pas tout a fait ca ... mais c'est de ma faute je me suis mal exprimé.
Mon résultat de ma mfc par exemple 12 ne correspond pas à la ligne 12...
En fait il s'agit d'une liste de dossier et les chiffres sont plus dans le style 20171012541...
En tout cas merci
Re,
Le résultat d'une MFC est une modification de format ... et ne pré-détermine pas la localisation de la cellule recherchée ...
En ce qui concerne la localisation d'une valeur à l'aide d'une macro ... il faut utiliser Find ...
et accessoirement peux-tu avoir plusieurs fois la même valeur recherchée ou pas ...?
ah ok...
non ce sera toujours une valeur unique
Re,
Pour la recherche d'une valeur ... tu peux adapter la macro suivante :
Sub Recherche()
Dim Cel_Trouvée As Range
Dim Plage_de_Recherche As Range
Set Plage_de_Recherche = Range("A1:A500")
Set Cel_Trouvée = Plage_de_Recherche.Cells.Find(what:=Range("C1").Value, LookAt:=xlWhole)
Cel_Trouvée.Select
End SubEn espérant que cela t'aide ...
Nickel merci beaucoup
Bonjour,
Avec ce code, il faut vraiment être certain que la valeur existe car sinon, plantage au moment du Select !
Il serait préférable de contrôler si pas Nothing avant la sélection !
oui effectivement theze...
tu peux m'aiguiller?
Re,
Avec un petit If ...
Sub Recherche()
Dim Cel_Trouvée As Range
Dim Plage_de_Recherche As Range
Set Plage_de_Recherche = Range("A1:A500")
Set Cel_Trouvée = Plage_de_Recherche.Cells.Find(what:=Range("C1").Value, LookAt:=xlWhole)
If Not Cel_Trouvée Is Nothing Then Cel_Trouvée.Select
End SubChristelle,
Il ne faut pas hésiter à faire part de tes commentaires ...
Nickel merci beaucoup...