Problème de base en VBA

Bonjour à tous,

Je suis vraiment bloqué. Je dois écrire dans une cellule des multi-conditions. Je viens de démarrer en VBA et je ne comprends pas tout. J'arrive a Faire A1+A2 mais pas plus ;)

Pour info j'ai une feuille qui contient des colonnes et des lignes, pour le moment tout va bien. En colonne L j'aimerai de L2 à L71630 mettre une formule plutôt complexe :

Mettre dans la cellule 0,00 si la Date (données d'une colonne ) et le numéro des ventes (données d'une colonne ) sont les mêmes que ceux de l'enregistrement précédent et que Mode de Règlement (données d'une colonne ) commence par "COMPOSE";
A défaut
Mettre dans la cellule les données de la cellule Prix de Vente (données d'une colonne ) si Mode de Reglement (données d'une colonne )="AVOIR";
A défaut
Mettre dans la cellule le montant mit après "AVOIR" du champ Mode de Reglement si Mode de Reglement commence par "COMPOSE" et contient "AVOIR";
A défaut
Mettre dans la cellule 0,00

Vous trouverez un extrait en PJ. Si vous aviez une solution type VBA ça me sauverai la vie je dois le rendre assez rapidement.
Pièce jointe 287588

Merci

Bonjour,

Es-tu vraiment obliger de passer par VBA ? Je pense que des formules Excel seraient largement suffisantes (et plus efficace).

Citation:

---

Envoyé par Oudouner

Bonjour,

Es-tu vraiment obliger de passer par VBA ? Je pense que des formules Excel seraient largement suffisantes (et plus efficace).

---

Merci pour ton retour rapide. Le souci c'est qu'en formule je m'embrouille facilement avec les SI imbriqués, tu penses que c'est vraiment plus simple ?

Citation:

---

Envoyé par nexbw

Merci pour ton retour rapide. Le souci c'est qu'en formule je m'embrouille facilement avec les SI imbriqués, tu penses que c'est vraiment plus simple ?

---

Il est vrai que l'écriture de SI imbriqués est pas simple car on s'y perd vite. Cependant, vu le nombre de ligne que tu veux traiter, le code VBA qui me vient à l'esprit mettrait plusieurs minutes à s'exécuter, après je ne suis pas un pro donc il n'est pas impossible qu'il existe une solution rapide en VBA.

Que veux-tu dire aussi par enregistrement précédent ?

Citation:

---

Envoyé par Oudouner

Il est vrai que l'écriture de SI imbriqués est pas simple car on s'y perd vite. Cependant, vu le nombre de ligne que tu veux traiter, le code VBA qui me vient à l'esprit mettrait plusieurs minutes à s'exécuter, après je ne suis pas un pro donc il n'est pas impossible qu'il existe une solution rapide en VBA.

Que veux-tu dire aussi par enregistrement précédent ?

---

Je vais voir en Si imbriqués alors.
L'enregistrement précédant signifie la cellule du dessus.

Citation:

---

Envoyé par nexbw

Bonjour à tous,
Mettre dans la cellule le montant mit après "AVOIR" du champ Mode de Reglement si Mode de Reglement commence par "COMPOSE" et contient "AVOIR";
Merci

---

Je ne comprend pas aussi ce que tu veux dire par "le montant mit après"

Je vais essayer en VBA et en SI imbriqué de mon côté.

Bonjour,
Je ne sais pas trop ce qui est plus rapide, mais si tu préfères passer par VBA parce que c'est un peu plus clair que des SI imbriqué, tu peux créer une fonction personnalisée.

Code:

---

1 2 3 4 5 6 7 8 9

Function conditions()As Double If ... And ...And ... Then conditions = 0 ElseIf ... conditions = ... ElseIf .... conditions = ... End If End Function

---

Tu peux travailler avec ActiveCell et Offset pour passer de la cellule active vers les autres cellules qu'il faut comparer.

Citation:

---

Envoyé par Oudouner

Je ne comprend pas aussi ce que tu veux dire par "le montant mit après"

Je vais essayer en VBA et en SI imbriqué de mon côté.

---

Pour le moment j'ai réussi à faire ça. Mais ca me met Faux... et pour certaines ca fonctionne.

SI(ET(B2=B1;C2=C1);SI(STXT(K2;1;7)="COMPOSE";"0,00";SI(K2="AVOIR";J2;SI(STXT(K2;1;7)="COMPOSE";SI(K2="*AVOIR*";=STXT(K1;14;7));"0,00"))))

Citation:

---

Envoyé par riaolle

Bonjour,
Je ne sais pas trop ce qui est plus rapide, mais si tu préfères passer par VBA parce que c'est un peu plus clair que des SI imbriqué, tu peux créer une fonction personnalisée.

Code:

---

1 2 3 4 5 6 7 8 9

Function conditions()As Double If ... And ...And ... Then conditions = 0 ElseIf ... conditions = ... ElseIf .... conditions = ... End If End Function

---

Tu peux travailler avec ActiveCell et Offset pour passer de la cellule active vers les autres cellules qu'il faut comparer.

---

Merci pour ta réponse mais justement je n'ai pas tout compris. Quand je fais mon calcul en VBA il ne s'applique qu'a la case sélectionnée et je n'arrive pas a faire toutes les conditions.

Je pense avoir trouvé au final. Si vous voulez bien regarder.

Merci en tout cas

=SI(ET(B2=B1;C2=C1);SI(STXT(K2;1;7)="COMPOSE";"0,00");SI(K2="AVOIR";J2;SI(STXT(K2;1;7)="COMPOSE";SI(K2="*AVOIR*";STXT(K1;14;7));"0,00")))

Citation:

---

Envoyé par nexbw

Pour le moment j'ai réussi à faire ça. Mais ca me met Faux... et pour certaines ca fonctionne.

SI(ET(B2=B1;C2=C1);SI(STXT(K2;1;7)="COMPOSE";"0,00";SI(K2="AVOIR";J2;SI(STXT(K2;1;7)="COMPOSE";SI(K2="*AVOIR*";=STXT(K1;14;7));"0,00"))))

---

Essaye ceci :

SI(ET(B2=B1;C2=C1;STXT(K2;1;7)="COMPOSE");"0,00";SI(K2="AVOIR";J2;SI(ET(STXT(K2;1;7)="COMPOSE";K2="*AVOIR*");STXT(K1;14;7);"0,00")))

Citation:

---

Envoyé par Oudouner

Essaye ceci :

SI(ET(B2=B1;C2=C1;STXT(K2;1;7)="COMPOSE");"0,00";SI(K2="AVOIR";J2;SI(ET(STXT(K2;1;7)="COMPOSE";K2="*AVOIR*");STXT(K1;14;7);"0,00")))

---

Merci Beaucoup !! Ca fonctionne

Citation:

---

Envoyé par nexbw

Merci Beaucoup !! Ca fonctionne

---

J'ai essayé un code VBA, au final il s'exécute en 4-5s mais je pense qu'il faut mieux rester sur une solution purement Excel.