Discussion :

[Franck6979]

Bonjour à tous,
Je suis débutant en VBA et j'essaie de réaliser un programme VBA pour associer automatiquement les traductions des mots les plus utilisés dans une liste.
J'ai préparé un fichier exemple avec des fruits mais le principe est le même : une colonne Liste complète avec des mots qui se répètent, une colonne Français (occurence) = les plus fréquents et une colonne Anglais avec les traductions des plus fréquents. Le tout en ordre alphabétique pour faciliter le programme. Je cherche donc à remplir la colonne "Traduction" avec les traductions de la colonne B et laisser les mots les moins utilisés non traduits.
J'ai essayer de faire ce programme, mais ça ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 assocation()
 
 
Dim Liste As String
Dim Français As String
Dim Anglais As String
Dim i As Integer
Dim j As Integer
 
i = 1
Liste = Cells(1, 3)
Français = Cells(1, 1)
Anglais = Cells(1, 1)
 
 
If Mots_Clefs = Occurence Then
 
Dim Traduction As String
Liste = Cells(i, 3)
Français = Cells(i, 2)
Anglais = Cells(i, 1)
Traduction = Cells(i, 4)
Traduction = Anglais
i = i + 1
 
 
Else
i = i + 1
 
End If
 
End Sub

Quelqu'un peut me dépanner ?
Merci d'avance
Franck

[Marc-L]

Déjà je ne vois pas trop l'utilité d'un code alors que déjà avec le B-A-BA d'Excel,
à savoir une simple formule de feuille de calculs,
une équivalence peut facilement être trouvée via par exemple RECHERCHEV ou encore EQUIV et INDEX …
Commencer de ce côté là via l'aide d'Excel.

Ensuite si vraiment nécessaire, ces mêmes fonctions sont utilisables dans un code et souvent bien plus efficaces
qu'une simple boucle sauf si on aime les usines à gaz;  tout dépendant aussi du volume à traiter …

Voir aussi du côté de la méthode VBA Range.Find …

Autre usage du forum : peu ou prou n'ouvrent de pièce jointe non expressément demandée
surtout celles contenant du code !   Pour rappel :   Fichiers joints dans les discussions   …

Et souvent cela n'empêche pas le besoin d'une présentation digne de ce nom, claire & exhaustive !

[Franck6979]

Merci Marc de ta réponse.

Je pensais avoir bien exposé ma demande, je n'aurais pas du rajouter le fichier, je vais l'enlever.

Je comprends aussi que ce forum ne s'adresse pas aux débutants. je ne vais donc pas vous embêter plus longtemps et continuer à essayer de résoudre mon problème par moi-même.
Merci, à la prochaine quand je serai devenu un pro

[Marc-L]

Ce n'est pas réservé aux pros, mais ici comme sur un autre forum on ne livre pas clef en main,
on ne donne pas de poisson, on apprend à pêcher …
Ceux qui s'y sont pliés sont depuis autonomes et certains font même partie des intervenants réguliers.

Donc il suffit juste de bien expliquer la structure des données, les tenants et les aboutissants,
d'où tu pars et où tu veux arriver, afin de juste obtenir de l'aide à la hauteur des explications fournies !

[unparia]

Bonjour
Je vois que le demandeur a cliqué sur le tag RESOLU.
Je l'invite nonobstant à se relire, à être précis, etc ... (autant qu'on peut espérer que sache le faire celui qui exerce le métier qu'il annonce).
On commence (s'il le veut bien) par la définition et la détermination des mots les "plus fréquents". Elle est plutôt ... vaste ... non ?
Autant je sais ce qui est "le plus fréquent", autant j'ai des difficultés à définir les mots (donc plusieurs) qui seraient LES plus fréquents. Je ne saurais le faire qu'à condition de déterminer à partir de quel pourcentage de présence ils sont considérés comme "LES plus fréquents".
Serais-je fou, de commencer par là ? -->> j'attends sa réponse.
Qui dit fréquence, dit pourcentage. Qui dit pourcentage, dit décompte du nombre d'apparitions et comparaison à un nombre total. Qui dit nombre d'apparitions, dit, entre autre, utilisation d'une méthode. Je lui suggère de s'intéresser à la méthode WorksheetFunction.CountIf, Ce sera un début.
Je l'invite donc à commencer par là, avec toute ma "tolérance".

[Invité]

Bonsoir,

Ici c'est un forum d'entraide et le prix de l'inscription est zéro étoiles!

Les pros on pour principal vocation de venir en aide aux plus faible!
Nous avons à cœur d'être le plus pédagogique possible afin qu'il reste quelque chose utile à tous au cour de nos échanges.

Faire le travail ce n'est pas la vocation de ce forum,mais permettre aux demandeur d'acquérir la compétence primordial pour résoudre ses problèmes seule oui!

Nous t'accueillons à bras ouvert mais ne t'offusque si on te rappelle les règles du forum!

[Franck6979]

Merci "unparia" et "dysorthographie" pour vos réponses.
unparia, si j'ai marqué le sujet comme "résolu", c'était pour ne pas déranger plus que ça votre communauté.
dysorthographie, je ne me suis pas offusqué du rappel des règles, au contraire, j'ai essayé de rectifier mes erreurs.

Si je me suis permis de dire que ce forum n'est pas pour les débutants, c'est parce les réponses que j'ai reçu sont plus de l'ordre du jugement que de l'entraide. Je ne vois pas l'intérêt de poster dans un forum si c'est pour que les réponses soient du genre : "tu ne sais pas exposer ton problème", "apprends ce qu'est une occurrence", "ton problème c'est plus le B-A BA d'Excel". Je ne vois pas ce que ça apporte. Vous êtes très fort, je suis ignorant, j'ai compris, merci.

Encore une fois je me répète, pardon de vous avoir pris du temps pour rien. Je vais me débrouiller.

A dans quelques mois ou années quand je serai plus aguerri ...

[mercatog]

@Franck6979

Plutôt essaies de ré-expliquer le problème car ce n'est pas clair (Surement il l'est pour toi)

On ne va pas te décourager ainsi mais aussi il faudrait accepter les orientations des intervenants.

Si Marc_L que je salue te dis qu'avec le ba ba d'Excel, ce n'est surement pas pour te décourager mais dans le sens il t'oriente vers une piste qui serait peut être plus facile
Si unparia que je salue aussi te dis de bien définir l'expression "LES plus fréquents" c'est qu'il a tout à fait raison.

Allez reviens avec plus de courage et laisse l'excès "d'amour-propre négatif" qui n'est d'aucune utilité.