Déplacer la colonne à la date correspondante

Bonjour à tous ,

Sur un planning via un code VBA je voudrais aligner sur la colonne figée la date correspondante de celle de la cellule B30.

Je joint un fichier pour l'exemple.

Et aussi complêter ce code pour avoir une police "gras , couleur rouge et soulignée ":

Sub fondcellule()

Dim celCol, oCol As Range

For Each oCol In Range("C31:IU50").Cells

Select Case oCol.Value

Case "R": celCol = 4

Case "M": celCol = 44

Case "S": celCol = 41

Case "4": celCol = 3

Case "2": celCol = 46

Case "MC": celCol = 44

Case "MC": celFontCol = 3

Case "MC": celFontStyle = "Gras"

Case "MC": celUnderline = xlUnderlineStyleSingle

Case "SC": celCol = 41

Case "SC": celFontCol = 3

Case "SC": celFontStyle = "Gras"

Case "SC": celUnderline = xlUnderlineStyleSingle

Case Else: celCol = xlNone

End Select

oCol.Interior.ColorIndex = celCol

Next oCol

End Sub

Merci d'avance pour votre aide.

Bonjour,

Si tu me permets deux petites questions :

1. Que signifie Aligner ... pour toi ?

2. Pourquoi pour les cellules de tes lignes 29 et 30 ne sont pas simplement des formules qui s'ajusteent toutes seules ...?

Les colonnes A et B sont figées.

Je veux ajuster la colonne qui a la même date qu'en B30 à coté de la colonne B.

Pour les lignes 29 et 30 les dates ont été créer en incrémentation.

Isa,

Ci-joint ton fichier test ...

Il suffit de saisir la date en B30 ...

Le fichier ne doit pas être compatible : j'utilise Excel 2003.

Y a t il une solution pour pouvoir le lire ?

Isa ...

Je suis désolé ... ... de ne pas avoir fait attention à ton format ...

Ci-joint ta version ... que j'espère ... opérationnelle ...

Fais-moi part de tes commentaires ...

Super , merci c'est bien cela.

Avez vous une idée pour les format de police si les celles sont égales à " SC " et "MC " ?

J'ai essayé avec un enregistrement de macro , mais je voudrais l'adapter à la suite Select Case

      Formula1:="=""SC"""
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Underline = xlUnderlineStyleSingle
        .ColorIndex = 3
    End With

Re,

Content que le saut à la colonne fonctionne ...

Je ne comprends pas très bien ce que tu veux ... concernant la police ...gras ... rouge ...souligné ...

Merci de préciser ...

Re,

Si tu as besoin de modifier la police des cellules contenues dans la plage C31 : IN47 ... lorsque les valeurs sont égales à SC ou MC ...

Tu n'as besoin d'aucune macro ... il suffit d'utiliser de la mise en forme conditionnelle ...

Ton fichier joint ...

J'y avais déjà pensé à la mise en forme conditionnelle. Mais comme j'avais un début de code pour la couleur de fond de cellule , je pensais qu'il était possible de traiter en même temps la police .

isabellette a écrit :

...en même temps la police...

En cette période ... voilà qui peut-être dangereux ...

Blague à part ... avec Excel ...on peut tout faire ... mais. à mon avis, il faut savoir se faciliter la vie ... et la MFC est parfaite justement pour avoir tous les formats désirés en fonction de conditions variables ...

En tous cas MERCI pour votre rapidité.

isabellette a écrit :

En tous cas MERCI pour votre rapidité.

Si ce n'est que de la rapidité ... et que tout est faux ... tu risques bien de n'y avoir rien gagné ...