VBA EntireColumn....qui fait que de me contrarier !

[CHLOE90]

Bonjour Le Forum,

C'est Chloé qui décidement ne comprend toujours rien en VBA

Je souhaite changer dans un colonne toutes les cellules qui contiennent une date (certaines cellules sont vides ou contiennent du texte) par la valeur de cette date suivie d'un tiret suivi du titre de la colonne (qui est toujours en ligne 3)....et ceci sur plusieurs colonnes.
Du coup j'ai écrit ceci :

For Each c In ActiveSheet.UsedRange
If IsDate(c) Then
c.Value = c.Value & " - " & Cells(3, c.EntireColumn.Value).Value
End If
Next

Je pense que c'est le morceau "c.Value & " - " & Cells(3, c.EntireColumn.Value).Value" qui coince, mais je ne trouve pas pourquoi.
Une bonne volonté aurait-il la gentillesse de me corriger mon code SVP

Bon A.M. à tous

Chloé

 

[Pierrot93]

Re : VBA EntireColumn....qui fait que de me contrarier !

Bonjour,

essaye peut être ceci, non testé... :

For Each c In ActiveSheet.UsedRange
If IsDate(c) Then
c.Value = c.Value & " - " & Cells(3, c.Column).Value
End If
Next

bon après midi
@+

Edition : bonjour PierreJean

 

[pierrejean]

Re : VBA EntireColumn....qui fait que de me contrarier !

Bonjour CHLOE90

A tester:

For Each c In ActiveSheet.UsedRange
If IsDate(c) Then
c.Value = c.Value & " - " & Cells(3, c.Column).Value
End If
Next

Edit: Salut Pierrot

 

[CHLOE90]

Re : VBA EntireColumn....qui fait que de me contrarier !

Pierrot et PierreJean

Vous êtes non seulement plus rapides que l'éclair mais en plus efficaces.

Merci à vous deux, pour ce coup de pouce.

Chloé.