Formule mettre texte en fonction du texte precedant

[walker59]

Bonjour j'ai fais un tableau et je voudrais une formule qui me permettrai d'afficher le texte "DN"dans une cellule si la cellule précédente affiche le texte "NUI" sur le tableau .merci.

 

[JCGL]

Re : Formule mettre texte en fonction du texte precedant

Bonjour à tous,

Dans le module de la feuille :

Option Explicit

Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim Cel As Range
For Each Cel In Feuil1.Range("B6:F20")
If Cel.Offset(0, -1) = "NUI" Then Cel = "DN"
Next Cel
End Sub

A+ à tous

 

[walker59]

Re : Formule mettre texte en fonction du texte precedant

Merci JCGL c'est ce que je cherchais mais il n'y aurait t-il pas moyen d'avoir une formule plutôt qu'un code VBA

 

[JCGL]

Re : Formule mettre texte en fonction du texte precedant

Bonjour à tous,

Ta formule sera écrasée par le texte entré... Si tu changes la valeur.
Autrement en B6 et suivantes :

=SI(A6="NUI";"DN";"")

A+ à tous

 

[walker59]

Re : Formule mettre texte en fonction du texte precedant

Excuse moi pour la reponse un peu tardive merci tu as raison je vais rester sur le vba

 

[walker59]

Re : Formule mettre texte en fonction du texte precedant

Excuse moi JCGL j'espere que tu es encore là voila ton code fonctionne mais quant j'efface le texte "NUI" le texte "DN" ne s'efface pas
pourrais tu me dire comment régler le pb merci

 

[JCGL]

Re : Formule mettre texte en fonction du texte precedant

Bonjour à tous,

Avec la formule ou le code ?

A+ à tous

 

[walker59]

Re : Formule mettre texte en fonction du texte precedant

Avec le code vba merci d'avance

 

[JCGL]

Re : Formule mettre texte en fonction du texte precedant

Bonjour à tous,

Chez moi le 'DN' s'efface lors de l'effacement du 'NUI' ...
Peux-tu joindre un fichier succinct et anonymisé ?

A+ à tous

 

[walker59]

Re : Formule mettre texte en fonction du texte precedant

Voila chez moi le "DN" ne s'efface pas

 

[JCGL]

Re : Formule mettre texte en fonction du texte precedant

Bonjour à tous,

Un fichier *.xlsx n'est pas compatible avec un fichier contenant du VBA...

A+ à tous

 

[walker59]

Re : Formule mettre texte en fonction du texte precedant

Voila ce fichier j'espére que ça ira

 

[walker59]

Re : Formule mettre texte en fonction du texte precedant

Bonjour à tous personne pour un petit coup de main

 

[JCGL]

Re : Formule mettre texte en fonction du texte precedant

Bonjour à tous,

Peut-être avec ceci :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range
For Each Cel In Feuil1.Range("B6:AF20")
If Cel.Offset(0, 1) = "DN" Then Cel.Offset(0, 1) = ""
If Cel.Offset(0, -1) = "NUI" Then Cel = "DN"
Next Cel
End Sub

A+ à tous

 

[walker59]

Re : Formule mettre texte en fonction du texte precedant

Merci pour ta patience passe une bonne soirée