Additionner variables texte

Bonjour,

Dans la colonne A, j'ai des noms de ville

(j'essaye de faire volontairement simple)

J'ai une déclaration type

Code:

---

ville(10000,50)

---

J'essaye d'additionner le nom de ville , style

Code:

---

1 2	for i= 1 to 10000 if cells(i,1)="PARIS" then ville(1,5)=ville(1,5)+1

---

(je fais volontairement très très simple.... : 1 = PARIS, 5 = données de la colonne E),

J'ai essayé

Code:

---

ville(cells(i,1),5)=ville(cells(i,1),5)+1

---

Et naturellement, ça ne fonctionne pas.....

Variable texte et chiffre, ça va pas ensemble .....:aie:

Une des solutions serait de faire (=une recherche INDEX+EQUIV des villes dans une autre feuille :
http://www.developpez.net/forums/d10...-colonnes-tcd/ )

Mais avant de m'aventurer dans ce type de code, je souhaitais savoir s'il n'y avait pas une autre possibilité ?

Merci,

A+
Je cherche à calculer

Bon, j'essaye de créer une fonction, histoire d'automatiser la recherche, j'ai fait

Code:

---

1 2 3 4 5 6

'feuille principale ' eric=cells(i,1) Function essai() for j= 1 to 10000 if sheets("Feuillevilles").cells (j,1)=eric then resu=("Feuillevilles").cells(j,2) next end function

---

'Feuillevilles' contient le nom des villes en B, il y a leur numéro (exemple pour Paris = 1)

Le problème , c'est quand je fais le pas-à-pas, lorsque la fonction est appelée, "Eric" = vide, de même, lorsque la fonction est terminée, je n'arrive pas à récupérer la valeur "résu"......

J'ai essayé de trouver sur la FAQ un tuto sur l'utilisation des "Function", mais rien vu.....

Alors, soit, on peut passer sans une fonction "Function", soit une bonne ame peut m'indiquer un chemin de tuto pour que je comprenne les "function".....:aie:

Merci,

A+

Bonjour,

Si on oublie les variables globales, une fonctions a des arguments et une sortie.
Les arguments sont contenus entre les parenthèses et la sortie a le nom de la fonction.

Code:

---

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

eric=cells(i,1) Resultat= essai(eric) ... end     Function essai(eric) for j= 1 to 10000 if sheets("Feuillevilles").cells (j,1)=eric then resu=sheets("Feuillevilles").cells(j,2) exit for else endif next essai= resu end function

---

devrait fonctionner un peu mieux
A+

Salut
Pourquoi ne pas plutôt utiliser CountIf, en faisant par exemple comme ça

Code:

---

Sheets("Feuil1").[E2] = WorksheetFunction.CountIf(Sheets("Feuil1").Range("A:A"), "Paris")

---

Tu peux ensuite adapter pour ne calculer le nombre de ville que sur un espace plus restreint.
On peut également imaginer de faire une liste sans doublon a partir de la colonne A, puis de boucler sur cette liste et de replacer "Paris" par le contenu de la case de ta liste pointé par ta boucle et ainsi faire calculer le nombre d’occurrence pour chaque ville.
++
Qwaz

Merci PPz78,
Merci Qwazerty,

En fait, j'en étais arrivé à la même conclusion que PPz78, mais j'ai fait plus compliqué .....:

Code:

---

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

global eric, resu as string   eric = Cells(j, 1) Application.Run "essai.xls!Macro" ville(resu,5)=ville(resu,5) ''''''''''''''''''''''''''' sub macro() For g = 1 To 10000 ' If Sheets("Feuillevilles").Cells(g, 1) = eric Then resu = Sheets("Feuillevilles").Cells(g, 5) End If   Next     End Sub

---

Je mets en GLOBAL les variables, je les fais calculer dans une macro et je récupère la valeur. Ce qui revient au même que la solution de PPz78, sauf qu'utiliser la "function", c'est plus 'propre', voire, plus rapide ?

Merci Qwazerty pour l'idée, je la retiens pour une prochaine fois, car elle a le mérite de consommer moins de ressources à ce que j'ai pu comprendre....

Merci à tous les 2 :ccool:

Par contre si vous aviez un lien vers un tuto des "function" : j'ai vu des

Code:

---

function er(byref v as integer) as variant

---

par exemple, et je ne sais pas comment elles s'utilisent....rien vu sur la FAQ, ni sur le site, donc si vous aviez un tuto, histoire que j'essaye de m'améliorer......;)

Merci

A+ pour de prochaines aventures

Salut
Hummm, heuu, non tu ne peux pas faire ça, c'est pas propre

Pour Global, il faut mettre Public, je sais que les 2 marchent mais Global c'est une vieille commande. Si tu fais un coup de F1 sur Global, l'aide t'amène sur Public.

Ensuite toujours sur la 1ere ligne

Code:

---

Public eric, resu as string

---

Voila ce que comprend VBA

Code:

---

Public eric as Variant, resu as string

---

Il faut répéter pour chaque variable son type associé.

Pour les 3 lignes qui suivent
Application.run est utilisé pour lancer une macro se trouvant dans un autre classeur, donc ici inutil, si tu veux faire référence à une fonction ou procédure public du même classeur , il suffit de mettre son nom tout simplement ou au pire utiliser Call.

Dans ton cas l'utilisation de Macro n'a strictement aucun intérêt, je te conseille de supprimer tes déclaration Public du début et de regrouper l'ensemble de ton code dans une seule et même procédure.
Le seul intérêt de créer une procédure ou une fonction, c'est le cas ou une partie de code serait réutilisé plusieurs fois dans des parties différentes du programme, ou à la limite pour soulagé un programme très long, on en est pas encore là ;).

De plus dans un cas comme celui que tu présentes, il serait plus intéressant de développer une fonction(Function) plutôt qu'un procédure(Sub), en effet les fonctions retournent une valeur, donc ici tu pourrais directement retourner la valeur que tu stockes actuellement dans resu. Ppz78 t'avais mis sur la voie des fonctions relis son code.
Prend le temps de regarder dans la section tutoriel du site, tu y trouvera des info sur les concepts de Procédure et Function.


Par contre pour ne pas risquer de te mélanger les pinceau, je te conseille de remplacer ces 2 lignes du code de Ppz78

Code:

---

1 2	eric=cells(i,1) Resultat= essai(eric)

---

Par celles-ci

Code:

---

Resultat= essai(cells(i,1))

---

Car la variable eric dans ces 2 lignes, ne correspond pas à la variable eric utiliser dans la fonction, je ne sais pas si je suis très claire mais tu pourrais écrire cela

Code:

---

1 2 3 4 5 6 7 8 9

eric=cells(i,1) Resultat= essai(eric) ... end     Function essai(Nom as string) as integer for j= 1 to 10000 if sheets("Feuillevilles").cells (j,1)=Nom then

---

Pour terminer, je crois bien que tu viens de ré-inventer la fonction RechercheV... fais une recherche sur cette fonction, elle fait exactement ce que tu veux faire, dans une plage de cellule (dans ton cas A1:E10000), elle recherche une valeur dans la 1ere colonne (A) et te revois la valeur qui se trouve sur la même ligne mais dans la colonne que tu lui précises (E). La fonction est en plus suffisamment bien conçue pour ne pas t’inquiéter du nombre de lignes que tu lui transmets en plage, donc tu peut lui transmette les colonnes complètes soit (A:E) au lieu de (A1:E10000).

Il faut parfois bien rechercher dans ce qui existe déjà avant de se développer des outils personnels ;)

Bon courage
++
QWaz

Whaou !

Merci Qwazerty pour tous ces conseils et explications :ccool:, c'est super sympa de corriger mes erreurs de "débutant" et surtout de me dire où ça coince, et/ou coincerait.....;)

Je vais me replonger dans les tuto du forum, j'ai dû zapper, ou alors lu trop vite en cherchant car je n'avais pas trouvé, mais c'est vrai que j'ai cherché dans la FAQ, pas les tutos.......j'y retourne dès aujourd'hui.

Effectivement, ça ressemble à "RECHERCHEV"......mais d'après ce que j'ai pu trouver dans la FAQ, dont celui de Silkyroad (excellent !!!), il faut passer par un code : j'ai essayé avec :

Code:

---

VLOOKUP (cells(),(cells(),cells(),1)

---

, mais comme ça n'a pas fonctionné, je me suis "rabattu" sur mon code et sa boucle....

Tu as raison, je m'y remets, c'est en essayant qu'on y arrive....!!!!!

Je te remercie pour toutes tes explications :zoubi:

A+ pour de prochaines aventures

Salut
Tu ne peux pas utiliser VLookUp comme ça, il faut faire référence a WorkSheetFunction, comme cela (je n'ai pas vérifié ce que tu as mis en paramètres)

Code:

---

Worksheetfunction.vLookUp(......)

---

++
Qwaz

Ok Qwazerty,

Merci, maintenant je sais pourquoi ça ne fonctionnait pas avec

Code:

---

vLookUp

---

:aie:

Je vais essayer avec

Code:

---

WorkSheetFunction

---

, je suis pas très à l'aise avec ces fonctions, mais je viens de trouver des tutos sur le site qui expliquent un peu le fonctionnement. Je me plonge dedans !!!!!

Je te remercie,

A+ pour de prochaines aventures :ccool: