Discussion :

[eliana55]

SVP AIDEZ-MOIII !!
Grâce a une macro je saisi l'année d'une date (imputbox) en espérant que cela me preselectionne toutes les cellules ou on aurait cette année .cependant elle me présélectionne qu'une seule date précise (la première qu'elle trouve ) et non toutes les dates ou cette année apparait !

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub date_2()
Dim X As Variant
Dim Cel As Range
X = InputBox("date")
Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart)
Cel.Select
End Sub

[unparia]

Bonjour
Aide interne VBA, rubrique Range.FindNext, méthode (accompagnée d'un exemple clair).

[eric4459]

Bonjour,
Essayes de faire un balayage de ta sélection de ce type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim MonRange as Range
Set MonRange = Range("A1:D25")' exemple à adapter à ton cas
For Each cell In MonRange
Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart)
Cel.Interior.ColorIndex = 3' Plutôt que .Select qui n'est très recommandé on colorie la cellule
Next cell

Eric

[Marc-L]

Bonjour !

elle me présélectionne qu'une seule date précise (la première qu'elle trouve ) et non toutes les dates

Comme un bon code n'a surtout pas besoin de sélectionner quoi que ce soit,
il serait tellement opportun d'indiquer clairement la destination de la manœuvre !

Et puis juste en utilisant un simple filtre …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Menhir]

en espérant que cela me preselectionne toutes les cellules ou on aurait cette année .

Comme Marc, je doute que la sélection est le but ultime de ton code et je suppose que tu comptes faire "quelque chose" avec ces cellules.
Il faudrait donc que tu indiques ce qu'est ce "quelque chose" pour qu'il soit possible de t'aider efficacement.

[eliana55]

Merci a tous pour vos réponse c'est exactement ce que je voulais !!