Remplir des cellules en fonction d'une autre avec une mise en forme cond

Bonjour !

j'ai un fichier dans lequel, dans la cellule A19 , j'ai un menu déroulant avec les choix suivant :

- COPROPIETE

-LOTISSEMENT

- MAISON

J'aimerai que lorsque :

- COPROPRIETE est sélectionné, les cellules E74 à E79 soient remplies avec un 1.

- LOTISSEMENT est sélectionné, les cellules E74 à E74 soient remplies avec un 1

- MAISON est sélectionné, les cellules E63 à E79 soient remplies avec un 1.

j'ai tenté une mise en forme conditionnelles avec un e formule =SI(condition;vrai;faux) mais ça ne fonctionne pas...

Important : Je ne peux pas utiliser de mise en forme dans les cases car j'ai un code vba sur les cellules E74 à E79 qui me permet de les remplir automatiquement avec un "1" quand je clique dessus, donc de ce fait, je ne peux y mettre de formules.

Du coup, je suppose qu'avec une mise en forme conditionnelle ça devrait pouvoir fonctionner, mais je n'y arrive pas...

Si quelqu'un peut m'aider ! D'avance merci ;)

Eric

Salut,

Suis perdu là si tu fais un remplissage automatique quand tu cliques sur une case E74-E79 pourquoi vouloir changer quand la valeur de A19 change Ne serait-il pas plus simple de laisser A19 gérer le tout ?

Bonjour Jean-Paul ;)

Je précise, je me suis mal exprimé !

Quand je clique sur E74 > uniquement celle-ci se rempli avec le chiffre 1

Quand je clique sur E75 > uniquement celle-ci se rempli avec le chiffre 1

Quand je clique sur E76 > uniquement celle-ci se rempli avec le chiffre 1

ETC...

En fait, il s'agit d'une check-list, qui va de E9 > E162

Et dans certains cas (copropriété, maison, terrain...) j'aurai besoin d'en remplir plusieurs d'un seul coup.

j'ai donc créé une liste déroulante pour choisir un de ces cas.

Je pense que c'est plus clair (j'espère!)

Merci ;)

Salut,

Je pense que tu as commencé par mettre en forme ta validation de données pour la cellule A19 comme ceci par exemple

Si c'est le cas dans l'évènement change de ta feuille tu colles ce code et normalement tu auras ton fonctionnement, pour parfaire il faudrait savoir comment tu changes tes données en cliquant dessus.

Private Sub Worksheet_Change(ByVal Target As Range)

   With ActiveSheet
        If Not Intersect(.Range("A19"), Target) Is Nothing Then
            ' // On évite le recalcul de la feuille
            Application.EnableEvents = False
            Select Case .Range("A19").Value
                Case "-"
                    .Range("E63:E79").Value = ""
                Case "Copropriété"
                    .Range("E63:E79").Value = ""
                    .Range("E74:E79").Value = 1
                Case "Lotissement"
                    .Range("E63:E79").Value = ""
                    .Range("E74").Value = 1
                Case "Maison"
                    .Range("E63:E79").Value = 1
                Case Else
            End Select
            Application.EnableEvents = True
        End If
    End With
End Sub

Voilà, bonne programmation,

Bonjour Jean-Paul !

Un grand merci à toi pour ton aide!

Je vais tester ça dès que possible (dans la journée), et je ne manquerai pas de te dire si j'y suis arrivé !

Excellente journée à toi,

Eric

Bon ben un grand Bravo !

ça fonctionne nickel, cohabite bien avec mon code déjà présent dans ma feuil1.

Super, Merci Jean Paul ;)

Bonne soirée !