Macro pour changer de couleur police

Bonjour

Je souhaite ajouter une macro qui me permette de changer la couleur de police et le fond de la cellule à mon fichier ci joint.

D'avance , merci

Ma

Bonjour,

Voici un essai si j'ai bien compris :

Il est possible en protégeant la feuille (et en déverrouillant les cellules qui nous intéressent) de se déplacer de la sorte par simples tabulations.

Ensuite, à une simple macro private sub worksheet_selectionchange, on change la couleur de F10...

Cdlt,

Bonsoir

Merci pour le retour rapide.

C'est presque cela que je voulais obtenir

En fait je souhaite que la cellule F10 soit en apparence vide (police blanche) et qu'elle se colore uniquement lors de la sélection de H6.

Merci pour l'idée de la tabulation.....c'est en effet une bonne astuce

Cdlt

Dans ce cas, voici l'idée :

Cdlt,

Merci aussi pour cette nouvelle solution....

En fait je préfère garder la macro qui va de cellules en cellules....c'est plus direct avec une manipulation de moins. Une fois les données renseignées, l'autre cellule est sélectionnée immédiatement.

Concernant la cellule F10, elle se colore des que H 6 est sélectionné, c'est ce que je souhaitais . Par contre ne serait il pas possible qu'ensuite ces couleurs restent tout le temps sauf si retour en D6 ?? ( actuellement des qu' on sélectionne une autre cellule tout disparait dans F10)

En tous les cas merci pour toute cette aide

MA

Bon, j'espère que cet essai sera le bon . Je poste le code au cas où :

Private Sub Worksheet_Change(ByVal Target As Range)

Set r = Intersect(Target, Rows(6))
If Not r Is Nothing Then
    Select Case Target.Column
        Case 4, 6: Target.Offset(0, 2).Activate
        Case 8: Range("F10").Activate
    End Select
End If

End Sub

Private Sub Worksheet_selectionChange(ByVal Target As Range)

With Range("F10")
    If Target.Address = "$H$6" Then
        .Interior.Color = RGB(0, 0, 255)
    ElseIf Target.Address = "$D$6" Then
        .Interior.Color = RGB(255, 255, 255)
    End If
End With

End Sub

J'ai enlevé la protection. L'évènement change se produira à la sélection d'une valeur de la liste mais en cas de saisie au clavier, il faudra quand même tabuler...

Cdlt,

Bonsoir

Merci pour le dernier retour.

J'ai réussit à concrétiser ce que je voulais faire.

Encore un grand merci pour l'aide et les temps consacrer.

Cdlt

Ma

Bonsoir et merci pour ce retour !

Bonne continuation et bonne soirée