Formatage de 2 cellules en fonction de la sélection d'une cellule.

[chris34]

Bonjour le forum

J'ai trouvé beaucoup de sujets sur le formatage de cellules en fonction d'une valeur, d'une couleur, d'un format. Mais dans le cas présent j'aurais voulu formater 2 cellules en fonction de la sélection d'une cellule et là j'ai rien trouvé.

Par exemple dans la pièce jointe si je clique sur le bouton 2 à la fin de la macro la cellule A5 est sélectionnée.
Comment faire alors pour que les cellules A5 et C5 passe en fond rouge et police en blanc.

Et bien sûr si je clique sur le bouton 3, les cellules A5 et C5 redeviendraient normales et ce sont les cellules A6 et C6 qui passeraient en rouge.

Merci.

chris34

 

[DoubleZero]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Bonjour, chris34, le Forum,

En attendant mieux... une suggestion en pièce jointe.

A bientôt

 

[st007]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Bonjour,

une idée

Sub ajout1()
    Application.ScreenUpdating = False
    Sheets("expDpt").Range("J2:J11").Copy
    Sheets("Visuel").Range("G4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A4,C4").Select
    With Selection
    .Interior.ColorIndex = 3
    End With
    Range("A5:A10", "C5:C10").Interior.ColorIndex = xlNone
    Range("B4").Select
    Application.ScreenUpdating = True
End Sub
Sub ajout2()
    Application.ScreenUpdating = False
    Sheets("expDpt").Range("K2:K11").Copy
    Sheets("Visuel").Range("G4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A5,C5").Select
    With Selection
    .Interior.ColorIndex = 3
    End With
    Range("A4,C4,A6:A10,C6:C10").Interior.ColorIndex = xlNone
    Range("B5").Select
    Application.ScreenUpdating = True
End Sub

edit : Bonjour Doublezero, j'avais pas rafraîchi, et c'est le même ordre d'idée

 

[chris34]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Bonjour DoubleZero et st007

Un grand Merci DoubleZero car sur ce coup là je n'y arrivais pas. Mais pourquoi dis-tu "En attendant mieux..." car moi ça me convient parfaitement. En tout cas c'est exactement le résultat attendu.

Merci aussi à toi st007, je n'ai pas encore essayé ton code mais je vais voir ce que ça donne dans le courant de l'après-midi.

Avec ces 2 codes ça me permettra de mieux comprendre ce que je n'arrivais pas à faire.

chris34

 

[DoubleZero]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Re-bonjour, bonjour, st007,

c'est le même ordre d'idée

Oui , mais... il y a certainement une solution plus rapide que je ne trouve pas

A bientôt

 

[Guest]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Bonjour à tous,

J'arrive après la bataill mais bon:

la même chose sans les shapes mais avec un nom(LaLigne) et quelques lignes de codes dans le module de la feuille:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Not Intersect(ActiveCell, Range("A4:A10")) Is Nothing Then
        Dim idxCol As Variant
        Application.Names.Add "laLigne", "=" & ActiveCell.Row
        With Sheets("expDpt")
            idxCol = Application.Match(ActiveCell.Value, .Range("J1:P1"), 0)
            If Not IsError(idxCol) Then Me.Range("G4:G13").Value = .Range("j2:j11").Offset(, idxCol - 1).Value
        End With
    End If
End Sub

A+

 

[DoubleZero]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Re-bonjour, bonjour, Hasco ,

... Mais pourquoi dis-tu "En attendant mieux..." car moi ça me convient parfaitement...

Parce que s'il devait y avoir 100 boutons (ou davantage), le module contiendrait... pfff... je ne sais combien de lignes

Mais le magicien Hasco a tout résolu

A bientôt

 

[chris34]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Bonjour Hasco

Waooouuuhhh là effectivement ce n'est plus pareil.

Enfin plus pareil (pour moi) dans le sens où effectivement le code est bien plus court.

C'est peut-être de ça que voulait parler DoubleZero dans son dernier message.

Seulement là ça va être une autre paire de manches pour arriver à comprendre ce code mais je prends les yeux fermés.

Merci Hasco

 

[chris34]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Parce que s'il devait y avoir 100 boutons (ou davantage), le module contiendrait... pfff... je ne sais combien de lignes

Et oui maintenant je comprends mieux ce que tu voulais dire surtout après avoir vu le code de Hasco

Merci

 

[Guest]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Re bonjour,

Voici une version avec un code encore plus court et que nous pourrions réduire à 1 ligne (plus longue)

Version qui s'appuie sur une fonction Index/equiv pour retourner les valeurs idoines.

A+ à tous

sourire particulier à 00

 

[DoubleZero]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Re-bonjour,

@ Hasco :

Pas 1 "Like" mais...

A bientôt

 

[chris34]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Voici une version avec un code encore plus court et que nous pourrions réduire à 1 ligne (plus longue)

Alors là CHAPEAU !!!!

Et bien que n'ayant aucune aptitude à pouvoir comprendre ce code, je peux tout de même constater qu'il fait bien ce que je demandais.

Dis Hasco, tu vas pas en sortir un autre encore plus court, non parce que là je commence à me poser des questions

 

[chris34]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

Hasco si tu es encore là.

Le code est bien celui-ci qui se trouve dans la Feuil1(Visuel) ?

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Not Intersect(ActiveCell, Range("A4:A10")) Is Nothing Then
Application.Names.Add "laLigne", "=" & ActiveCell.Row
End If
End Sub

Bon d'accord mais alors quelle est la partie de code qui décide de la couleur de fond et de la couleur de la police ???

 

[st007]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

La mise en forme conditionnelle bien sure ..

 

[chris34]

Re : Formatage de 2 cellules en fonction de la sélection d'une cellule.

La mise en forme conditionnelle bien sure ..

Je viens tout juste de lire la réponse et je me sens... comment dire ?? Dans un moment de grande solitude, tout couillon quoi !