Macro vba rechercher date par rapport a une annee
Résolu/Fermé
elio55
elio55
- Messages postés
- 20
- Date d'inscription
- mardi 25 avril 2017
- Statut
- Membre
- Dernière intervention
- 24 juillet 2017
elio55
- Messages postés
- 20
- Date d'inscription
- mardi 25 avril 2017
- Statut
- Membre
- Dernière intervention
- 24 juillet 2017
A voir également:
- Macro vba rechercher date par rapport a une annee
- Macro vba rechercher date par rapport a une annee ✓ - Forum - VB / VBA
- Macro VBA : Recherche d'une valeur dans une table ✓ - Forum - VB / VBA
- Filtrer date par macro VBA - pb de format ✓ - Forum - VB / VBA
- Recherche dates tableau et copier lign VBA ✓ - Forum - VB / VBA
- Macro recherche dates ✓ - Forum - Bureautique
3 réponses
ThauTheme
25 avril 2017 à 16:54
- Messages postés
- 1436
- Date d'inscription
- mardi 21 octobre 2014
- Statut
- Membre
- Dernière intervention
- 27 avril 2022
25 avril 2017 à 16:54
Bonjour Elio, bonjour le forum,
Le code que je te propose va colorier les cellules en rouge :
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
Modifié le 25 avril 2017 à 16:59
- Messages postés
- 16568
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 14 mai 2022
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
,
Michel
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
elio55
26 avril 2017 à 09:31
- 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