Bonjour,
Pour les besoins de mon fichier de travail qui devient super à vous, j'ai un code qui prévient par message vocal et qui renvoie à la cellule concernée :
Mais ça "coince sur cette ligne :
For Each cellule In Feuil5.SpecialCells(xlCellTypeVisible).Range("t7:t20000")
Presque nul en vba, je n'arrive pas à trouver le bon code.
Auriez-vous la solution ?
Avec mes remerciements,
Je vous souhaite une très bonne journée à toutes et à tous.
Amicalement,
Lionel,
Pour les besoins de mon fichier de travail qui devient super à vous, j'ai un code qui prévient par message vocal et qui renvoie à la cellule concernée :
Code:
Sub lance_Voix()
'Selection.SpecialCells(xlCellTypeVisible)
For Each cellule In Feuil5.SpecialCells(xlCellTypeVisible).Range("t7:t20000")
If Rows.Hidden = False Then
If cellule < Now Then
Call Test_Voix
cellule.Select
'MsgBox ("La cellule '<Now' est selectionnée")
Exit Sub
End If
End If
Next cellule
End Sub
Mais ça "coince sur cette ligne :
For Each cellule In Feuil5.SpecialCells(xlCellTypeVisible).Range("t7:t20000")
Presque nul en vba, je n'arrive pas à trouver le bon code.
Auriez-vous la solution ?
Avec mes remerciements,
Je vous souhaite une très bonne journée à toutes et à tous.
Amicalement,
Lionel,
Dernière édition: