Selection de cellules

[Fadiese]

Bonjour

Je cherche à retourner la valeur alpha de type "AA" d'une cellule

Voici la macro que j'utilisemais elle ne marche que pour les valeurs de A à Z

For Each d In Range("B4:Z4")
If CDate(d.Value) = CDate(DateDeb) Then
Lettre = Chr(Alpha)
Range(Lettre & Nbre).Select
Selection.Style = "P_Conges"
Else
Alpha = Alpha + 1
End If
Next d

Si quelqu'un connait une astuce, merci pour sa reponse

Fadiese

 

[Pascal76]

Bonjour

Essaies peut-être comme ceci

MaCol=1

For Each d In Range("B4:Z4")
If CDate(d.Value) = CDate(DateDeb) Then
Cells(Nbre,MaCol).Select
Selection.Style = "P_Conges"
Else
MaCol= MaCol+ 1
End If
Next d


Bon courage

Pascal

 

[Fadiese]

Ok merci pascal

Cela fonctionne