Bonjour,
Dans un classeur excel, j'ai 2 feuilles:
- plan de charge
- planning matériel
Chacune dipose des dates jour par jour en colonne et de nom de personnes/liste de matériel en ligne.
Les dates du jour sont sur la ligne 3 des 2 feuilles.
J'ai réussi à faire une CommandBox qui me trouve la cellule contenant la date du jour dans l'ActiveWorkSheet.
Par contre, je cherche à créer une seconde CommandBox qui me permettrait en un clic d'aller sur la cellule de la date de l'ActiveCell de ma feuille.
Exemple: ci je suis sur le 30/09/2008 sur ma feuille "Plan de Charge", je vous cliquer sur le bouton et qu'il m'affiche (me sélectionne) la cellule 30/09/2008 de ma feuille "planning matériel"
J'espère avoir été clair !!!
Voici le code que j'ai mis:
Sinon, le fichier est ici:
Cijoint.fr - Service gratuit de dépôt de fichiers
Dans un classeur excel, j'ai 2 feuilles:
- plan de charge
- planning matériel
Chacune dipose des dates jour par jour en colonne et de nom de personnes/liste de matériel en ligne.
Les dates du jour sont sur la ligne 3 des 2 feuilles.
J'ai réussi à faire une CommandBox qui me trouve la cellule contenant la date du jour dans l'ActiveWorkSheet.
Par contre, je cherche à créer une seconde CommandBox qui me permettrait en un clic d'aller sur la cellule de la date de l'ActiveCell de ma feuille.
Exemple: ci je suis sur le 30/09/2008 sur ma feuille "Plan de Charge", je vous cliquer sur le bouton et qu'il m'affiche (me sélectionne) la cellule 30/09/2008 de ma feuille "planning matériel"
J'espère avoir été clair !!!
Voici le code que j'ai mis:
Code:
Private Sub cmd_date_plan_charge_Click()
Dim date_plan As Date
Dim cel As Object
date_plan = Cells(3, ActiveCell.Column).Value
MsgBox (Str(date_plan) + Chr(13) + Str(Date))
For Each cel In Worksheets(4).Range("D3:HE3")
If cel = Date Then
cel.Select
GoTo fin
End If
Next cel
fin:
End Sub
Sinon, le fichier est ici:
Cijoint.fr - Service gratuit de dépôt de fichiers
Dernière édition: