Macro vba rechercher date par rapport a une annee
Résolu
elio55
Messages postés
20
Date d'inscription
Statut
Membre
Dernière intervention
-
elio55 Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
elio55 Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
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
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
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Rechercher ou saisir une url - Guide
- Rechercher par image - Guide
- Rechercher une chanson - Guide
- Retrouver une publication facebook par date - Guide
3 réponses
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
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