Bonjour bigdaddy154,
Merci pour ta participation.
Ton code fonctionne mais il sélectionne également les 3 premières lignes (intitulé du tableau), ce que je ne veux pas.
Je crois que j'ai trouvé, je ne sais pas si c'est la bonne façon de faire, mais ça semble fonctionner.
Sub SelectLigneMois()
Dim mois As String 'variable alphanumérique
Dim n As Byte ' variable nombre jusqu'à 256
mois = Format([A4], "mm") 'trouve le mois en A4 au format exemple "01" pour janvier
n = 4
Do While Format(Cells(n, "A"), "mm") = mois 'boucle tant que le format mois de la cellule correspond au format de la variable mois
If Format(Cells(n, "A"), mois) Then n = n + 1 'incrémente n
Loop
'selection
Range("A4:A" & n - 1).Select 'selectionne les cellules
Range(Selection, Selection.End(xlToRight)).Select 'selectionne la ligne complète
End Sub
J'ai rajouté :
Range(Selection, Selection.End(xlToRight)).Select 'selectionne la ligne complète
Merci,
Cordialement,
xorsankukai