Discussion :

[aalex85]

Bonjour à tous,

Une fois de plus je fais appel à vous car je trouve pas le bon code…

Suivant fichier ci-joint:
Je souhaiterais que la valeur 0 soit retournée dans certaines cellules en fonction de la valeur entrée dans d'autres cellules.
Merci d'avance pour votre aide

Aalex85

[Daniel.C]

Bonjour,

Mets cette macro dans le module de Feuil1 :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B2:B12]) Is Nothing Then Exit Sub
    If Target = "Non-Facturé" Then
        Target.Offset(, 1) = 0
    ElseIf Target = "Non-Facturé" Then
        Target.Offset(, 1) = ""
    End If
 
End Sub

[aalex85]

Merci Daniel pour cette réponse
Le code fonctionne parfaitement

Par contre j'ai oublié de préciser que dans la colonne "C" tant que la valeur dans la cellule est 0 il n'est pas possible d'écrire dans cette cellule

Ci-joint le fichier avec ta macro et exemple du problème sur la cellule C7

Cordialement
Alain

[Daniel.C]

Par contre j'ai oublié de préciser que dans la colonne "C" tant que la valeur dans la cellule est 0 il n'est pas possible d'écrire dans cette cellule

Est-ce que tu peux me donner un exemple ? j'ai du mal à comprendre.

[aalex85]

Sur le fichier ci-joint dans la cellule C12 la valeur devrait être à 0.
En fait je voudrais également que lorsque la valeur retournée est 0 dans une des cellules de la colonne "C", l'utilisateur ne puisse entrer aucune autre valeur que 0 dans cette cellule
(et non pas 12 comme indiqué sur la cellule C7 du fichier joint).

Cordialement
Alain

[Daniel.C]

Mets ces deux macros dans le module de la feuille :

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
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B2:B12]) Is Nothing Then Exit Sub
    If Target = "Non-Facturé" Then
        Target.Offset(, 1) = 0
    ElseIf Target = "Non-Facturé" Then
        Target.Offset(, 1) = ""
    End If
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [C2:C12]) Is Nothing Then Exit Sub
    If Target.Offset(, -1) = "Non-Facturé" Then
        Target.Offset(, -1).Select
    End If
End Sub

[aalex85]

C'est exactement ce que je souhaitais
Merci pour ton aide
Bonne soirée
Alain