Chercher et Affecter une valeur à une variable selon les valeurs de deux variables

Bonjour ,
après :
1) Déclaration des variables

Code:

---

1 2 3

Dim Pvnai As Single Dim semaiG As String Dim UFLG As Single

---

2) Les valeurs des variables correspondent respectivement aux valeurs insérer dans un formulaire puis affecté à des cellules dans une feuille Excel

Code:

---

1 2	semaiG = Range("E11").Value Pvnai = Range("M6").Value

---

3) Question?

Est-ce que vous pouvez me proposer un code qui me permet d’affecter une valeur à UFLG selon la valeur que prends la variable semaiG et Pvnai
Par exemple pour semaiG = SemG28 et poids=30 alors UFLG=0,8
semaiG = SemG31 et poids=40 alors UFLG=1 ( voir ficher excel)
J’espère que j’été claire et je vous remercie d’avancePièce jointe 168833Pièce jointe 168833Pièce jointe 168833

Bonjour,
Pour répondre à ta question, il serait intéressant de savoir comment sont organisées tes données et pour anticiper ta réponse, je n'ouvre pas les classeurs mis en téléchargement (3 versions en plus)

Bonjour

Je vais m’expliquer cette fois ci clairement, j’ai une variable Nom_colon représentant les noms des colonnes d’un tableau ( Nom_colon1 à Nom_colon14) et une autre variable Nom_ligne représentant les noms des lignes ( Nom_ligne1 à Nom_ligne6)
La troisième variable Z représente le contenu de la table ( intersection de Nom_ligne et de Nom_colon) exemples : pour Nom_colon1 et Nom_ligne1 Z=2 pour Nom_colon1 et Nom_ligne3 Z=2.5 ainsi de suite ,c’est comme si on a une matrice.

Est-ce que vous pouvez me proposer un code qui me permet de chercher la valeur exacte de Z selon ,le nom que prends Nom_colon (Nom_colon1 à Nom_colon14) et Nom_ligne ( Nom_ligne1 à Nom_ligne6).

Je vous remercie

Bonjour,

Citation:

---

j’ai une variable Nom_colon représentant les noms des colonnes d’un tableau ( Nom_colon1 à Nom_colon14) et une autre variable Nom_ligne représentant les noms des lignes ( Nom_ligne1 à Nom_ligne6)

---

N'est-ce pas plutôt des variables de type Range ?
Une solution parmi d'autres seraient d'utiliser la fonction INDEX combinée à deux formules EQUIV (Match en anglais et en VBA)
Imaginons donc les étiquettes de colonnes en B1,Trim1, C1, Trim2, D1, Trim3 et E1, Trim4 et en ligne : A2 Pommes, A3 Poires et A4 Abricots et enfin les données se trouvant en B2:E4
Ainsi avec Excel, la formule sera par exemple

Code:

---

=INDEX(B2:E4;EQUIV("Pommes";A2:A4;0);EQUIV("Trim2";B1:E1;0))

---

En vba en utilisant l'objet WorksheetFunction

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim rngData As Range, rngLabelRow As Range, rngLabelColumn As Range, fn As WorksheetFunction Set fn = Application.WorksheetFunction With ThisWorkbook.Worksheets("Feuil1") Set rngData = .Range("B2:E4") Set rngLabelRow = .Range("A2:A4") Set rngLabelColumn = .Range("B1:E1") End With With fn MsgBox "Valeur trouvée " & .Index(rngData, .Match("Pommes", rngLabelRow, 0), .Match("TRim2", rngLabelColumn, 0)) End With

---

Il faut bien entendu remplacer les constantes Pommes et Trim2 par des variables

Je vous remercie infiniment
Je pense que vous avez compris mon idée sauf que pommes, poires …etc. est une variable string appeler fruits cette variable fruits corresponds à la valeur introduite par un formulaire (type ComboBox) de même trim1 , Trim2… etc. est une variable appeler trimestre cette variable est introduite de la même façon par ailleurs est ce que je peux dire à VBa qu’à chaque fois que les variables fruits et trimestre prennent une valeur, le programme me cherche la valeur correspondante dans le tableau exemple fruit=pomme , trimestre =trim1 Z (intersection pomme et trim1) et affecter cette valeur à la variable Z.
Je vous remercie encore une fois !!

Bonjour,

Citation:

---

Je pense que vous avez compris mon idée sauf que pommes, poires …etc. est une variable string appeler fruits cette variable fruits corresponds à la valeur introduite par un formulaire (type ComboBox) de même trim1 , Trim2… etc. est une variable appeler trimestre cette variable est introduite de la même façon par ailleurs est ce que je peux dire à VBa qu’à chaque fois que les variables fruits et trimestre prennent une valeur, le programme me cherche la valeur correspondante dans le tableau exemple fruit=pomme ,

---

C'est ce que j'ai écrit à la fin de ma réponse

Citation:

---

Il faut bien entendu remplacer les constantes Pommes et Trim2 par des variables

---

bonjour je sais pas comment vous remercier pour votre aide précieux ,j'ai repris le même code en affectant mes variables déjà définit

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim rngData As Range, rngLabelRow As Range, rngLabelColumn As Range, fn As WorksheetFunction Set fn = Application.WorksheetFunction With ThisWorkbook.Worksheets(Feuil1) Set rngData = .Range("X1:AK6") Set rngLabelRow = .Range("B2:B5") Set rngLabelColumn = .Range("Y1:AK1") End With With fn MsgBox "Valeur trouvée " & .Index(rngData, .Match(Pvnai, rngLabelRow, 0), .Match(semaiG, rngLabelColumn, 0)) End With

---

Par ailleurs j'ai une erreur

Erreu d'excécution '-2147418113(8000ffff)'
erreur Automation
Défaillance irrémédiable
Autre chose je veux pas afficher un Msgbox mais affecter la valeur trouvé à une variable

Mes grands remerciements !!

Bonjour,
Connaître le numéro de ligne où a eu lieu l'erreur ne serait pas un luxe.
Je vois déjà un problème ligne 3. Le nom de la feuille devrait être entre guillemets.
De plus, un doute m'habite, as-tu placé le code dans une procédure Sub ou Function ?
Ce qui me paraît curieux également, c'est l'adresse de la plage de données par rapport aux lignes et colonnes contenant les étiquettes

Merci pour les remarques c'est vrai j'avais des erreurs dans le code mais mêmes après correction l'erreur persiste

Code corrigé

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim rngData As Range, rngLabelRow As Range, rngLabelColumn As Range, fn As WorksheetFunction Set fn = Application.WorksheetFunction With ThisWorkbook.Worksheets("feuil1") Set rngData = .Range("Y2:AK6") Set rngLabelRow = .Range("X2:X6") Set rngLabelColumn = .Range("Y1:AK1") End With With fn MsgBox "Valeur trouvée " & .Index(rngData, .Match(Pvnai, rngLabelRow, 0), .Match(semaiG, rngLabelColumn, 0)) End With

---

Réponse aux questions

1)le code est dans Sub
2)les étiquettes : l'ensemble de la plage sur la feuil1 X1:AK1
étiquettes colonnes: Y1:AK1
étiquette ligne X2:X6
plage de la valeur recherchée :Y2:AK6
Merci d'avance

Bonjour,
J'ai testé ce code et cela fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub t() Dim rngData As Range, rngLabelRow As Range, rngLabelColumn As Range, fn As WorksheetFunction Set fn = Application.WorksheetFunction Dim pvnai As String, semaig As String pvnai = "Poires": semaig = "Sem_12" ' Valeurs cherchées With ThisWorkbook.Worksheets("feuil1") Set rngData = .Range("Y2:AK6") Set rngLabelRow = .Range("X2:X6") Set rngLabelColumn = .Range("Y1:AK1") End With With fn MsgBox "Valeur trouvée " & .Index(rngData, .Match(pvnai, rngLabelRow, 0), .Match(semaig, rngLabelColumn, 0)) End With End Sub

---

A vérifier
1) Est-ce bien sur la feuille nommée [Feuil1] et le classeur où se trouve cette feuille est-il bien celui où se trouve le code VBA (ThisWorkbook)
2) Les valeurs cherchées pvnai et semaig se trouvent-elles vraiment dans les plages de recherches rngLabelRow et rngLabelColumn (Attention aux espaces avant et après)

Je vous remercie infiniment ça marche super bien:applo::applo::applo:

j'ai une dernière question si je veux affecter cette valeur trouvée à une variable (car je vais travailler avec dans le reste de la procédure) que j'ai déjà définie et non pas l’afficher dans une boîte de dialogue comment je vais faire !

:oops::oops:

Bonjour,

je me permet d'intervenir


Pour affecter la valeur trouvée à une variable ... il suffit de lui demander de le faire, plutôt que de lui demander de l'afficher dans un MsgBox :

Code:

---

1 2 3 4 5 6 7 8 9

Dim MaValeur as String Dim MonAffectation as String   MaValeur = "toto"   Msgbox "La Valeur est " & MaValeur 'affichera la valeur dans un message MonAffectation = MaValeur 'affectera la valeur à la variable

---

Pour l'exercice, j'ai pris soin de ne pas générer un exemple applicable directement à ton code.
Je te laisse adapter ;)

:help:

Bonjour
je trouve une grosse difficulté à adapter cette proposition à mon code :oops:
Je m'explique je veux que mon code me permet d'affecter la valeur trouvée à une variable (récupérer la valeur et l’affecter à une variable ).

Merci Merci beaucoup !!

Quelles difficultés ?

il suffit simplement de modifier la ligne 12 du dernier code de Philippe, en t'inspirant de mon exemple qui te montre comment on affiche une valeur (ligne 8) et comment on l'affecte à une variable (ligne9)

j'ai modifié ma ligne 8 pour qu'elle ressemble à la ligne 12 du code de Philippe, mais la solution est à ta portée, et c'est pour ça que je ne la donnerai pas explicitement.

par ailleurs, tu parles de réutiliser la variable, mais est-ce dans la même procédure ? Dans une autre procédure ? Dans une procédure qui appelle cette procédure ? Etc ...


il faudra selon certains cas passer par une variable publique pour qu'elle conserve sa valeur dès que ta procédure qui effectue l'affectation se termine.

une lecture des tutoriels de ce site semble recommandée, c'est comme ça que j'ai (et que beaucoup d'autres) ont appris et débuté en VBA :)

Bonjour,

Citation:

---

je trouve une grosse difficulté à adapter cette proposition à mon code

---

Ce n'est pourtant pas bien compliqué de lire la réponse qui t'a été donnée par l'intervenant précédent
Plutôt que d'afficher la valeur à l'aide d'un MsgBox, comme la ligne ci-dessous

Code:

---

1 2 3

With fn MsgBox "Valeur trouvée " & .Index(rngData, .Match(pvnai, rngLabelRow, 0), .Match(semaig, rngLabelColumn, 0)) End With

---

Il suffit d'attribuer cette valeur à une variable (dans l'exemple maVar)

Code:

---

1 2 3

With fn maVar = .Index(rngData, .Match(pvnai, rngLabelRow, 0), .Match(semaig, rngLabelColumn, 0)) End With

---

Je vous remercie de tout mon coeur Philippe Tulliez et joe.levrai ça marche très bien!! :resolu: