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

netparty · 4 Juillet 2021

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 · 4 Juillet 2021

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

Bernard_XLD · 4 Juillet 2021

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 · 4 Juillet 2021

Re,

netparty à dit:
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 · 4 Juillet 2021

Yeahou à dit:
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 · 4 Juillet 2021

netparty à dit:
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 · 4 Juillet 2021

Yeahou à dit:
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 · 4 Juillet 2021

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

Bernard_XLD · 4 Juillet 2021

netparty à dit:
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 · 4 Juillet 2021

Yeahou à dit:
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 · 4 Juillet 2021

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 · 4 Juillet 2021

Yeahou à dit:
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 · 4 Juillet 2021

re,

netparty à dit:
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

netparty à dit:
=SI(OU(O46="";O46=0);"ok";"bonus")

Bien cordialement, @+

Bernard_XLD · 4 Juillet 2021

Re,

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

Yeahou à dit:

re,

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

Bien cordialement, @+
VB:

Code:

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 · 4 Juillet 2021

Yeahou à dit:
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

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

netparty

XLDnaute Occasionnel

Pièces jointes

Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Bernard_XLD

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Bernard_XLD

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Bernard_XLD

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Discussions similaires