Sujet Précédent Sujet Suivant

Couleur de colonne excel 2003

dadoue024 -  
Stringman621 Messages postés 1802 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Dans ma cellule A1 j'ai 1 et dans mes cellules B2, C2 et D2 j'ai respectivement 1, 2 et 3.
quand dans A1 j'écris 1 je voudrais que la colonne B2 où il y a 1 soit en bleu et quand dans A1 j'écris 2 que la colonne C2 où il y a deux soit en bleu et ainsi de suite.

Merci de votre aide c'est urgent

A voir également:

3 réponses

Réponse 1 / 3
Stringman621 Messages postés 1802 Date d'inscription   Statut Membre Dernière intervention   340
 
Bonjour,

As-tu fait quelques recherches sur ce sujet avant de poster ?
Quels sont tes pistes ? ou tes débuts d'idées ?

@+
0
dadoue024
 
Bonjour,
J'ai juste réussi à mettre mes cellules en couleur bleu suivant le chiffre de ma cellule A1
avec mise en forme conditionnelle la valeur de la cellule est égal à $A$1 motif bleu.

C'est tout je n'arrive pas à mettre la colonne

@+
0
Réponse 2 / 3
Stringman621 Messages postés 1802 Date d'inscription   Statut Membre Dernière intervention   340
 
J'ai trouvé ça : 
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then
        
        Range("B2").EntireColumn.Interior.Color = vbWhite
        Range("B2").EntireColumn.Borders.Color = xlColorIndexNone
        
        Range("C2").EntireColumn.Interior.Color = vbWhite
        Range("C2").EntireColumn.Borders.Color = xlColorIndexNone
        
        Range("D2").EntireColumn.Interior.Color = vbWhite
        Range("D2").EntireColumn.Borders.Color = xlColorIndexNone
                
        Select Case Target.Value
            Case 1:
                Range("B2").EntireColumn.Interior.Color = vbBlue
                Range("B2").EntireColumn.Borders.Color = vbBlue
                
            Case 2:
                Range("C2").EntireColumn.Interior.Color = vbBlue
                Range("C2").EntireColumn.Borders.Color = vbBlue
                
            Case 3:
                Range("D2").EntireColumn.Interior.Color = vbBlue
                Range("D2").EntireColumn.Borders.Color = vbBlue
                
        End Select
        
    End If

End Sub


Dis mois si ça te conviens
0
dadoue024
 
Wouhaw !! A vrai dire je connais juste les formule =si( suelque chose ou somme donc la pour moi c'est carrément du charabia !!
Merci quand même
0
Réponse 3 / 3
Stringman621 Messages postés 1802 Date d'inscription   Statut Membre Dernière intervention   340
 
Je viens de faire un peu le tour de ce qui se fait à part utiliser le langage VBA (mon post du dessus)

Je ne vois pas comment faire désolé...

Si tu trouves une solution, présentes-la je serais intéressé de savoir
0