couleur cellule à l'écriture

[MASSJIPE]

Bonjour à tous
je voudrai que lorque l'on ecrit dans la cellule " n'importe quoi meme des chiffres" que le fond devient rouge
merci

 

[Hulk]

Re : couleur cellule à l'écriture

Hello,

Tu peux faire comme ceci. Pour la plage A1:H30.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim x As Range
    
    On Error Resume Next 'Ca et...
    
    If Not Application.Intersect(Target, [A1:H30]) Is Nothing Then
        If Target <> "" Then
            Target.Interior.ColorIndex = 3
        Else
            Target.Interior.ColorIndex = xlNone
        End If
    End If
    
    '...Ca pour si tu effaces toutes les cellules en les sélectionnant
    For Each x In Selection
        x.Interior.ColorIndex = xlNone
    Next x
    
End Sub

Si pleine = rouge, si non = sans couleur.


EDIT :

Code modifié pour éviter le message d'erreur si plusieurs cellules effacées en même temps.

Slt, Modeste 🙂

 

[Modeste]

Re : couleur cellule à l'écriture

Bonsoir MASSJIPE,

Si j'ai bien compris, j'essayerais Format --> Mise en forme conditionnelle -->

"La valeur de la cellule est"

"différente de"

=""

Salut Hulk !

 

[MASSJIPE]

Re : couleur cellule à l'écriture

Merci à vous deux