Si oui dans une cellule alors oui dans une autre

bonjour

je suis a la recherche d'une formule afin de pouvoir indiqué dans une cellule un "oui" si dans une autre cellule je met un "oui"

le seul hic est que dans les cellules, j'ai un menu déroulant avec l'option oui ou non.

je joins un fichier en pièce jointe.

merci a tous

Salut Eric

Essaie ca :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D3")) Is Nothing Then
 If Range("D3") = "oui" Then
 Range("C3") = "oui"
 Else
 End If
End If
End Sub

Cdt

A

Merci Alex

c'est très bien je joint le fichier avec les emplacements exacte que j'aurais besoin,

est il possible d'avoir la fonction inverse si on met non alors dans l'autre cellule il y aura non.

le tableau est en colone de M18 a M61 voir un peu plus.

merci pour ton aide

Bonjour à tous,

Suivant tes explications, la cellule en colonne L reprend la valeur de la colonne M.

Dans ce cas, la liste de choix dans la colonne L semble inutile. Il suffit de placer la formule =M18 dans L18.

Si tu conserves la liste de choix dans la colonne L, tu admets que les valeurs soient différentes dans les 2 colonnes, ce qui n'est plus conforme à ta demande.

Reste le cas que tu n'as pas évoqué, celui de la cellule vide en M18.

Cordialement.

Bonjour eric, girus, le forum

Je suis d'avis avec Girus, ca sera plus simple en effet, mais si tu tiens a le faire par code essai ca :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
    For i = 18 To Range("M65536").End(xlUp).Row
        If Not Intersect(Range("M" & i), Target) Is Nothing Then
            Range("L" & i).Value = Range("M" & i).Value
            Else
        End If
    Next
End Sub

cdt

A

bonsoir Harry et girus

merci a vous c'est tout a fait ce dont j'ai besoin.

du très bon travail

cordialement

Bonjour

j'ai une petite modif à apporté à mon fichier, j'ai ajouter une colonne supplémentaire avec les mêmes conditions.

j'ai joint le fichier.

merci pour votre aide.

cordialement

Bonjour eric89 et harry226h

Voici un code pour la condition reformulée :

Si les cellules M18 ou N18 changent de valeur alors la cellule L18 prend la valeur de la cellule modifiée.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Range("M18:N61"), Target) Is Nothing Then
        Cells(Target.Row, "L").Value = Target.Value
    End If
    Application.EnableEvents = True
End Sub

Cordialement.

bonjour Gyrus

merci pour ton aide, est il possible d'avoir uniquement l'option de= Si les cellules M18 ou N18 changent de valeur alors la cellule L18 prend la valeur de la cellule modifiée ok mais uniquement le (oui).

si je met oui en M18 alors je retrouve le oui en L18

si je met oui en N18 alors je retrouve le oui en L18

il arrive que je mette oui en M 18 seulement ou en N18 seulement et sa doit reprendre la même valeur en L18, il peut y a voir oui en M18 et N18, ou oui en M18 et non en N18.

avec la macro si je met oui en M18 la valeur en L18 est la même mais si je met non en N18 alors ma valeur change en L18 et ce n'est pas bon, il faut que le oui reste.

le but est que simplement ca puisse changer la valeur uniquement si oui en M18 et ou N18

Cordialement

Bonjour,

Il suffit de modifier cette ligne de code

If Not Intersect(Range("M18:N61"), Target) Is Nothing And Target.Value = "oui" Then

Cordialement.

Bonjour Gyrus

Je viens de remplacer la ligne mais cela ne fonctionne plus.

Cordialement

De mon coté, pas de problème apparent ...

Cordialement.

merci Gyrus

fonctionne sans problème.

merci pour ton aide

bien cordialement