Formule mettre texte en fonction du texte precedant

JCGL

XLDnaute Barbatruc

• 16 Octobre 2015

• #2

Re : Formule mettre texte en fonction du texte precedant

Bonjour à tous,

Dans le module de la feuille :

VB:

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

 

Vote positif 0 Vote négatif

W

walker59

XLDnaute Junior

• 16 Octobre 2015

• #3

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Octobre 2015

• #4

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";"")

Cliquez pour agrandir...

A+ à tous

 

Dernière édition: 16 Octobre 2015

Vote positif 0 Vote négatif

W

walker59

XLDnaute Junior

• 16 Octobre 2015

• #5

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

 

Vote positif 0 Vote négatif

W

walker59

XLDnaute Junior

• 17 Octobre 2015

• #6

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Octobre 2015

• #7

Re : Formule mettre texte en fonction du texte precedant

Bonjour à tous,

Avec la formule ou le code ?

A+ à tous

 

Vote positif 0 Vote négatif

W

walker59

XLDnaute Junior

• 17 Octobre 2015

• #8

Re : Formule mettre texte en fonction du texte precedant

Avec le code vba merci d'avance

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Octobre 2015

• #9

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

 

Vote positif 0 Vote négatif

W

walker59

XLDnaute Junior

• 17 Octobre 2015

• #10

Re : Formule mettre texte en fonction du texte precedant

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

 

Pièces jointes

• EXEMPLE.xlsx

  10.1 KB · Affichages: 26
• EXEMPLE.xlsx

  10.1 KB · Affichages: 26

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Octobre 2015

• #11

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

 

Vote positif 0 Vote négatif

W

walker59

XLDnaute Junior

• 17 Octobre 2015

• #12

Re : Formule mettre texte en fonction du texte precedant

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

 

Pièces jointes

• EXEMPLE.xls

  25 KB · Affichages: 25
• EXEMPLE.xls

  25 KB · Affichages: 29

Vote positif 0 Vote négatif

W

walker59

XLDnaute Junior

• 18 Octobre 2015

• #13

Re : Formule mettre texte en fonction du texte precedant

Bonjour à tous personne pour un petit coup de main

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Octobre 2015

• #14

Re : Formule mettre texte en fonction du texte precedant

Bonjour à tous,

Peut-être avec ceci :

VB:

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

 

Pièces jointes

• JC Exemple.xls

  68.5 KB · Affichages: 29
• JC Exemple.xls

  68.5 KB · Affichages: 28

Vote positif 0 Vote négatif

W

walker59

XLDnaute Junior

• 18 Octobre 2015

• #15

Re : Formule mettre texte en fonction du texte precedant

Merci pour ta patience passe une bonne soirée

 

Vote positif 0 Vote négatif