XL 2013 activer la cellule du mois courant (texte)

[chindou]

Bonsoir, le forum
Je veux qu’à l’ouverture de la feuille, activer la cellule A de la ligne ou se trouve le mois courant

J’utilise la macro ci-dessous qui s’exécute bien si la cellule est date d’aujourd’hui et au format dd/mm/yyyy

Que ce qu’il faut changer si j’utilise une date de format mois courant (texte)

Sub DateJour()
Dim i As Integer
i = Application.WorksheetFunction.Match(CLng(Date), Range("I:I"), 0)
Range("A" & i).Activate
End Sub

Merci d'anvance
Cordialement

 

[sylvanu]

Bonsoir Chindou,

une date de format mois courant

C'est quoi "de format mois courant" ? Le texte du mois ou le N° de mois ?

 

[chindou]

bonjour le forum
merci bien sylvanu
le mois en cours en lettre (Novembre)

 

[sylvanu]

Bonjour,
Essayez de nous fournir un petit fichier test. Ce sera plus simple.
On pourrait peut être remplacé CLng(Date) par Format(Date, "mmmm") qui donne en texte le nom du mois. Aujourd'hui Format(Date, "mmmm") répond "novembre".
Ensuite cela va dépendre de la langue utilisé dans votre XL, on aura "Novembre" ou "November", et ensuite de la liste présente en Range("I:I").

 

[chindou]

merci
je vais essayer de minimiser mon fichier pour avoir un fichier plus simple
cordialement

 

[sylvanu]

Ai je vu un fichier apparaitre puis disparaitre ?

 

[AtTheOne]

Bonsoir @chindou et tout le forum ...

J'ai vu le fichier et j'ai eu le temps de le télécharger !
J'ai écrit une petite macro GotoMois, Regarde le fichier joint.

Amicalement
Alain

 

[chindou]

Bonsoir le forum
Sur mon fichier il y a 5 onglets nommés (1A, 2A, 3A, 4A) et l’onglet principal nommé (Accueil)

Je souhaite se positionner sur la cellule ou se trouve le mois en cours écris manuellement en lettres (ex : Novembre) de l’onglet je sélectionne. Pour avoir le tableau de novembre directement sur écran

J’ai modifié une macro qui donne le bon résultat si la sélection des feuilles se fait manuellement

Mais dans mon fichier original la navigation entre se fait par macro c’est là ou ma macro modifié ne marche pas.
Merci d'avance

 

[chindou]

Bonsoir @chindou et tout le forum ...

J'ai vu le fichier et j'ai eu le temps de le télécharger !
J'ai écrit une petite macro GotoMois, Regarde le fichier joint.

Amicalement
Alain

Merci bien AtTheOne
je vais tester sur mon fichier

 

[chindou]

Bonsoir @AtTheOne
J’ai testé ta macro mais j'ai un bug au niveau de la recherche dans la colonne N°ColMoisde.

Vous remerciant par avance pour votre aide

 

[AtTheOne]

ReBonsoir @chindou

C'est une histoire de version, j'ai écrit la macro pour la version 2021 d'EXCEL.

Dans le code surligné en jaune, remplace xlFormulas2 par xlFormulas et ça devrait fonctionner (c'est OK pour EXCEL 2007).

A bientôt
Alain

Ps : tu peux remplacer la ligne
MsgBox "Mois " & MoisCur & " absent de la colonne " & N°ColMois
par la ligne
MsgBox "Mois " & MoisCur & " absent de la colonne " & Wsh.Columns(N°ColMois).Address(True, True)

Ça te renverra ... colonne $G:$G au lieu de ... colonne 7 si la méthode Find échoue.

 

[chindou]

bonsoir
ça marche très bien maintenant
Moi aussi j'ai réussi à surmonter le bug. J'ai enlevé la ligne : LookIn:=xlFormulas2, LookAt:=xlWhole
Merci bien Alain
Bonne soirée

 

[AtTheOne]

@chindou
A ta place, je mettrai quand même la ligne : LookAt:=xlWhole
qui précise dans que la totalité de la cellule doit correspondre (xlWhole).
Mais à toi de voir...
Bonne soirée
Alain