M
Mathieu
Guest
Bonjour à tous,
Parcourant depuis longtemps le forum, j'ai souvent trouvé des solutions à mes pbs en vba !
Mais là... je coince !
Sur une feuille "Sommaire", je sélectionne une date grâce à un calendrier.
J'aimerais ensuite que cette date soit recherchée dans toutes les feuilles du classeur, et quand elle est trouvée, m'emmener sur la feuille où elle se trouve...
Pour le moment j'en suis là :
Private Sub BoutonOK_Click()
dialogue1.Hide
For Each cell In Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"))
If cell.Value = Sheets("Sommaire").Range("D9").Value Then
MsgBox "Trouvé la date !" 'pour faire les tests !
Else: MsgBox "Pas trouvé :-(" 'pour faire les tests !
Range("d9").Select 'là en fait je voudrais non pas que le focus se mette sur "d9" de ma première feuille, mais sur la cellule dans la feuille où la date a été trouvée... Clair ?
Exit Sub
End If
Next cell
End Sub
D'avance MERCI pour votre aide !
Parcourant depuis longtemps le forum, j'ai souvent trouvé des solutions à mes pbs en vba !
Mais là... je coince !
Sur une feuille "Sommaire", je sélectionne une date grâce à un calendrier.
J'aimerais ensuite que cette date soit recherchée dans toutes les feuilles du classeur, et quand elle est trouvée, m'emmener sur la feuille où elle se trouve...
Pour le moment j'en suis là :
Private Sub BoutonOK_Click()
dialogue1.Hide
For Each cell In Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"))
If cell.Value = Sheets("Sommaire").Range("D9").Value Then
MsgBox "Trouvé la date !" 'pour faire les tests !
Else: MsgBox "Pas trouvé :-(" 'pour faire les tests !
Range("d9").Select 'là en fait je voudrais non pas que le focus se mette sur "d9" de ma première feuille, mais sur la cellule dans la feuille où la date a été trouvée... Clair ?
Exit Sub
End If
Next cell
End Sub
D'avance MERCI pour votre aide !