Discussion :

[MicKRub]

Bonjour,

Je crée un classeur excel pour la planninfication des horaires 2018.

J'ai une feuille regroupant tous les mois que le responsable utilise pour faire des modification d'horaire (voir image).

Les autres onglet sont juste de la visualisation.

J'ai réussi, avec l'aide d'une MFC, faire que la colonne correspondant à la date rechercher se colore.

Je souhaiterai maintenant, que lorsque j'utilise l'Userform Rechercher date et que je clique sur rechercher, cela fasse un Range("Case correspondant au prermier ambulancier ").Select selon la date rechercher.

Est-il possible de faire cela et si oui, comment?

Meilleures salutations

[78chris]

Bonjour

Utilise la fonction FIND

[MicKRub]

Merci pour la réponse.

J’ai fait quelques recherches sur FIND mais j’avoue être perdu.

[78chris]

RE

As-tu bien de vraies dates sur une ligne et si oui laquelle ?

[MicKRub]

Oui en AC11
Mais elle sont à chaque fois doublées. Car j’ai besoin de deux colonnes par jour (pour la case jour et la case nuit)

AC11 (01.01.2018)
AD11 (01.01.2018)
AE11 (02.01.2018)
AF11 (02.01.2018)
...
Etc.

Jusqu’au 31.12.2018

Mon userform «*recherche date*» copie la date écrite dans le champs texte dans la cellule AA2.

Merci de prendre du temps pour ma demand c’est sympa

[78chris]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("AC11:AZ11").Find(Variable).Offset(1, 0).Select

Adapter la valeur d'Offset pour se positionner sur la ligne souhaitée

Sauf formatage particulier des dates avec des points sont des textes...

Vérifier la variable saisie avant.

[MicKRub]

Merci beaucoup, cela fonctionne parfaitement.

J'aurai encore une question. Est-il possible de déplacer automatiquement la barre de défilement horizontale en fonction de la date choisie dans mon UserForm?

Par exemple si je suis sur le mois de janvier (comme sur l'image posté) et que j’écris 20.04.2018, cela me sélectionne bien la cellule voulue mais ne me déplacer pas visuellement sur cette colonne.

Est-il possible de faire cela?

Encore merci pour votre aide précieuse

[MicKRub]

Après quelques recherches j'ai trouvé cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Goto Reference:=Worksheets("Nom de la feuille").Range("AC11:ACF11").Find(Nom de la Variable).Offset(14, 0), Scroll:=True

Ça me déplace bien où je souhaite.

Merci beaucoup