Question avec un SI

Bonjour,

je cherche mais je crois que je tourne en rond.

Est il possible d'écrire le résultat d'un SI dans une autre cellule?

Je m'explique: si en A1 j'ai une je voudrais écrire en G1 et H1 "15:45" et "19:15" respectivement.

Avec le code suivant:

=SI(NB.SI(A1;"*");"15:45";"")

ça fonctionne mais je ne peux pas le mettre dans la cellule G1 ou H1 car si il n'y a pas je dois écrire dans cette cellule et avec la formule c'est pas possible elle s'effacerait.

Je cherche quelque chose dans ce style là

=SI(NB.SI(A1;"*");G1="15:45";"")

et pareil pour l'autre

=SI(NB.SI(A1;"*");H1="19:15";"")

c'est clair????

Merci

Bonjour,

comme tu l'as constaté, une cellule c'est soit une saisie, soit une formule.

Tu pourrais faire ta saisie dans 2 autres colonnes que tu affiches si pas d'*

Sinon c'est en vba

eric

Salut eriiic,

J'ai palier au problème en mettant mes formules dans deux autres cellules (I et J) et en faisant (G1= I1) et (H1=J1)

pas joli mais efficace pour le moment.

Par contre je serais preneur en VBA si tu te sens inspiré

Merci

dépose un fichier avec tous les cas de figure alors.

Parce qu'un nb.si() sur une seule cellule, là je bloque sur la finalité...

Bonjour,

En pièce jointe, un fichier excel avec un exemple.

Comme je le disais précédemment, j'ai fait un report ( F2=L2 par ex.) pour mettre le résultat de la formule ou j'en avais besoin.

Il suffit de cacher les deux colonnes ( L et M) et le tour est joué.

Merci

Bonjour,

Te copie L:M dans F:G sur saisie d'une * en C :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Row > 1 Then
        Application.EnableEvents = False
        If Target = "*" Then [F1:G1].Offset(Target.Row - 1).Value = [L1:M1].Offset(Target.Row - 1).Value
        Application.EnableEvents = True
    End If
End Sub

eric

Salut Eriiic,

Je viens de tester, ça marche pas mal du tout.

Le seul problème, car il en faut un sinon c'est pas marrant , le fait de supprimer les " * " n'efface pas les données et bloque l'appli, obligé de relancer le fichier pour que cela refonctionne.

Sinon c'est du bon boulot comme d'hab

Merci à toi

le fait de supprimer les " * " n'efface pas les données

Pas vu que c'était demandé.

Dans ce cas :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 And Target.Row > 1 Then
        Application.EnableEvents = False
        Select Case Target
        Case "*": [F1:G1].Offset(Target.Row - 1).Value = [L1:M1].Offset(Target.Row - 1).Value
        Case "": [F1:G1].Offset(Target.Row - 1).ClearContents
        End Select
        Application.EnableEvents = True
    End If
End Sub

eric

eriiic a écrit :

le fait de supprimer les " * " n'efface pas les données

Pas vu que c'était demandé.

Il est vrai que ce n'était pas prévu

Cela fonctionne très bien, je te remercie.

Merci