Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 12 PS5 Orange Livebox ChatGPT Mini PC
Entraide Applications Microsoft Office Excel Exécuter une formule en fonction d'un critère

Exécuter une formule en fonction d'un critère

9 réponses
Avatar
eric
Bonjour,

j'ai une feuille de calcul avec en colonne A des valeurs ( par exemple
"STot" ;"Tot";"sdpx" ...).
Pour une ligne donnée, je veux éxecuter dans la colonne N une formule si
pour cette ligne dans la colonne A la valeur est "STot". Par contre si la
valeur indiquée est autre que "STot", je ne veux pas exécuter de formule dans
cette cellule mais pouvoir saisir manuellement un nombre.

Par exemple si en A5, il y a "STot", je veux que en N5 s'exécute une formule
du type = I5/J5. Par contre si en A5, il n y a pas "STot", je veux que la
cellule N5 soit complètement vierge afin que je puisse y saisir manuellement
une valeur.

Merci d'avance de votre aide!
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonjour.
Si les valeurs de la colonne A son entrées manuellement, mets la macro
suivante dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
If c.Column = 1 Then
If c.Value = "STot" Then
Application.EnableEvents = False
c.Offset(, 13).Formula = "=I5/J5"
Application.EnableEvents = True
End If
End If
Next c
End Sub

Cordialement.
Daniel

Bonjour,

j'ai une feuille de calcul avec en colonne A des valeurs ( par exemple
"STot" ;"Tot";"sdpx" ...).
Pour une ligne donnée, je veux éxecuter dans la colonne N une formule si
pour cette ligne dans la colonne A la valeur est "STot". Par contre si la
valeur indiquée est autre que "STot", je ne veux pas exécuter de formule dans
cette cellule mais pouvoir saisir manuellement un nombre.

Par exemple si en A5, il y a "STot", je veux que en N5 s'exécute une formule
du type = I5/J5. Par contre si en A5, il n y a pas "STot", je veux que la
cellule N5 soit complètement vierge afin que je puisse y saisir manuellement
une valeur.

Merci d'avance de votre aide!


Avatar
eric
Merci,

Par contre le problème, c'est que dans la colonne A, il y a aussi une
formule et non une saisie manuelle


"Daniel.C" a écrit :

Bonjour.
Si les valeurs de la colonne A son entrées manuellement, mets la macro
suivante dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
If c.Column = 1 Then
If c.Value = "STot" Then
Application.EnableEvents = False
c.Offset(, 13).Formula = "=I5/J5"
Application.EnableEvents = True
End If
End If
Next c
End Sub

Cordialement.
Daniel

> Bonjour,
>
> j'ai une feuille de calcul avec en colonne A des valeurs ( par exemple
> "STot" ;"Tot";"sdpx" ...).
> Pour une ligne donnée, je veux éxecuter dans la colonne N une formule si
> pour cette ligne dans la colonne A la valeur est "STot". Par contre si la
> valeur indiquée est autre que "STot", je ne veux pas exécuter de formule dans
> cette cellule mais pouvoir saisir manuellement un nombre.
>
> Par exemple si en A5, il y a "STot", je veux que en N5 s'exécute une formule
> du type = I5/J5. Par contre si en A5, il n y a pas "STot", je veux que la
> cellule N5 soit complètement vierge afin que je puisse y saisir manuellement
> une valeur.
>
> Merci d'avance de votre aide!





Avatar
Daniel.C
Bonjour.
Essaie alors de mettre la macro suivante dans le module feuille, mais
si tu as beaucoup de données en colonne A, ça peut ralentir ton
classeur.
Daniel

Merci,

Par contre le problème, c'est que dans la colonne A, il y a aussi une
formule et non une saisie manuelle


"Daniel.C" a écrit :

Bonjour.
Si les valeurs de la colonne A son entrées manuellement, mets la macro
suivante dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
If c.Column = 1 Then
If c.Value = "STot" Then
Application.EnableEvents = False
c.Offset(, 13).Formula = "=I5/J5"
Application.EnableEvents = True
End If
End If
Next c
End Sub

Cordialement.
Daniel

Bonjour,

j'ai une feuille de calcul avec en colonne A des valeurs ( par exemple
"STot" ;"Tot";"sdpx" ...).
Pour une ligne donnée, je veux éxecuter dans la colonne N une formule si
pour cette ligne dans la colonne A la valeur est "STot". Par contre si la
valeur indiquée est autre que "STot", je ne veux pas exécuter de formule
dans cette cellule mais pouvoir saisir manuellement un nombre.

Par exemple si en A5, il y a "STot", je veux que en N5 s'exécute une
formule du type = I5/J5. Par contre si en A5, il n y a pas "STot", je veux
que la cellule N5 soit complètement vierge afin que je puisse y saisir
manuellement une valeur.

Merci d'avance de votre aide!









Avatar
Daniel.C
Il ppourrait de faire un test sur ce qui, dans la formule détermine la
valeur STot; par exemple :
en A1 : =SI(B1=1;"STot";"")
On peut tester la valeur de B1, si celle-ci est entrée manuellement.
Daniel

Merci,

Par contre le problème, c'est que dans la colonne A, il y a aussi une
formule et non une saisie manuelle


"Daniel.C" a écrit :

Bonjour.
Si les valeurs de la colonne A son entrées manuellement, mets la macro
suivante dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
If c.Column = 1 Then
If c.Value = "STot" Then
Application.EnableEvents = False
c.Offset(, 13).Formula = "=I5/J5"
Application.EnableEvents = True
End If
End If
Next c
End Sub

Cordialement.
Daniel

Bonjour,

j'ai une feuille de calcul avec en colonne A des valeurs ( par exemple
"STot" ;"Tot";"sdpx" ...).
Pour une ligne donnée, je veux éxecuter dans la colonne N une formule si
pour cette ligne dans la colonne A la valeur est "STot". Par contre si la
valeur indiquée est autre que "STot", je ne veux pas exécuter de formule
dans cette cellule mais pouvoir saisir manuellement un nombre.

Par exemple si en A5, il y a "STot", je veux que en N5 s'exécute une
formule du type = I5/J5. Par contre si en A5, il n y a pas "STot", je veux
que la cellule N5 soit complètement vierge afin que je puisse y saisir
manuellement une valeur.

Merci d'avance de votre aide!









Avatar
Daniel.C
Je voulais dire :
Il pourrait être intéressant de faire un test sur ce qui, dans la
formule détermine la valeur STot; par exemple :
en A1 : =SI(B1=1;"STot";"")
On peut tester la valeur de B1, si celle-ci est entrée manuellement.
Daniel


Il ppourrait de faire un test sur ce qui, dans la formule détermine la valeur
STot; par exemple :
en A1 : =SI(B1=1;"STot";"")
On peut tester la valeur de B1, si celle-ci est entrée manuellement.
Daniel

Merci,

Par contre le problème, c'est que dans la colonne A, il y a aussi une
formule et non une saisie manuelle


"Daniel.C" a écrit :

Bonjour.
Si les valeurs de la colonne A son entrées manuellement, mets la macro
suivante dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
If c.Column = 1 Then
If c.Value = "STot" Then
Application.EnableEvents = False
c.Offset(, 13).Formula = "=I5/J5"
Application.EnableEvents = True
End If
End If
Next c
End Sub

Cordialement.
Daniel

Bonjour,

j'ai une feuille de calcul avec en colonne A des valeurs ( par exemple
"STot" ;"Tot";"sdpx" ...). Pour une ligne donnée, je veux éxecuter dans
la colonne N une formule si pour cette ligne dans la colonne A la valeur
est "STot". Par contre si la valeur indiquée est autre que "STot", je ne
veux pas exécuter de formule dans cette cellule mais pouvoir saisir
manuellement un nombre.

Par exemple si en A5, il y a "STot", je veux que en N5 s'exécute une
formule du type = I5/J5. Par contre si en A5, il n y a pas "STot", je
veux que la cellule N5 soit complètement vierge afin que je puisse y
saisir manuellement une valeur.

Merci d'avance de votre aide!










Avatar
eric
En fait pour que la cellule An affiche "STot", il faut que les cellules Bn et
Cn+1 soient entre autres toutes les 2 non vides. Par exemple, si B15 et C16
sont non vides et que la formule ne détécte pas de critères d'erreur, alors
A14 est égal à "STot".

ci-dessous, pour info la formule que j'ai en A14:

=SI(OU(OU(ESTVIDE(J14);ESTVIDE(N14));ET(B14<>0;DECALER(B14;1;1;1;1)<>0;B14<>DECALER(B14;1;1;1;1));ET(B14<>0;NB.SI($B$10:$B$2003;B14)<>1);ET(C14<>0;DECALER(C14;-1;0;1;1)<>0;DECALER(C14;-1;0;1;1)<>C14);ET(I14<>0;ESTVIDE(B14);ESTVIDE(C14));ET(B14<>0;C14<>0);ET(ESTVIDE(C14);ESTVIDE(B14);C15<>0;OU(DECALER(B14;-1;0;1;1)<>0;DECALER(C14;-1;0;1;1)<>0)));"Erreur";SI(C14<>0;"Sdpx";SI(ET(B14<>0;DECALER(C14;1;0;1;1)<>0);"S
Tot";SI(ET(B14<>0;ESTVIDE(DECALER(C14;1;0;1;1)));"Tot";SI(ET(ESTVIDE(B14)*ESTVIDE(C14));"Vide";"Bizarre")))))

Merci beaucoup

"Daniel.C" a écrit :

Je voulais dire :
Il pourrait être intéressant de faire un test sur ce qui, dans la
formule détermine la valeur STot; par exemple :
en A1 : =SI(B1=1;"STot";"")
On peut tester la valeur de B1, si celle-ci est entrée manuellement.
Daniel


> Il ppourrait de faire un test sur ce qui, dans la formule détermine la valeur
> STot; par exemple :
> en A1 : =SI(B1=1;"STot";"")
> On peut tester la valeur de B1, si celle-ci est entrée manuellement.
> Daniel
>
>> Merci,
>>
>> Par contre le problème, c'est que dans la colonne A, il y a aussi une
>> formule et non une saisie manuelle
>>
>>
>> "Daniel.C" a écrit :
>>
>>> Bonjour.
>>> Si les valeurs de la colonne A son entrées manuellement, mets la macro
>>> suivante dans le code de la feuille :
>>>
>>> Private Sub Worksheet_Change(ByVal Target As Range)
>>> Dim c As Range
>>> For Each c In Target
>>> If c.Column = 1 Then
>>> If c.Value = "STot" Then
>>> Application.EnableEvents = False
>>> c.Offset(, 13).Formula = "=I5/J5"
>>> Application.EnableEvents = True
>>> End If
>>> End If
>>> Next c
>>> End Sub
>>>
>>> Cordialement.
>>> Daniel
>>>
>>>> Bonjour,
>>>>
>>>> j'ai une feuille de calcul avec en colonne A des valeurs ( par exemple
>>>> "STot" ;"Tot";"sdpx" ...). Pour une ligne donnée, je veux éxecuter dans
>>>> la colonne N une formule si pour cette ligne dans la colonne A la valeur
>>>> est "STot". Par contre si la valeur indiquée est autre que "STot", je ne
>>>> veux pas exécuter de formule dans cette cellule mais pouvoir saisir
>>>> manuellement un nombre.
>>>>
>>>> Par exemple si en A5, il y a "STot", je veux que en N5 s'exécute une
>>>> formule du type = I5/J5. Par contre si en A5, il n y a pas "STot", je
>>>> veux que la cellule N5 soit complètement vierge afin que je puisse y
>>>> saisir manuellement une valeur.
>>>>
>>>> Merci d'avance de votre aide!
>>>
>>>





Avatar
Daniel.C
Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
If c.Column <> 2 And c.Column <> 3 Then Exit Sub
If c.Column = 2 Then
c.Offset(, 12) = ""
Else
c.Offset(-1, 11) = ""
End If
If (c.Column = 2 And c <> "" And c.Offset(1, 1) <> "") Then
If Not IsError(c.Offset(-1)) Then
Application.EnableEvents = False
c.Offset(, 12).Formula = "=I" & c.Row & "/J" & c.Row
Application.EnableEvents = True
Else
c.Offset(, 12) = ""
End If
ElseIf (c.Column = 3 And c <> "" And c.Offset(-1, -1) <> "") Then
If Not IsError(c.Offset(-1, -2)) Then
Application.EnableEvents = False
c.Offset(-1, 11).Formula = "=I" & c.Row & "/J" & c.Row
Application.EnableEvents = True
Else
c.Offset(-1, 11) = ""
End If
End If
Next c
End Sub

Cordialement.
Daniel

En fait pour que la cellule An affiche "STot", il faut que les cellules Bn et
Cn+1 soient entre autres toutes les 2 non vides. Par exemple, si B15 et C16
sont non vides et que la formule ne détécte pas de critères d'erreur, alors
A14 est égal à "STot".

ci-dessous, pour info la formule que j'ai en A14:

=SI(OU(OU(ESTVIDE(J14);ESTVIDE(N14));ET(B14<>0;DECALER(B14;1;1;1;1)<>0;B14<>DECALER(B14;1;1;1;1));ET(B14<>0;NB.SI($B$10:$B$2003;B14)<>1);ET(C14<>0;DECALER(C14;-1;0;1;1)<>0;DECALER(C14;-1;0;1;1)<>C14);ET(I14<>0;ESTVIDE(B14);ESTVIDE(C14));ET(B14<>0;C14<>0);ET(ESTVIDE(C14);ESTVIDE(B14);C15<>0;OU(DECALER(B14;-1;0;1;1)<>0;DECALER(C14;-1;0;1;1)<>0)));"Erreur";SI(C14<>0;"Sdpx";SI(ET(B14<>0;DECALER(C14;1;0;1;1)<>0);"S
Tot";SI(ET(B14<>0;ESTVIDE(DECALER(C14;1;0;1;1)));"Tot";SI(ET(ESTVIDE(B14)*ESTVIDE(C14));"Vide";"Bizarre")))))

Merci beaucoup

"Daniel.C" a écrit :

Je voulais dire :
Il pourrait être intéressant de faire un test sur ce qui, dans la
formule détermine la valeur STot; par exemple :
en A1 : =SI(B1=1;"STot";"")
On peut tester la valeur de B1, si celle-ci est entrée manuellement.
Daniel


Il ppourrait de faire un test sur ce qui, dans la formule détermine la
valeur STot; par exemple :
en A1 : =SI(B1=1;"STot";"")
On peut tester la valeur de B1, si celle-ci est entrée manuellement.
Daniel

Merci,

Par contre le problème, c'est que dans la colonne A, il y a aussi une
formule et non une saisie manuelle


"Daniel.C" a écrit :

Bonjour.
Si les valeurs de la colonne A son entrées manuellement, mets la macro
suivante dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
If c.Column = 1 Then
If c.Value = "STot" Then
Application.EnableEvents = False
c.Offset(, 13).Formula = "=I5/J5"
Application.EnableEvents = True
End If
End If
Next c
End Sub

Cordialement.
Daniel

Bonjour,

j'ai une feuille de calcul avec en colonne A des valeurs ( par exemple
"STot" ;"Tot";"sdpx" ...). Pour une ligne donnée, je veux éxecuter dans
la colonne N une formule si pour cette ligne dans la colonne A la valeur
est "STot". Par contre si la valeur indiquée est autre que "STot", je ne
veux pas exécuter de formule dans cette cellule mais pouvoir saisir
manuellement un nombre.

Par exemple si en A5, il y a "STot", je veux que en N5 s'exécute une
formule du type = I5/J5. Par contre si en A5, il n y a pas "STot", je
veux que la cellule N5 soit complètement vierge afin que je puisse y
saisir manuellement une valeur.

Merci d'avance de votre aide!

















Avatar
gmlsteph
Bonjour,
je remets car visiblement tu n'as pas vu ou pas c'est moi qui ai pas
compris
Si une cellule contient une formule elle n'est pas vide et une
formule n'execute pas, elle renvoie un résultat c'est tout!

Donc au lieu de saisir en N là ou tu as ta formule tu saisira le cas
échéant en P5 par exemple et cela donne ceci:

=si(A5="sTot";I5/K5 ;P5)

et cela fait amha indirectement ce que tu demandais sans besoin de
code !

Cordialement.

--
lSteph



On 10 juin, 13:35, eric wrote:
En fait pour que la cellule An affiche "STot", il faut que les cellules B n et
Cn+1 soient entre autres toutes les 2 non vides. Par exemple, si B15 et C 16
sont non vides et que la formule ne détécte pas de critères d'erreu r, alors
A14 est égal à "STot".

ci-dessous, pour info la formule que j'ai en A14:

=SI(OU(OU(ESTVIDE(J14);ESTVIDE(N14));ET(B14<>0;DECALER(B14;1;1;1;1)<>0; B14<­>DECALER(B14;1;1;1;1));ET(B14<>0;NB.SI($B$10:$B$2003;B14)<>1);ET(C14 <>0;DEC­ALER(C14;-1;0;1;1)<>0;DECALER(C14;-1;0;1;1)<>C14);ET(I14<>0;ESTVI DE(B14);ES­TVIDE(C14));ET(B14<>0;C14<>0);ET(ESTVIDE(C14);ESTVIDE(B14);C15 <>0;OU(DECALE­R(B14;-1;0;1;1)<>0;DECALER(C14;-1;0;1;1)<>0)));"Erreur";SI( C14<>0;"Sdpx";SI­(ET(B14<>0;DECALER(C14;1;0;1;1)<>0);"S
Tot";SI(ET(B14<>0;ESTVIDE(DECALER(C14;1;0;1;1)));"Tot";SI(ET(ESTVIDE(B14) *E­STVIDE(C14));"Vide";"Bizarre")))))

Merci beaucoup

"Daniel.C" a écrit :



> Je voulais dire :
> Il pourrait être intéressant de faire un test sur ce qui, dans la
> formule détermine la valeur STot; par exemple :
> en A1 : =SI(B1=1;"STot";"")
> On peut tester la valeur de B1, si celle-ci est entrée manuellement.
> Daniel

> > Il ppourrait de faire un test sur ce qui, dans la formule détermine la valeur
> > STot; par exemple :
> > en A1 : =SI(B1=1;"STot";"")
> > On peut tester la valeur de B1, si celle-ci est entrée manuellement .
> > Daniel

> >> Merci,

> >> Par contre le problème, c'est que dans la colonne A, il y a aussi une
> >> formule et non une saisie manuelle

> >> "Daniel.C" a écrit :

> >>> Bonjour.
> >>> Si les valeurs de la colonne A son entrées manuellement, mets la macro
> >>> suivante dans le code de la feuille :

> >>> Private Sub Worksheet_Change(ByVal Target As Range)
> >>> Dim c As Range
> >>> For Each c In Target
> >>>     If c.Column = 1 Then
> >>>         If c.Value = "STot" Then
> >>>             Application.EnableEvents = False
> >>>             c.Offset(, 13).Formula = "=I5/J5"
> >>>             Application.EnableEvents = True
> >>>         End If
> >>>     End If
> >>> Next c
> >>> End Sub

> >>> Cordialement.
> >>> Daniel

> >>>> Bonjour,

> >>>> j'ai une feuille de calcul avec en colonne A des valeurs ( par exe mple
> >>>> "STot" ;"Tot";"sdpx" ...). Pour une ligne donnée, je veux éxec uter dans
> >>>> la colonne N une formule si pour cette ligne dans la colonne A la valeur
> >>>> est "STot". Par contre si la valeur indiquée est autre que "STot ", je ne
> >>>> veux pas exécuter de formule dans  cette cellule mais pouvoir saisir
> >>>> manuellement un nombre.

> >>>> Par exemple si en A5, il y a "STot", je veux que en N5 s'exécute une
> >>>> formule  du type = I5/J5. Par contre si en A5, il n y a pas "S Tot", je
> >>>> veux que la  cellule N5 soit complètement vierge afin que je p uisse y
> >>>> saisir manuellement  une valeur.

> >>>> Merci d'avance de votre aide!- Masquer le texte des messages pré cédents -

- Afficher le texte des messages précédents -


Avatar
eric
merci bcp ça marche en faisant un mix entre la première et la deuxième macro
Merci beaucoup

"Daniel.C" a écrit :

Essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
If c.Column <> 2 And c.Column <> 3 Then Exit Sub
If c.Column = 2 Then
c.Offset(, 12) = ""
Else
c.Offset(-1, 11) = ""
End If
If (c.Column = 2 And c <> "" And c.Offset(1, 1) <> "") Then
If Not IsError(c.Offset(-1)) Then
Application.EnableEvents = False
c.Offset(, 12).Formula = "=I" & c.Row & "/J" & c.Row
Application.EnableEvents = True
Else
c.Offset(, 12) = ""
End If
ElseIf (c.Column = 3 And c <> "" And c.Offset(-1, -1) <> "") Then
If Not IsError(c.Offset(-1, -2)) Then
Application.EnableEvents = False
c.Offset(-1, 11).Formula = "=I" & c.Row & "/J" & c.Row
Application.EnableEvents = True
Else
c.Offset(-1, 11) = ""
End If
End If
Next c
End Sub

Cordialement.
Daniel

> En fait pour que la cellule An affiche "STot", il faut que les cellules Bn et
> Cn+1 soient entre autres toutes les 2 non vides. Par exemple, si B15 et C16
> sont non vides et que la formule ne détécte pas de critères d'erreur, alors
> A14 est égal à "STot".
>
> ci-dessous, pour info la formule que j'ai en A14:
>
> =SI(OU(OU(ESTVIDE(J14);ESTVIDE(N14));ET(B14<>0;DECALER(B14;1;1;1;1)<>0;B14<>DECALER(B14;1;1;1;1));ET(B14<>0;NB.SI($B$10:$B$2003;B14)<>1);ET(C14<>0;DECALER(C14;-1;0;1;1)<>0;DECALER(C14;-1;0;1;1)<>C14);ET(I14<>0;ESTVIDE(B14);ESTVIDE(C14));ET(B14<>0;C14<>0);ET(ESTVIDE(C14);ESTVIDE(B14);C15<>0;OU(DECALER(B14;-1;0;1;1)<>0;DECALER(C14;-1;0;1;1)<>0)));"Erreur";SI(C14<>0;"Sdpx";SI(ET(B14<>0;DECALER(C14;1;0;1;1)<>0);"S
> Tot";SI(ET(B14<>0;ESTVIDE(DECALER(C14;1;0;1;1)));"Tot";SI(ET(ESTVIDE(B14)*ESTVIDE(C14));"Vide";"Bizarre")))))
>
> Merci beaucoup
>
> "Daniel.C" a écrit :
>
>> Je voulais dire :
>> Il pourrait être intéressant de faire un test sur ce qui, dans la
>> formule détermine la valeur STot; par exemple :
>> en A1 : =SI(B1=1;"STot";"")
>> On peut tester la valeur de B1, si celle-ci est entrée manuellement.
>> Daniel
>>
>>
>>> Il ppourrait de faire un test sur ce qui, dans la formule détermine la
>>> valeur STot; par exemple :
>>> en A1 : =SI(B1=1;"STot";"")
>>> On peut tester la valeur de B1, si celle-ci est entrée manuellement.
>>> Daniel
>>>
>>>> Merci,
>>>>
>>>> Par contre le problème, c'est que dans la colonne A, il y a aussi une
>>>> formule et non une saisie manuelle
>>>>
>>>>
>>>> "Daniel.C" a écrit :
>>>>
>>>>> Bonjour.
>>>>> Si les valeurs de la colonne A son entrées manuellement, mets la macro
>>>>> suivante dans le code de la feuille :
>>>>>
>>>>> Private Sub Worksheet_Change(ByVal Target As Range)
>>>>> Dim c As Range
>>>>> For Each c In Target
>>>>> If c.Column = 1 Then
>>>>> If c.Value = "STot" Then
>>>>> Application.EnableEvents = False
>>>>> c.Offset(, 13).Formula = "=I5/J5"
>>>>> Application.EnableEvents = True
>>>>> End If
>>>>> End If
>>>>> Next c
>>>>> End Sub
>>>>>
>>>>> Cordialement.
>>>>> Daniel
>>>>>
>>>>>> Bonjour,
>>>>>>
>>>>>> j'ai une feuille de calcul avec en colonne A des valeurs ( par exemple
>>>>>> "STot" ;"Tot";"sdpx" ...). Pour une ligne donnée, je veux éxecuter dans
>>>>>> la colonne N une formule si pour cette ligne dans la colonne A la valeur
>>>>>> est "STot". Par contre si la valeur indiquée est autre que "STot", je ne
>>>>>> veux pas exécuter de formule dans cette cellule mais pouvoir saisir
>>>>>> manuellement un nombre.
>>>>>>
>>>>>> Par exemple si en A5, il y a "STot", je veux que en N5 s'exécute une
>>>>>> formule du type = I5/J5. Par contre si en A5, il n y a pas "STot", je
>>>>>> veux que la cellule N5 soit complètement vierge afin que je puisse y
>>>>>> saisir manuellement une valeur.
>>>>>>
>>>>>> Merci d'avance de votre aide!
>>>>>
>>>>>
>>
>>
>>