macro vba rechercher date par rapport a une anneeRésolu/Fermé

Question

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

ThauTheme · Answer

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

michel_m · Answer

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 IntegerDim Cptr As IntegerApplication.ScreenUpdating = FalseSet 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)    NextEnd WithEnd Sub


, 
 
 Michel

elio55 · Answer

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

Macro vba rechercher date par rapport a une annee

3 réponses

Newsletters