Valeur par défaut dans une cellule

[Tchingum]

Bonjour,

Je cherche une macro qui:
Quand je mais un "X" dans la cellule A1 elle me m'inscrit dans la Cellule B1 par ex. "svp remplir" et que je peux remplir cette cellule B1

Et si j’efface la cellule A1 il m’efface le commentaire "svp remplir" mais pas l'inscription.

Merci d'avance

Tchingum

 

[Dull]

Re : Valeur par défaut dans une cellule

Salut Tchingum, le Forum

Peut tu essayer ce code à colle dans un module standard

Sub EssAi()
Dim C As Range
For Each C In Range("B1:B1000")
    With C
        .ClearComments
        If C.Offset(, -1) = "X" And .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.OLEFormat.Object.Font.Size = 8
            .Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
            .Comment.Text Text:="svp remplir"
            .Comment.Shape.TextFrame.AutoSize = True
        End If
    End With
Next C
End Sub

Et celui-ci dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:A1000]) Is Nothing Then EssAi
End Sub

Ne concerne que la Plage A1:A1000 à adapter Attention: "X" est différent de "x"

Bonne Journée

 

[Tchingum]

Re : Valeur par défaut dans une cellule

Hello,

Merci, mais est-ce possible d'avoir la valeur dans la cellule et non pas en validation
ou alors si c'est en validation il faudrait que ça apparaisse sans aller sur la cellule et
que ça disparaisse quand la cellule est rempli ou que le "X" a été enlevé dans l'autre cellule

Merci d'avance.

Tchimgum