problème "définir un nom"

D

David

Guest
Bonjour le forum,

Voilà mon petit soucis
Dans une feuille 1, sur une ligne, tous les mois de l'année au format("mmmm")
mon code est le suivant :

Dim auj As Byte
auj = Month(Date)
For Each cel In Sheets(1).Range("A5:L5")
If Month(cel.Value) = auj Then
cel.Offset(1, -1).Select
Exit For
End If
Next cel
dans une feuille 2, j'importe des données d'access en colonne (a et b) que je nomme par le mois en cours.puis en fin de procédure me décalle de deux colonnes vers la droite et, recommence avec les mois suivants
dans ma feuille1, dans une cellule, je place la fonction recherchev qui par exemple me cherche "titi" dans la feuille2 (avec le mois correspondant) afin de reporter les données.
Comment, dans vb alors que le code est activecell.formular1c1, est il possible d'inserer le code qui recherche une valeur en fonction du mois défini. et non pas en créant 12 procédures différentes pour les mois suivants alors qu'une seule suffirait.
Je ne sais pas si j'ai été assez clair(enfin je le souhaite)
Merci de votre aide
 

Discussions similaires

Réponses
2
Affichages
402

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata