Discussion :

[Mokimoki]

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 :

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

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

[ESVBA]

bienvenue sur le forum,

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

je ne sais pas si les protestants vont protester 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

[el_slapper]

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 :

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

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 :

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

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.

[Mokimoki]

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 !