A voir également:
- Commant augmenter le nombre d'arguments
- Augmenter vitesse pc windows 10 - Guide
- Augmenter luminosité pc - Guide
- Nombre facile - Télécharger - Outils professionnels
- Vous avez entré un nombre trop important d'arguments pour cette fonction ✓ - Forum Excel
- Comment augmenter le signal wifi dans la maison - Guide
3 réponses
bizu53
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
860
22 janv. 2009 à 19:44
22 janv. 2009 à 19:44
Utilise des "calculs" intermédiaires dans d'autres cases, que tu masques éventuellement
bizu53
Messages postés
1274
Date d'inscription
samedi 30 août 2008
Statut
Membre
Dernière intervention
21 juin 2015
860
22 janv. 2009 à 20:10
22 janv. 2009 à 20:10
Tu peux peut-être te passer de calculs intermédiaire...
Je n'avais pas fait attention que beaucoup de tes conditions donnent le même résultat
par exemple a b c d e f g h i j k et l donne 2
donc utilise un OU()
SI(OU(D7="a";D7="b";D7="c";D7="d";D7="e";D7="f";D7="g";D7="h";D7="i";D7="j");2;SI(...))
Je n'avais pas fait attention que beaucoup de tes conditions donnent le même résultat
par exemple a b c d e f g h i j k et l donne 2
donc utilise un OU()
SI(OU(D7="a";D7="b";D7="c";D7="d";D7="e";D7="f";D7="g";D7="h";D7="i";D7="j");2;SI(...))
Utilisateur anonyme
23 janv. 2009 à 19:53
23 janv. 2009 à 19:53
Bonjour,
Il est aussi possible de fabriquer un fonction personalisé en VBA
qui utlise un [ Select Case (Cible) ]
Exemple :
1.) Installer cette fonction dans un module standard
2.) En A1 faire appel au menu des fonctions, choisir type Personnalisé
3.) Sélectionner ChercheValeur
4.) Pointer la cellule C7
5.) La cellule A1 prendra la valeur en fonction des écrits dans C7 et/ou D7
Lupin
Il est aussi possible de fabriquer un fonction personalisé en VBA
qui utlise un [ Select Case (Cible) ]
Exemple :
1.) Installer cette fonction dans un module standard
Function ChercheValeur(ByVal Cible As Range) As Double Application.Volatile ChercheValeur = 0 Select Case (Cible.Offset(0, 1).Value) Case "g1": ChercheValeur = 0.55 Case "VM": ChercheValeur = 1 Case "g2", "G3", "rél": ChercheValeur = 1.5 Case "a", "b", "c", "d", "e", "f", "g", _ "h", "i", "j", "k", "l", "ré", "GT1", _ "AR2", "G4", "g11": ChercheValeur = 2 Case "for", "G5": ChercheValeur = 2.5 Case "GT5", "G6": ChercheValeur = 3 Case "a1", "a2", "a3", "a4", "b1", "b2", "GT2": ChercheValeur = 3.5 Case "n1", "n2": ChercheValeur = 4 Case "GT3", "AR4", "G7", "g12": ChercheValeur = 4.5 Case "GT6", "AR5", "G8", "g13": ChercheValeur = 5 Case "GT4": ChercheValeur = 5.5 End Select Select Case (Cible.Value) Case "g1": ChercheValeur = 0.55 Case "g2", "G3": ChercheValeur = 1.5 Case "G4", "g9": ChercheValeur = 2 Case "G5": ChercheValeur = 2.5 Case "G6": ChercheValeur = 3 Case "G7", "g10": ChercheValeur = 4.5 Case "AR5", "G8": ChercheValeur = 5 End Select End Function '
2.) En A1 faire appel au menu des fonctions, choisir type Personnalisé
3.) Sélectionner ChercheValeur
4.) Pointer la cellule C7
5.) La cellule A1 prendra la valeur en fonction des écrits dans C7 et/ou D7
Lupin