Macro vba rechercher date par rapport a une annee

Résolu/Fermé

elio55 Messages postés 20 Date d'inscription mardi 25 avril 2017 Statut Membre Dernière intervention 24 juillet 2017 - 25 avril 2017 à 16:32
elio55 Messages postés 20 Date d'inscription mardi 25 avril 2017 Statut Membre Dernière intervention 24 juillet 2017 - 26 avril 2017 à 09:31

SVP URGENT !!
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

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

A voir également:

Macro vba rechercher date par rapport a une annee
Rechercher ou entrer l'adresse - Guide
Adresse IP locale : comment la trouver facilement - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Rechercher une chanson - Guide

3 réponses

Réponse 1 / 3

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
25 avril 2017 à 16:54

Bonjour Elio, bonjour le forum,

Le code que je te propose va colorier les cellules en rouge :

Sub date_2()
Dim X As Variant
Dim Cel As Range
X = Application.InputBox("Année de la date", "ANNÉE", Type:=1)
If X = False Then Exit Sub
Set Cel = Sheets("Feuil1").UsedRange.Find(X, lookat:=xlPart)
If Not Cel Is Nothing Then
    PA = Cel.Address
    Do
        Cel.Interior.ColorIndex = 3
        Set Cel = Sheets("Feuil1").UsedRange.FindNext(Cel)
    Loop While Not Cel Is Nothing And Cel.Address <> PA
End If
End Sub

Réponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 25 avril 2017 à 16:59

Bonjour Elio, Thautheme

un exemple à adapter avec X=textbox où on boucle que sur lr nombre de X

Option Explicit
'---------
Sub modifier_si()
Dim zone As Range, cellule As Range, nbre As Integer
Dim Cptr As Integer

Application.ScreenUpdating = False
Set zone = ActiveSheet.Range("B2:F9")
nbre = Application.CountIf(zone, "*" & X & "*")

With zone
    Set cellule = .Find(what:=X, LookIn:=xlValues)
    For Cptr = 1 To nbre
            cellule = cellule & "  trouvé!"
            Set cellule = .FindNext(cellule)
    Next
End With

End Sub

,

Michel

Réponse 3 / 3

elio55 Messages postés 20 Date d'inscription mardi 25 avril 2017 Statut Membre Dernière intervention 24 juillet 2017
26 avril 2017 à 09:31

Mercii beacoup les amis c'est exactement ce que je voulais :D

Discussions similaires

Pix

recherche à partir de la barre d'adresse

Connaitre la date d'une photo.

Discussions similaires

Newsletters