Table de correpondance

Bon je vai encore vous embeter!

Je dois faire une table de correspondance en utilisant VB (chose que je n'ai jamais faite). Le mieux pour vous expliquer est de vous envoyer un exemple sur excel.

Je ne sais pas si il faut utiliser une formule (comme equiv & index) ou bien integrer un code dans mes procedures.

Citation:

---

Envoyé par derech

...Je dois faire une table de correspondance en utilisant VB (chose que je n'ai jamais faite). Le mieux pour vous expliquer est de vous envoyer un exemple sur excel.

Je ne sais pas si il faut utiliser une formule (comme equiv & index) ou bien integrer un code dans mes procedures.

---

Tu dois utiliser VB?? ou bien tu peux utiliser Index/Equiv??.

Car si tu peux utiliser index/equiv, fais-le. C'est plus simple que du VBA.

Ok?

J'ai un problème, rien ne s'affiche.
Mes clients sont répertoriés dans la feuille "Inputs"(feuil1) la colonne B correspond à mes clients et la colonne C correspond aux pays qui s'y rapportent (matricequicommence en b2 et fini en c38).
En parallèle dans la feuille "SC-country" (feuil2), le nom du premier client est écrit en "b8" et je veux indiquer le premier pays en "a8", ainsi de suite.

voici le code que j'utilise:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub tablecorres()   ' si les tables changent alors modifier n   Dim BTN As String, country As String Dim i As Long     BTN = Sheets("SC-country").Cells(8, 2).Value Do i = 0 i = i + 1 If Sheets("Inputs").Cells(i, 2).Value = BTN Then country = Sheets("Inputs").Cells(i, 2).Offset(0, -1).Value Exit Do End If   Loop Sheets("SC-country").Cells(8, 2).Offset(0, -1).Value = country     End Sub

---

Pouvez-vous me dire ce qui ne va pas s'il vous plait? Le code fonctionne mais ne s'arrete pas (il ny a pas de beug) et rien ne s'affiche dans ma colonne A de la feuille SC-country (colonne ou je veux que mes pays apparaissent). Merci


PS: Devrais-je donner une limite à i (avec un "for" peut etre, en donnant la valeur 40 à n ) Si c'est le cas comment intégrer le "for" dans ce code. J'ai essayé plusieurs choses mais sans résultat

Bonjour

Je ne sais pas si tu dois faire cela pour un cours,... et donc, je ne connais pas ton niveau et vais peut-être te proposer une solution utilisant des notions non encore apprises...

A toi de voir.

Il faut découper le processus:
Définir la plage des BTN de la feuille "sc-country"
Définir la plage des BTN de la feuille "inputs"

Parcourir la plage des BTN sc-country, rechercher la correspondance dans la plage des BTN inputs, et attribuer à la cellule à gauche du btn sc-contry la valeur de la cellule de droite du btn inputs

En utilisant des objets, tu as un code clair et lisible. De plus, la manière utilisée pour déterminer les plages permet au code de fonctionner même si tu ajoutes des BTN.

Examine ce code et reviens poser des questions si pb...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub RechercherPays() Dim PlageSource As Range Dim PlageRecherche As Range Dim CelSource As Range Dim CelTrouvee As Range   Set PlageSource = Worksheets("sc-country").Range("b8:b" & Worksheets("sc-country").Range("b8").End(xlDown).Row) Set PlageRecherche = Worksheets("inputs").Range("b2:b" & Worksheets("inputs").Range("b2").End(xlDown).Row)   For Each CelSource In PlageSource Set CelTrouvee = PlageRecherche.Find(what:=CelSource.Value, LookIn:=xlValues, lookat:=xlWhole) If Not CelTrouvee Is Nothing Then CelSource(1, 0).Value = CelTrouvee(1, 2).Value Next CelSource   Set PlageSource = Nothing Set PlageRecherche = Nothing Set CelSource = Nothing Set CelTrouvee = Nothing End Sub

---

Ok?

Je suis débutant en VB. Je l'utilise pour le travail.

J'ai examiné le code et je le comprends. Je l'ai donc coller dans une procédure mais lorsque je l'execute rien ne s'affiche dans ma col A feuille SC-country ( la ou je veux que les pays apparaissent).

Il est possible qu'il faille adapter à ta situation (notamment les noms des feuilles) car n'ayant eu que ton premier classeur, je n'ai pu travailler que sur celui-là. Dans ton deuxième message, tu parles de feuille "inputs" notamment, alors que dans le classeur que tu as mis sur le forum, tes feuilles s'appellent feuil1 et feuil2.

Si tu comprends le code, tu devrais être à même de l'adapter pour qu'il fonctionne chez toi.

Voici le fichier excel sur lequel mon code fonctionne

Ok j'ai bien tout vérifier et c'est en fait mon tableau feuille Inputs qui démarre ligne 3 au lieu de ligne 2!

Ca fonctionne parfaitement maintenant,merci!

Je voudrais ajouter une condition à votre code.

Dans la feuille Inputs colonne C (country) j'ai parfois le nom "reserve". Je voudrais associer ce "reserve" à "Europe". Donc lorsque je tombe sur ce mot "reserve" je veux que le mot "europe" soit copié dans la feuille SC-country colonne A.

Etant donné que mes codes perso sont basiques normalement, je ne sais pas commment ajouter cette condition sur votre code.

Tu dois alors tester la valeur de la cellule.

Pour cela, j'agirais comme suit:

Ajout de la ligne

Code:

---

dim ValeurTrouvee as variant

---

juste après les lignes Dim en début de procédure, comme ceci:

Code:

---

1 2 3 4 5 6

Dim PlageSource As Range Dim PlageRecherche As Range Dim CelSource As Range Dim CelTrouvee As Range Dim ValeurTrouvee As Variant

---

Je passerais systématiquement la valeur de la cellule du pays pour le BTN trouvé à cette variable.
Puis je testerais la valeur au sein d'une boucle If... End If pour renvoyer la valeur adéquate.

Il faut donc adapter le code de la boucle, comme ceci:

Code:

---

1 2 3 4 5 6 7 8 9

If Not CelTrouvee Is Nothing Then ValeurTrouvee = celtrouvee(1,2) If ValeurTrouvee = "RESERVE" Then CelSource(1,0).Value = "EUROPE" Else CelSource(1, 0).Value = CelTrouvee(1, 2).Value End If End If

---

Ok?

c'est parfait, et surtout mon code est très propre, merci beaucoup!