VBA: Selectionner une cellule d'une autre feuille

[jokair]

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:

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

 

[Pierrot93]

Re : VBA: Selectionner une cellule d'une autre feuille

Bonjour Jokair

essaye peut être le code ci dessous :

Dim c As Range
With Sheets("planning matériel")
    Set c = .Cells.Find(ActiveCell.Value, , xlValues, xlWhole, , , False)
    If Not c Is Nothing Then Application.Goto c
End With

bonne journée
@+