Concaténer des choux et des carottes

Bonjour !

J'ai un soucis sur VBA, pour un projet.

Dans un label, j'aimerai afficher a la fin de mon programme une suite de valeurs dont le nombre varie.
J'aimerai donc concaténer a la suite de ce que j'avais avant dans mon label

Ca donnerai en gros ca :
En 1995 il y a eut x% d'ouragans

1995 et x je vais les chercher dans 2 colonnes excel (colonnes 13 et 14 et ligne M)
m et i, sont des variables que j'utilise avant.

Mon code :

Code:

---

1 2 3 4 5 6 7

M = 3 While M <> m - 2   UserForm2.Label4 = UserForm2.Label4 & vbCrLf & " en " & Sheets("ouragans").Cells(M, 13).Value & " il y a eut" & Sheets("ouragans").Cells(M, 14).Value*100/i & "% d'ouragans"   M = M + 1 Wend

---

Est ce que c'est bien catholique d'écrire ça comme ça ?
Merci beaucoup pour votre aide !

Moki

bienvenue sur le forum,

Citation:

---

Est ce que c'est bien catholique d'écrire ça comme ça ?

---

je ne sais pas si les protestants vont protester:lol: mais c'est incompréhensible : c'est de la programmation VBA ou un algo mal fait ?

• En VBA, "M" et "m" sont identiques
• "M" va-t-il varier ou est-ce une valeur fixe comme la colonne 13 et 14 ?
• "m" est plus grand que "M"

Explique-nous mieux ce que tu veux.

ESVBA

Je suis protestant et je proteste, c'est illisible.

Outre les remarques judicieuses d'ESVBA(à savoir que M=m, et donc ton while sera toujours vrai, et ton programme va boucler infiniment), quand on concatène(rien de scandaleux en soit) différentes choses, mieux vaut le faire sur plusieurs lignes histoire de pouvoir se relire.

du genre :

Code:

---

1 2 3 4 5 6

UserForm2.Label4 = UserForm2.Label4 & vbCrLf UserForm2.Label4 = UserForm2.Label4 & " en " UserForm2.Label4 = UserForm2.Label4 & Sheets("ouragans").Cells(M, 13).Value UserForm2.Label4 = UserForm2.Label4 & " il y a eut" UserForm2.Label4 = UserForm2.Label4 & Sheets("ouragans").Cells(M, 14).Value*100/i UserForm2.Label4 = UserForm2.Label4 & "% d'ouragans"

---

C'est pareil, mais c'est lisible. On peut même passer par une chaine intermédiaire :

Code:

---

1 2 3 4 5 6 7 8 9

dim Chaine as string   Chaine= vbCrLf Chaine = Chaine & " en " Chaine = Chaine & Sheets("ouragans").Cells(M, 13).Value Chaine = Chaine & " il y a eut" Chaine = Chaine & Sheets("ouragans").Cells(M, 14).Value*100/i Chaine = Chaine & "% d'ouragans" UserForm2.Label4 = UserForm2.Label4 & Chaine

---

Et puis des vrais noms de variable, genre LigneLue, ColonneLue, Compteur, sont aussi conseillées.

Désolé de pas avoir répondu plus tôt, soucis de connexion...

Je ne savais pas que M=m. Ça va résoudre pas mal de soucis de mon programme je pense ^^


la réponse de el_slapper m'a beaucoup aidée, j'avais pas pensé a le faire comme ca, c'est vrai que c'est plus simple !


Merci pour vos réponses !:ccool: