VBA en remplacement de fonctions si, et, gauche

Version imprimable

24/01/2018, 10h17
flofloflo76

1 pièce(s) jointe(s)

VBA en remplacement de fonctions si, et, gauche

Bonjour,

Je remercie d'avance les personnes qui prendront connaissance de mon message et qui pourront m'apporter leur aide sur mon sujet.

Je ne suis pas du tout initié à VBA et j'aurai besoin de l'aide d'initiés pour résoudre mon problème.

En effet, la solution que j'utilise habituellement (fonctions si imbriquées, combinées à des fonctions et et gauche) est limitée dans mon cas présent car je dépasse les 7 fonctions si imbriquées.

Voici ce que je souhaite faire :

- j'ai un tableau à 4 colonnes et n lignes

- sur la base de la combinaison de 3 des 4 critères (aléatoire en fonction des règles), je cherche à produire une valeur spécifique dans la colonne E.

Je vous joins le fichier excel avec des explications ce qui sera peut-être plus clair.

Je ne sais pas du tout comment mettre en musique cela via VBA. Vos explications et votre aide m'aideraient beaucoup.

Je vous en remercie d'avance.

Très bonne journée.
24/01/2018, 10h40
Menhir

Citation:

Envoyé par flofloflo76

Je vous joins le fichier excel

https://www.developpez.net/forums/d8...s-discussions/

Citation:

Je ne sais pas du tout comment mettre en musique cela via VBA. Vos explications et votre aide m'aideraient beaucoup.

Pour avoir les bases en VBA : http://bidou.developpez.com/article/VBA/

Citation:

En effet, la solution que j'utilise habituellement (fonctions si imbriquées, combinées à des fonctions et et gauche) est limitée dans mon cas présent car je dépasse les 7 fonctions si imbriquées.

Il existe en VBA l'équivalent du SI() de Excel. C'est le fonction IIf() qui fonctionne quasiment de la même façon.
https://msdn.microsoft.com/fr-fr/VBA...s/iif-function

Cependant, si tu veux faire quelque chose d'un peu compliqué, il vaudrait mieux passer par des structure If Then ou Select Case.
https://msdn.microsoft.com/fr-fr/VBA...else-statement
https://msdn.microsoft.com/fr-fr/VBA...case-statement

Pour répondre aussi aux questions de ton titre :

La fonction ET() d'Excel est géré en VBA comme un opérateur (ce qui est plus logique) And :
https://msdn.microsoft.com/fr-fr/VBA...s/and-operator

La fonction GAUCHE() d'Excel a pour équivalent en VBA Left() qui fonctionne exactement pareil :
https://msdn.microsoft.com/fr-fr/VBA.../left-function

Bonjour,

Merci beaucoup pour ta réponse Menhir.

Après plusieurs tests et la lecture des sites, le résultat n'est pas au rendez-vous.

Comme je galérais à faire quelques lignes de bases pour le VBA, j'ai essayé de passer par l'enregistrement d'une macro en jouant les fonctions si et et mais le résultat ne me convient pas.

Voici le code que cela me donne :
Code:

1 2 3 4 5 6 7 Sub Macro2() ActiveCell.FormulaR1C1 = _ "=IF(AND(RC[-4]=""ABC"",RC[-3]<0,RC[-2]=""Ventes""),""TOTO"",IF(AND(RC[-4]=""DEF"",RC[-3]>0)""TITI"",""" Range("E2").Select Selection.AutoFill Destination:=Range("E2:E9999") Range("E2:E11").Select End Sub
Cela ne me convient pas car j'ai l'impression que le code créé est un code "dynamique". Or, je souhaite qu'il ne s'applique qu'à ma colonne E.

Est-ce que quelqu'un pourrait me mettre sur la voie sur le première règle afin que je puisse mieux comprendre et pouvoir le mettre en oeuvre ensuite sur mes autres règles ?

Merci d'avance de votre aide.

25/01/2018, 12h51
Menhir

Citation:

Envoyé par flofloflo76

Comme je galérais à faire quelques lignes de bases pour le VBA

C'est la raison pour laquelle je t'ai conseillé de commencer par te former aux principes de base.
http://bidou.developpez.com/article/VBA/

Citation:

j'ai essayé de passer par l'enregistrement d'une macro

L'enregistreur automatique de macro est un outil formidable.
Mais le résultat qu'il donne ne doit pas être utilisé tel quel (sauf dans quelques rares cas très particuliers).
Il ne sert qu'à mettre sur la voie d'une solution.
Il faut essayer de comprendre le code obtenu pour créer son propre code. Pour t'aider à comprendre, tu peux utiliser l'aide VBA Excel intégrée qui est très bien faite et à laquelle tu peux accéder par la touche F1 (perso, j'ai mis en raccourci dans mon navigateur l'accès direct aux objets les plus courants).

Citation:

en jouant les fonctions si et et mais le résultat ne me convient pas.

Ce que fait ton code n'est ni plus ni moins que de mettre des fonction Excel dans des cellules, ce qui est exactement ce que tu veux éviter si j'en crois ton premier message.
Ca n'est donc certainement pas la bonne voie pour essayer de résoudre ton problème.