XL 2019 Changer le texte dans une cellule (par formule ou macro)

[netparty]

Bonjour à tous

Je cherche une formule ou macro pour changer le texte qui se trouve dans la colonne F.

Si il y a une valeur dans la cellule O alors le texte de la cellule F devient BONUS,
Si O est vide alors F = OK, mais si il y a déjà stop dans la cellule F on ne change rien.

Merci d'avance

Bonne journée à tous

 

[Bernard_XLD]

Bonjour netparty, le forum

dans ce que vous demandez, la cellule F fait référence à son propre contenu avec stop, en formule, c'est une référence circulaire et ce n'est pas possible, il faut que vous définissiez ce qui fait passer F à stop pour que cette condition soit utilisée à la place.

Bien cordialement, @+

 

[Bernard_XLD]

Re,

Si O est vide alors F = OK, mais si il y a déjà stop dans la cellule F on ne change rien.

pour la partie macro, votre exemple en fichier contredit ce que vous demandez
F1=Ok alors que O1 n'est pas vide

Bien cordialement, @+

 

[netparty]

Bonjour netparty, le forum

dans ce que vous demandez, la cellule F fait référence à son propre contenu avec stop, en formule, c'est une référence circulaire et ce n'est pas possible, il faut que vous définissiez ce qui fait passer F à stop pour que cette condition soit utilisée à la place.

Bien cordialement, @+

Bonjour Yeahou

En fait quand je reçoit le fichier, la colonne F est soit OK ou Stop et ensuite si O n'est pas vide cela devient un bonus sauf si F = Stop.

Ou une macro qui écrit la formule dans toute la colonne sauf les cellule qui contient stop ?
Donc je ne sais pas si cela est possible a part le faire manuellement.

Bonne journée

 

[Bernard_XLD]

En fait quand je reçoit le fichier, la colonne F est soit OK ou Stop et ensuite si O n'est pas vide cela devient un bonus sauf si F = Stop.

donc il vaut mieux le faire par macro, je regarde !

 

[netparty]

donc il vaut mieux le faire par macro, je regarde !

En fait je voudrai inscrire cette formule : =SI(OU(O46="";O46=0);"ok";"bonus") uniquement dans les cellules F ou il y a OK

 

[Bernard_XLD]

re,

voila une macro pour test, à lancer sur la feuille active

Bien cordialement, @+

Sub Modif_Netparty()
Dim Range_Ref As Range, Range_Val, Compteur&
Set Range_Ref = Range("F1:O" & Range("F" & Rows.Count).End(xlUp).Row)
Range_Val = Range_Ref.Value
For Compteur = LBound(Range_Val, 1) To UBound(Range_Val, 1)
    If Not Range_Val(Compteur, 1) = "stop" Then
        If Range_Val(Compteur, 10) = "" Or Range_Val(Compteur, 10) = 0 Then Range_Val(Compteur, 1) = "OK" Else Range_Val(Compteur, 1) = "BONUS"
    End If
Next Compteur
Range_Ref.Value = Range_Val
End Sub

 

[Bernard_XLD]

En fait je voudrai inscrire cette formule : =SI(OU(O46="";O46=0);"ok";"bonus") uniquement dans les cellules F ou il y a OK

re,

le problème en formule est toujours le même avec stop, est ce que c'est vous qui l'inscrivez en écrasant la formule ?

Bien cordialement, @+

 

[netparty]

re,

le problème en formule est toujours le même avec stop, est ce que c'est vous qui l'inscrivez en écrasant la formule ?

Bien cordialement, @+

En fait je voudrai écraser le OK par la formule, ce qui est le plus simple je pense

 

[Bernard_XLD]

re,

je ne sais plus comment vous l'expliquer, en formule dans F, impossible de gérer le stop en F, il faut, soit qu'il soit stocké ailleurs, soit connaitre la condition de stop pour remplacer la valeur par la condition. Les références circulaires sont impossibles, la formule ne peut pas se modifier en fonction de son propre résultat.
J'espère avoir été assez clair pour que vous compreniez que votre demande initiale est impossible à satisfaire par formule en l'état.

Bien cordialement, @+

 

[netparty]

re,

je ne sais plus comment vous l'expliquer, en formule dans F, impossible de gérer le stop en F, il faut, soit qu'il soit stocké ailleurs, soit connaitre la condition de stop pour remplacer la valeur par la condition. Les références circulaires sont impossibles, la formule ne peut pas se modifier en fonction de son propre résultat.
J'espère avoir été assez clair pour que vous compreniez que votre demande initiale est impossible à satisfaire par formule en l'état.

Bien cordialement, @+

Et si on oublie le stop est-il possible d'écrire une valeur pour remplacer le OK ?

 

[Bernard_XLD]

re,

Et si on oublie le stop est-il possible d'écrire une valeur pour remplacer le OK ?

vous l'avez déjà, c'est celle du post 6

=SI(OU(O46="";O46=0);"ok";"bonus")

Bien cordialement, @+

 

[Bernard_XLD]

Re,

vous avez demandé une solution macro, avez vous au moins essayé celle du post 7 ?

re,

voila une macro pour test, à lancer sur la feuille active

Bien cordialement, @+
VB:

Sub Modif_Netparty()
Dim Range_Ref As Range, Range_Val, Compteur&
Set Range_Ref = Range("F1:O" & Range("F" & Rows.Count).End(xlUp).Row)
Range_Val = Range_Ref.Value
For Compteur = LBound(Range_Val, 1) To UBound(Range_Val, 1)
    If Not Range_Val(Compteur, 1) = "stop" Then
        If Range_Val(Compteur, 10) = "" Or Range_Val(Compteur, 10) = 0 Then Range_Val(Compteur, 1) = "OK" Else Range_Val(Compteur, 1) = "BONUS"
    End If
Next Compteur
Range_Ref.Value = Range_Val
End Sub

 

[netparty]

Re,

vous avez demandé une solution macro, avez vous au moins essayé celle du post 7 ?

oui j'ai bien essayé celle du post 7 et fonctionne bien.
et je t'en remercie