Recherche Script ou Fonction pour une condition

[patriceww]

Bonjour,

Je cherche un moyen d'afficher un texte défini en fonction d'un texte d'une autre cellule.

en gros :

si D3 contient "windows" alors affiché dans E4 "Microsoft"
si D3 contient "java" alors affiché dans E4 "SUN"

...

Le nombre de paramètres sera d'une dizaine d'enregistrements

Merci d'avance

 

[mercant76]

Re : Recherche Script ou Fonction pour une condition

bonjour,

en E4, tu mets :

=SI(D3="Windows";"Microsoft";SI(D3=">Java";"Sun";""))

@+

 

[PMO2]

Re : Recherche Script ou Fonction pour une condition

Bonjour,

Une piste avec un code évènementiel à copier dans la fenêtre de code de la
feuille dans laquelle vous voulez qu'il opère. Cela marche à partir de l'évènement Change.
Il vous faudra adapter la variable var à votre usage.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim var
Dim i&
Dim bool As Boolean
If Target.Address <> "$D$3" Then Exit Sub

'### A adapter selon votre usage (fonctionne par paire) ###
'### Ex : si en A3 on tape papa on a en E4 maman        ###
var = Array("windows", "Microsoft", "java", "SUN", "papa", "maman", "bibi", "lolo")
'##########################################################

Application.EnableEvents = False
For i& = LBound(var) To UBound(var) Step 2
  If [d3] = var(i&) Then
    [e4] = var(i& + 1)
    bool = True
    Exit For
  End If
Next i&
If Not bool Then [e4] = ""
Application.EnableEvents = True
End Sub

Cordialement.

PMO
Patrick Morange

 

[minipuce]

Re : Recherche Script ou Fonction pour une condition

Bonjour,

utilise la recherche verticale, en créant un tableau avec dans une colonne les valeurs, "xindows", "java", ... et dans la colonne d'a coté les valeurs "Microsoft", "SUN", ....

Pour plus d'aide, joints un bout de fichier
Cordialement
Minipuce

 

[patriceww]

Re : Recherche Script ou Fonction pour une condition

Excellent !!! Ça fonctionne !!! merci à vous 🙂