Date dans colonne d'une selection

[Touna]

Bonjour,
Encore besoin de vous pour améliorer un fichier,


Dans la cas d'une selection multiple de plusieurs lignes, je souhaiterai que la date s'inscrive dans
la colonne C des lignes selectionnées.

Avec ma macro, elle ne s'inscrit que sur le première ligne de la sélection, voici ma macro :

Sub couleurs()
Selection.Interior.Color = 10066431
Selection.Cells(i + 1, 3).Value = Date
End Sub

Merci d'avance,
Touna

 

[vgendron]

Re : Date dans colonne d'une selection

Hello

avec ce code

Sub couleurs()
 
    Selection.Interior.Color = 10066431
    Selection.Offset(0, 2).Value = Date
End Sub

 

[Touna]

Re : Date dans colonne d'une selection

Bonjour Vgendron,
Merci pour ta réponse rapide, ça ne marche pas, ça met bien la date dans les lignes sélectionnées en colonne C, mais également dans les autres colonnes (D,E,F,G et H).

De plus la sélection, peut se faire par la barre des lignes, et dans ce cas ça ne marche pas,
A suivre,
Touna

 

[Si...]

Re : Date dans colonne d'une selection

salut

à voir

Sub couleurs()
  With Cells(Selection.Row, "C").Resize(Selection.Rows.Count)
    .Interior.Color = 10066431
    .Value = Date
  End With
End Sub

mais pas pour une sélection de cellules non adjacentes

 

[Touna]

Re : Date dans colonne d'une selection

Merci beaucoup, c'est tout à fait ce que je voulais,
Bonne journée à vous,
Touna