Discussion :

[debdev]

Bonjour,

Je ne sais pas si ce que je cherche à faire est possible...

J'ai une colonne A qui prend valeur1 ou valeur2 (menu déroulant).
J'ai une colonne B qui est une date à saisir à la main.
J'ai une colonne C qui est une date conditionnelle:
- si dans la colonne A il y a valeur1 alors colonne C prend la meme valeur que colonne B
- si dans la colonne A il y a valeur2 alors colonne C est une date à saisir à la main

Voici ma formule en C2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A2="valeur1";B2;"")

ça marche dans le sens où:
- si dans la colonne A il y a valeur1 alors dans la colonne C il y a la meme valeur que dans la colonne B
- si dans la colonne A il y a autre chose que la valeur1 alors la colonne C est vide et l'utilisateur doit la remplir, d'où mon problème ...

Si l'utilisateur remplit à la main la colonne C, alors il écrase la formule => si finalement, dans la colonne A, on met valeur1, alors dans la colonne C, vu que je n'ai plus ma formule dedans, ça reste vide, ça ne se met pas à jour.

Donc ma question est: comment avoir une formule dans une case qui dit "soit tu prends la valeur d'à coté soit tu prends la valeur saisie dans toi meme" sans supprimer la formule ?

Merci pour votre aide !

[gourmand]

tu peux d'ajouté une colonne ou l'utilisateur pourra rentré la date à saisir

et tu mais dans ta cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(A2="valeur1";B2;SI(ESTVIDE(D2);"entré une date";D2))

[FLB]

Ça doit pouvoir se faire avec une macro mais ce serait très bourrin pour quelque chose qui se résout très bien avec la réponse de Gourmand...

[Triton972]

Bonjour DebDev,

Je te propose de régler on problème avec un petit peu de VBA. En effet, tu ne pourra, à la fois avoir une formule et une donnée en même temps dans une cellule !
Par contre on peut faire réagir spécifiquement Excel en fonction de la valeur d'une cellule en utilisant la gestion des événements (Worksheet_Change(ByVal Target As Range).

Active l'éditeur Visual Basic et recopie le bout de code (que j'ai fait un peu rapidement ...) en l'adaptant à ton application :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
rivate Sub Worksheet_Change(ByVal Target As Range)
Dim inCol1 As Long
Dim inRow1 As Long
Dim inCol2 As Long
Dim inRow2 As Long
Dim inCol3 As Long
Dim inRow3 As Long
 
inCol1 = 1
inRow1 = 3
inCol2 = 2
inRow2 = 3
inCol3 = 3
inRow3 = 3
 
If Target.Row = inRow1 And Target.Column = inCol1 Then
    If Target = "valeur1" Then
        Cells(inRow3, inCol3) = Cells(inRow2, inCol2)
    Else
        Cells(inRow3, inCol3) = ""
        Cells(inRow3, inCol3).Select
    End If
 
End If
End Sub

Target est un objet Range. J'identifie dans le 1° if la cellule qui m'intéresse (inRow1,inCol1) et dans le 1° if je mets la condition que je veux vérifier ...
Si tu as un problème avec dis-le.

[gourmand]

triton972, tu t'y connais bien en vba sur excel ?

[Triton972]

Bonjour Gourmand,

Je n'ai pas la prétention de connaitre aussi bien que toi Vba excel mais en tout cas ma solution fonctionne comme tu as pu le vérifier non ?
Cordialement,

[debdev]

Merci à tous pour votre aide.

@gourmand et FLB: la solution proposée ne correspond pas totalement à ce que je souhaite car d'une part, il faut ajouter une colonne (si j'ai bien compris) et d'autre part, si l'utilisateur modifie la valeur de la 1ère colonne, ça ne se met pas à jour. Peut être que c'est moi qui ai mal fait

@Triton972: ta solution fonctionne parfaitement . mais j'ai encore une demande à te faire car je suis loin de maitriser le vba. le code proposé fait référence à une cellule. comment faire pour appliquer ce code à toutes les cellules ?

Merci.