Faire apparaitre texte dans cellule si numéro dans une autre

Bonjour,

je souhaiterais faire apparaitre un message dans une cellule, lorsqu'une autre cellule contient le chiffre 1.

Quelqu'un pourrait-il m'aider?

Merci beaucoup,

JJ

Bonjour,

A première vue lol :

=si(celulle=1;"texte";"")

Mais je suppose que c'est autre chose que tu attends,

Sinon mets un fichier exemple,

Cordialement,

Bonjour Massari,

en fait je ne veux pas faire apparaitre la formule => la "formule si" ne marche pas en fait si, par exemple, je mets la formule en A1, que le chiffre 1 apparait en B1, et que veux faire apparaitre "ok" en C1

merci!

Mets un fichier exemple, c'est pas très clair !!!

fichier en PJ = je ne veux pas que les formules apparaissent dans le colonne E, mais dans la colonne F. Or, la formule Si marche si on la met dans les cellules de la colonne E

Je passe la main car la solution que tu préconise nécessite un traitement VBA ! si j'ai bien comprit lol

Bonjour le forum,

E6 :

[b]=SI(ESTVIDE(D6);"";SI(D6=1;"Ok";"KO"))

[/b]

A tirer vers le bas.

Bonjour mbbp,

D’après ce que je comprends c'est qu'il ne souhaite pas de formule, mais en valeur !

Cordialement,

Bonjour mbbp,

oui en clair je ne veux pas que les formules apparaissent dans les cases : je pensais plus à une marcro if then du coup?

Je ne sais pas si tu as accès aux requêtes mais si oui tu peux te servir du fichier joint,

Cordialement,

Bonjour,

La petite macro à adapter peut être

Sub test()
l = 5 ' ligne de début
    For i = l To 10
        If Cells(i, "D").Value = 1 Then
            Cells(i, "E") = "ok"
        Else: Cells(i, "E") = "nok"
        End If
    Next
End Sub

Bonjour

Vérifie

jj1987

Essaie ceci, je crois que c'est ceux dont tu as besoin

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cancel As Boolean
On Error Resume Next
    If Target.Column = 4 Then
        If Target.Row >= 6 And Target.Row <= 15 Then
          If Target.Value = 1 Then Range("E" & Target.Row).Value = "OK"
          If Target.Value = 0 Then Range("E" & Target.Row).Value = "K_O"
          If IsEmpty(Target) Or Target.Value = vbNullString Or Target.Value = "" Then Exit Sub
          If Target.Value > 1 Then Target.Value = "": Range("E" & Target.Row).Value = "": Exit Sub
    Else
        End If
        Else
        Cancel = True
    End If
On Error GoTo 0
End Sub

J'ai borné les valeurs à mettre en D(x) entre 0 et 1

Bonjour,

merci c'est exactement ça - et marche super!

au top

jj1987 a écrit :

Bonjour,

merci c'est exactement ça - et marche super!

au top