Recupération de code VBA depuis une cellule Excel

Bonsoir,

Voici mon problème :
Je dois exploiter des fichiers XML régulièrement extraits de SAP (Variant Configurator) puis remis en forme (70000 lignes deviennent 10000 lignes).

Ainsi, dans des cellules Excel je me retrouve avec du code VBA en dur du type « range("Lubunit").value = 1 » ou « range("Coolty_LU").value = 10 and range("Cooler_LU").value = 10 ».

Sous VBA, je voudrais par exemple tester si « range("Lubunit").value = 1 » retourne VRAI mais impossible de part mes connaissances VBA.

La solution serait de copier les 10000 lignes depuis excel vers VBA et de rajouter l’instruction « If … then » sauf que ces 10000 lignes vont régulièrement avoir des modifications alors qu'une quinzaine de lignes de code VBA suffiraient ?

Dans la fenêtre « Exécution », si j’interroge la cellule Excel (« ? range(cellule_Excel »).value ») cela me retourne « range("Lubunit").value = 1 ».
Si je tape « ?range("Lubunit").value = 1 » cela me retourne VRAI.

Manuellement cela fonctionne mais comment puis-je le transformer le code retour VRAI ou FAUX en VBA à partir du contenu de la cellule Excel ?

Merci d’avance.

Dans une colonne x de ton choix, tu peux laisser le code VBA lire le contenu de tes cellules "cellule_Excel" et "Lubunit", et mettre dans la colonne x la valeur que tu veux (1 ou vrai).

Bonsoir,

Il s'agit de code vba en dur dans les cellules Excel.

Les fichiers Excel m'arrivent avec les conditions à tester mais sans IF ou SI et changent régulièrement voir quotidiennement.

Si j'arrive directement sous VBA à avoir ce code retour VRAI ou FAUx par du code, cela me sauve côté professionnel.

Merci pour les retour.

De plus, cela suppose de lire du code VBA directement dans Excel et à remettre 10000 lignes en forme.

Cela inverse mon problème à savoir traiter du code VBA avec de la formule Excel.

Sous VBA, normalement, il faudrait taper :

Code:

---

1 2 3 4 5

If range("Lubunit").value = 1 = true then Condition_Verifiee = "oui" Else Condition_verifiee = "non" end if

---

Sauf que les fichiers excel m'arrivent avec le contenu VBA (10000 lignes).

La cellule "Range("LUB_HP100").Cells(i, 5).Value" contient la valeur "range("Lubunit").value = 1"

Mon code VBA devient :

Code:

---

1 2 3 4 5

If Range("LUB_HP100").Cells(i, 5).Value = true then Condition_Verifiee = "oui" Else Condition_verifiee = "non" end if

---

En effet, c'est un cas pour le moins bizarre! est-il possible de poster un extrait de ton fichier XL (avec données fictives; une 20aine de lignes suffiraient), et surtout avec le résultat attendu comme échantillon, dans une feuille séparée (ou une colonne séparée).

Bonjour,

Ci-joint le fichier demandé (très allégé)

Pièce jointe 212992

Le résultat attendu est dans la macro rattachée au bouton en commentaire.

La cellule Range("LUB_HP100").Cells(i, 5).Value (------> cellule E2 dans le test) contient le texte Range("Lubunit").value = 1.

C'est ce texte que je devrais normalement taper directement dans VBA ( if range("Lubunit").value = 1 then) .

Comment faire pour tester ce texte et savoir si Range("Lubunit").value = 1 ?

Pas évident à expliquer.

Merci

Voici ma proposition:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Sub Test()   ' Boucle sur toutes les lignes de l'onglet "Nomenclatures"   'Création d'un vecteur (matrice 1x1) pour stocker le contenu des cellules XL Dim Vecteur(10000) As Variant Dim i As Long Dim j As Long   'Initialisation du vecteur For j = 0 To 9999 Vecteur(j) = "" Next j   'Au lieu d'extraire le contenu de la cellule pour rajouter le préfixe "if" et le suffixe "then", 'j'exploite plutôt le contenu de la cellule, en extraire l'info qui m'intéresse, 'puis continuer mes actions en fonction du résultat extrait.   For i = 1 To Range("LUB_HP100").Rows.Count   Vecteur(i - 1) = Range("LUB_HP100").Cells(i, 5).Value If Right(Vecteur(i - 1), 1) = 1 Then MyMsg = "à traiter" Debug.Print , "Ligne " & i, MyMsg, Vecteur(i - 1) Else MyMsg = "passer au suivant" Debug.Print , "Ligne " & i, MyMsg End If 'Voir le résultat dans la fenêtre d'exécution via "Ctrl G" Next i   End Sub

---

Merci pour ta réponse.

Ton test porte sur un champ qui se termine par "=1".

Désolé de ne pas avoir été plus clair mais je vais être confronté au type de champ ci-dessous :

Code:

---

(range("LINETAB_T_Voltage_LU").value = 110 or range("LINETAB_T_Voltage_LU").value = 120 or range("LINETAB_T_Voltage_LU").value = 170) and range("Conprod").value = "HP4" and (range("Cooling_LU").value = 20 or range("Cooling_LU").value = 30) and range("Yearmodl").value = 2014

---

OU

Code:

---

range("Chargkit").value = 1 and (range("Cuscntry").value = "BO" or range("Cuscntry").value = "CL" or range("Cuscntry").value = "CO" or range("Cuscntry").value = "EC" or range("Cuscntry").value = "GT" or range("Cuscntry").value = "GY" or range("Cuscntry").value = "GF" or range("Cuscntry").value = "HN" or range("Cuscntry").value = "PA" or range("Cuscntry").value = "PY" or range("Cuscntry").value = "PE" or range("Cuscntry").value = "DO" or range("Cuscntry").value = "UY")

---

D'une manière générale, il s'agit de récupérer le contenu d'un cellule Excel pour savoir si elle est Vraie ou Fausse.

Toutes ne se terminent par "=1" ou ne comprennent pas "=1".

(je suis impressionné par ton code et vais l'éplucher dans la foulée car je débute sous VBA Excel).

Qu'est-ce qui fait qu'une cellule donne vrai ou faux ? ou bien quels sont les éléments qui font qu'une cellule donne "vrai" ou "faux" ? si tu as la réponse exhaustive, alors le problème est résolu. Exemple: que doit générer la cellule contenant "range("Coolty_LU").value = 20 and range("Cooler_LU").value = 20" ?

Bonsoir,

L'utilisateur effectue sa saisie (10 onglets à saisir).

Une fois cette saisie terminée, le prix de revient est calculable (on peut alors parcourir les 10000 lignes multiplié par X colonnes).

Par exemple, si "range("Coolty_LU").value = 20 and range("Cooler_LU").value = 20" est TRUE cela signifie que l'utilisateur a sélectionné ces deux valeurs dans les combobox concernées.
Pour être traîté, l'article doit remplir ces 2 conditions.

Dans la fenêtre Exécution, j'arrive à retourner VRAI ou FAUX en 2 étapes :
- La première consiste à tester le contenu de la cellule Excel ----> ?Range("LUB_HP100").Cells(i, 5).Value retourne range("Lubunit").value = 1- La seconde consiste à tester l'info retournée ----> ?range("Lubunit").value = 1 retourne VRAI
Comment reproduire par code ce que je peux faire manuellement ?

J'ai l'impression que ma commande Range("LUB_HP100").Cells(i, 5).Value doit être incluse dans une autre commande afin de reproduire automatiquement mes 2 étapes manuelles.

Ce que je n'ai pas encore compris, c'est la règle empirique (générale) à appliquer à chaque instance.
Dans l'exemple :
"si "range("Coolty_LU").value = 20 and range("Cooler_LU").value = 20" est TRUE"

Que doit-on tester ?, et que doit-on faire exactement sachant que le contenu de "Coolty_LU" est 20, et que le contenu de "Cooler_LU" est 20 aussi; que fait-on si le contenu est "AA" ou "259" ? on manque de spécifications précisant tous les cas de figure !

En gros, quel est le critère qui permet de dire que le contenu d'une cellule donnée est vrai ou faux ?

Bonjour,

Le principe general est d'effectuer un Chiffrage.

L'utilisateur va saisir entre autres les champs COOLTY_LU (3 possibilities dans la liste propose à l'utilisateur : "Température 40°" correspond au code 10, "Température 45°" correspond au code 20 ...) et COOLER_LU ("Fixation au dessus" correspond au code 10 et "Fixation sur le côté" correspond au code 20).

Si l'utilisateur selectionne "Température 40°" alors COOLTY_LU prendra la valeur 10.
Si l'utilisateur sélectionne "Fixation au dessus" alors COOLER_LU prendra la valeur 10.

Dans Variant Configurator (SAP), on a un prix de vente par option c'est à dire que COOLTY_LU et COOLER_LU auront un prix de vente pour le client.

Par SAP établit un prix de revient global en function des choix de l'utilisateur.
Si tu prends la cellule J2 demande si COOLTY_LU = 10 et COOLER_LU=10.

Si les 2 conditions ne sont pas reunites (False), alors on ne traite pas l'article contenu dans la cellule I2 (N90508132).

Dans le cas contraire, on traite l'article N90508132 de la cellule I2.
(Si on traite alors la colonne M qui sera elle-même conditionnée par la colonne N)

En somme, la prise en compte de l'article de la colonne I2 dépend de la réunion des conditions de la cellule J2.
Cet article contient un prix de revient ou est lui-même père d'une nomenclature (ce qui est le cas dans l'exemple ---> l'aricle de la colonne M comprend les articles de la colonne N)

On approche petit à petit; bon, maintenant que je sais que la cellule j2 contient la formule "range("Coolty_LU").value = 10 and range("Cooler_LU").value = 10", c'est à dire 40° avec fixation au dessus. comment puis-je dire que les 2 conditions sont remplies ou pas ? c'est ça ma question depuis le début !

Dans l'exemple ci-dessus ( cellule J2), j'ai 4 combinaisons possibles pour les codes:
10 & 10 : que faire dans ce cas, vrai ou faux ?, les 2 conditions sont-elles remplies ?
10 & 20 : que faire dans ce cas, vrai ou faux ?, les 2 conditions sont-elles remplies ?
20 & 10 : que faire dans ce cas, vrai ou faux ?, les 2 conditions sont-elles remplies ?
20 & 20 : que faire dans ce cas, vrai ou faux ?, les 2 conditions sont-elles remplies ?

Bonsoir,

Dans la cellule J2, le test est unique et correspondra toujours à un seul article (colonne I).

Il s'agira toujours de dire que l'article de la colonne X est traîté si la ou les conditions de la colonne X+1 correspondent à la saisie de l'utilisateur.

Si la saisie de l'utilisateur renvoie range("Coolty_LU").value = 20 and range("Cooler_LU").value = 20, cela sera testé dans une autre cellule (pas forcément de la colonne J puisque ce meme article peut se retrouver dans la colonne R s'il s'agit d'une autre machine).

Quel que soit la saisie de l'utilisateur, toutes les lignes et colonnes seront parcourues de manière bête et méchante afin de savoir si l'article est traîtable ou non (recuperation de son prix de revient et de son poids) en fonction de la ou des conditions nécécessaires à cet article.

Qu'il y ait 1, 2, 3000, 4000 ou 100000 cellules à verifier, le problème reste le même, à savoir, comment savoir si la ou les conditions sont True ou False (les fichiers qui m'arrivent sont en dur et impossible de traiter autant d'info tous les 3 ou 4 jours).

En fait, je n'ai pas le contrôle au depart et m'adapte à une situation en tapant du code qui anticipe les demandes au mieux.

J'ai la logique pour le code (une trentaine de lignes) mais bute depuis 3 semaines à raison de 15h par jour sur ce point.

Désolé, je sèche; je n'ai toujours pas réponse à mes questions; ou alors, je suis totalement à côté de la plaque!
Je veux bien donner un coup de pouce, mais là ......
Ce que j'attends: étant donné le contenu de la cellule k, le résultat attendu (ou l'action à entreprendre) est tel ou tel, avec un minimum de cas de figures qui peuvent être mis en tableau.

Pièce jointe 213267

Ci-joint le fichier Auquel j'ai ajouté un onglet qui reprend l'onflet "Nomenclatures" avec quelques liggnes et présenté différemment.

Pour résumer, étant donné qu'il s'agit d'une nomenclature, il faudra toujours que la condition soit vraie pour que l'article soit traîté (sinon on passé à la ligne suivante.

Dans ta phrase:
"Pour résumer, étant donné qu'il s'agit d'une nomenclature, il faudra toujours que la condition soit vraie pour que l'article soit traité (sinon on passe à la ligne suivante)"
J'ai mis en rouge les mots-clefs, comment dois-je déterminer que la condition est vraie ou fausse ?

encore une fois, quand je lis en cellule E5 quelque chose comme "range("Coolty_LU").value = 10 and range("Cooler_LU").value = 10", comment puis-je dire que cette condition est true ou false?

Je ne comprends pas ceci "Si l'utilisateur a sélectionné la "Centrale de lubrification" alors Lubunit = 1"
Je ne comprends pas non plus le sens de "On traite alors l'article Lub-HYD-1 que si range("Lubunit").value = True"

J'ai l'impression que le problème est fort simple , mais hélas, tu n'arrives pas à l'exposer de façon claire et précise.

Bonjour,

Trâiter l'article signifie récupérer son poids, son Prix de Revient, sa description et prendre en compte les "sous-articles" qui lui sont rattachés (niveaux).

il faudra toujours que la condition soit vraie -----> la réponse est oui : il faudra toujours que la condition soit vraie pour traîté l'article de nomenclature se trouvant sur la même ligne.

L'article "LUB-HYD-1" est celui qui englobe ensemble de la centrale de lubrification dans notre outil de production (SAP) ---> il est la tête de nomenclature.

Par exemple, quand l'utilisateur effectue sa saisie, on lui pose la question si la machine sera équipée de la centrale de lubrification (Lubunit en anglais).
Si l'utilisateur répond "oui" alors Lubunit = 1 sinon Lubunit = 0

Pour dire qu'on traîte "LUB-HYD-1", il faudra donc obligatoirement que l'utilisateur ait répondu "OUI" à la question ci-dessus (cela correspondra à Lubunit = 1).

Si L'utilisateur a répondu "NON" (Lubunit = 0), rien ne sera traîté des articles du fichier excel que je t'ai envoyé ---> pas de traitement des colonnes B, C et D de l'onglet "Présentation différente".

Comment dire que "range("Coolty_LU").value = 10 and range("Cooler_LU").value = 10" est vrai ?
C'est la saisie de l'utilisateur qui le dira.

Cooler_LU et Cooler_LU sont 2 informations saisies par l'utilisateur qui correspondent à 2 combobox.
Comme pour lubunit, s'il a saisi ce qui correspond à Coolty_LU = 10 (dans une combobox) et Cooler_LU = 10 (dans une autre combobox) alors on traîte l'article N90508132.

Si l'utilisateur a saisi par exemple Coolty_LU = 10 et Cooler_LU = 20, alors on ne traîte ni la colonne C ni la colonne D (puisque la colonne D depend de la colonne C).

A défaut de savoir si la condition est True, connaîtrais-tu un moyen de récupérer le contenu de la cellule E5 (par exemple, la cellule E5 contenant "range("Coolty_LU").value = 10 and range("Cooler_LU").value = 10") et de le récupérer directement sous VBA.

Normalement, dans VBA Excel, je devrais taper :

Code:

---

If range("Coolty_LU").value = 10 and range("Cooler_LU").value = 10 then ...

---

J'ai essayé :
If range("E5").value then ----> erreur 13 incompatibilité de type

J'ai essayé de ranger le contenu de la cellule dans une variable :

Code:

---

1 2 3

Dim condition as string Condition = range("E5").value If condition then

---

----> erreur 13 incompatibilité de type

?condition retourne bien "range("Coolty_LU").value = 10 and range("Cooler_LU").value = 10"
?"range("Coolty_LU").value = 10 and range("Cooler_LU").value = 10" retourne bien VRAI

Peut-être y a t-il moyen de taper une commande VBA incluant mes 2 tests en 1 commande :

Code:

---

?(?condition)

---

ou

Code:

---

Valeur (condition)

---

ou

Code:

---

If contenu de condition = True

---

ou autre

Si j'ai bien compris, ton fut est de savoir si ces expression sont vraies ou fausse.
Dans ce cas, inutile de mettre un If.
Par exemple, l'expression :

Code:

---

Range("A1") = 1

---

est une valeur en elle-même.

En supposant que tes données sont en A1:A1000 de ton onglet Feuil1, tu mets en A1 d'un autre onglet :

Code:

---

="Cells("&LIGNE(Feuil1!A1)&";2) = ("&Feuil1!A1&")"

---

Tu copies cette A1 vers le bas autant que nécessaire.
Tu sélectionnes l'ensemble > Ctrl+C

Dans ton éditeur VBA, tu mets un Sub / End Sub histoire de mettre ça dans une macro et tu fais un Ctrl+V entre les deux.

Tu lances la macro (après avoir sélectionné la feuille source de tes test) et tu auras tes résultats en colonne B sous format VRAI/FAUX.