atteindre une cellule

sniperts · 22 Janvier 2004

Bonjour,
déjà je voulais dire que je trouça super ce forum!

sinon j ai 1 pb, car je voudrai dans un tableau (ma feuille "reservation")
atteindre 1 ou des cellules selon des critères.

par exemple je veux atteindre les cellules qui sont compprises entre le 11/02/04 et 18/02/04 (mes lignes) pour la colonne "monospaces renault espaces".

Est ce que vous avez une idée pour que je fasse cela?
si oui , est ce que je peux atteindre des cellules différentes à chaque fois que je change mes critères?

merci

gilbert · 23 Janvier 2004

Bonjour,
je ne peux pas importer de zip
alors comme la question me semble claire je me lance
est ce que le code ci dessous peut t aider ?
ci dessous "toto" est une zone nommee definissant la cible de recherche
je n ai pas teste alors St Axe error priez pour nous !
'entree de critere
reponse = InputBox("Entrez votre critere de recherche" , "ENTREE DE CRITERES")
' quitter l appli
If reponse = "" Then GoTo 100 ' (la ligne 100 contenant screenupdating et + si necessaire pour quitter proprement)
' trouve le critere
Set trouve = Range("toto").Cells.Find(What:=reponse, LookIn:=xlvalue)
' y en a pas
If trouve Is Nothing Then
reponse = MsgBox("pas de critere correspondant", vbokonly)
goto 100
' y en a
Range("toto").Find(What:=reponse, Searchdirection:=xlNext).Select
Ce code ne regle pas tous les pb ce n est qu une approche
j espere qu il poura t aider

atteindre une cellule

sniperts

Guest

Pièces jointes

gilbert

Guest

Discussions similaires