If/and en vba

Fermé

niouniou - 9 mars 2023 à 11:54
niouniou - 13 mars 2023 à 16:28

Bonjour,

Je voudrais tester des conditions avec des IF et AND imbriqués. Je l'ai fait directement dans le feuille avec la formule suivante et ça fonctionne très bien.

=SI(ET(O1="FRLHVF";J1="2022");10;SI(ET(O1="FRLHVF";J1="2023");15;SI(ET(O1="FRDKUN";J1="2022");50;SI(ET(O1="FRDKUN";J1="2023");20;0))))

Maintenant je veux la transformer en VBA suivant les cellules de ma feuille puisque le nombre de lignes est variable pour chaque cas mais ça ne fonctionne pas.

Les IF et AND ne sont apparemment pas reconnus.

Voici la formule que j'ai tenté tout est sur une seule ligne:

ActiveCell.FormulaR1C1 = "=if(and(RC[-1]=""FRDKUN"",RC[-6]=""2022""),10,if(and((RC[-1]=""FRDKUN"",RC[-6]=""2023""),15,if(and(RC[-1]=""FRLHVF"",RC[-6]=""2022""),10,if(and((RC[-1]=""FRLHVF"",RC[-6]=""2023""),20,0))))"

et là j'ai besoin d'un peu d'aide svp?

A voir également:

If/and en vba
And i miss you ✓ - Forum Musique / Radio / Clip
Disk boot failure insert system disk and press enter - Guide
Nif pull and bear - Forum Consommation & Internet
Find vba - Astuces et Solutions
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 Ambassadeur 1 579
9 mars 2023 à 17:20

bonjour,

peut-être ainsi:

ActiveCell.FormulaLocal = "=SI(ET(O1=""FRLHVF"";J1=""2022"");10;SI(ET(O1=""FRLHVF"";J1=""2023"");15;SI(ET(O1=""FRDKUN"";J1=""2022"");50;SI(ET(O1=""FRDKUN"";J1=""2023"");20;0))))"

Utilisateur anonyme
10 mars 2023 à 08:13

Bonjour

d'un autre côté, pourquoi ne pas faire le "calcul" en VBA, plutôt que demander à VBA de placer une formule ?

yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 1 579 > Utilisateur anonyme
10 mars 2023 à 08:50

L'avantage éventuel d'une formule, c'est qu'elle sera automatiquement évaluée quand c'est nécessaire.

Utilisateur anonyme > yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025
10 mars 2023 à 08:57

Oui, mais on peux coder une fonction qui fait le job et que l'on utilise en formule dans la feuille.

yg_be Messages postés 23535 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 avril 2025 1 579 > Utilisateur anonyme
10 mars 2023 à 13:28

Dans ce cas-ci, je pense que le but, c'est de faire varier les paramètres d'entrée, je ne vois pas comment réaliser cela via une fonction appelée dans une formule.

Réponse 2 / 2

niouniou
13 mars 2023 à 16:28

Bjr, Si ça peut aider qlq'un, j'ai trouvé le problème, il ne fallait pas mettre de guillemet autour de 2022 et 2023.

Le fait que IF et AND ne se mettent pas en majuscule n'a pas d'importance mais je ne savais pas.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Télécharger fast and furious 1,2,3,4,5

Bonjour,je voudrais bien me re passer les 5 fast and furious mais malheureusement je trouve pas de site pour les télécharger.Donc si quelqu'un aurais un lien merci de me le donner S.V.P .

Concatener un String et un Integer en VBA

Bonjour,

Quand j'écris :
a = "B" & Str(8)
b = "B" + Str(8)

J'obtiens : a -> "B 8" et b -> "B 8"
Or je voudrais obtenir "B8" sans l'espace.

Dans mon code je doit générer des string de la forme "Bi" où est un integer.

Je ne comprend pas d'où vient ce maudit espace.
Vous avez une idée?

Page bleue : your PC ran into a problem and needs to restart

Bonjour à tous,
Actuellement un écran bleu d'erreur systématique m'empêche d'ouvrir Windows.
Il redémarre mais échoue.
Il enchaîne ensuite sur "preparing automatic repair" mais échoue également
Je choisis ensuite "advanced options".
Puis les étapes suivantes :
Troubleshoot puis Advanced options. (Pour ne pas choisir reset this pc et éviter un formatage).
Sur Advanced options plusieurs choix se présentent :
Startup repair
startup settings
Command prompt
Uninstall updates
UEFI firmware
Systèm restiez
J'ai essayé uninstall updates et système restore mais toujours rien !
Quelqu'un peut-il m'a...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...