Discussion :

[m@tix]

Bonsoir,

Je travaille sur un classeur (composé de plusieurs feuilles) dans lequel j'ai une colonne dont les cellules sont remplies de données numériques, une autre avec les seuils fixés pour ces valeurs, et une dernière indiquant les noms des éléments mesurés.

Je souhaiterais afficher une seule Msgbox à la fin de l'exécution de la macro permettant de récupérer les données, informant l'utilisateur d'éventuels dépassements de seuils, quels éléments ces dépassements concernent, et la quantité mesurée par rapport au seuil fixé.

Enfin, dans le cas où aucun dépassement n'aurait eu lieu, une autre Msgbox, différente, informant de la conformité globale des valeurs.

Ci-joint, un exemple de fichier, avec une précision assez importante.

Pensez-vous ceci possible ? Si tout n'étais pas clair, n'hésitez pas à m'en faire part !

Merci d'avance.

[jfontaine]

Bonjour m@tix,

Tu pourrais aussi tout afficher dans une seule msgbox

Code :

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

1
2
3
4
MsgBox "Fin du traitement des données :" & vbCrLf & vbLf & _
    "   - T1 => OK" & vbLf & _
    "   - T2 => Dépassement Seuil " & Range("A1").Value & vbLf & _
    "   - T3 => OK"

[m@tix]

Bonjour jfontaine,

Merci pour ta réponse. En fait, mes données se répartissant en réalité sur une dizaine de feuilles, j'en ai un nombre bien trop important pour me permettre de toutes les afficher sur une msgbox. Donc j'insiste, j'aimerais bien, si possible, séparer les deux cas..

[SfJ5Rpw8]

utilise une variable string dans laquelle tu prépare ton message ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dim stMess as string 
(...)
' Si dépassement :
stMess = stMess & " Dépassement variable XXXX :   YYYY > ZZZ " & vbCrLf
'....
 
(...)
'Au final
if stMess = "" then
   msgBox "OK"
else
   msgBox stMess,VbCritical
endif

[m@tix]

Ok, ça me semble jouable avec tes indications bbil, merci !
Par contre, je cale toujours concernant le code pour justement comparer toutes les valeurs aux seuils fixés, de par la mise en forme du fichier.. D'ailleurs, je joins à ce message une mise en forme vraiment fidèle, que le premier fichier ne suivait pas.

Fichier joint dans vos discussions

[jfontaine]

ce n'est pas se rendre la vie facile que de fusionner des cellules si on veut les utiliser en VBA ensuite

[SfJ5Rpw8]

Ok, ça me semble jouable avec tes indications bbil, merci !
Par contre, je cale toujours concernant le code pour justement comparer toutes les valeurs aux seuils fixés, ..

Dis nous comment sont organisé tes données.. tu parle d'une colonne valeur, une colonne seuils une colonne nom ...et de plusieurs feuilles... cela veut dire quoi ..? que les colonnes ne sont pas dans la même feuille .?

[m@tix]

ce n'est pas se rendre la vie facile que de fusionner des cellules si on veut les utiliser en VBA ensuite

J'y étais obligé pour respecter une certaine mise en forme. C'est un paramètre que je dois absolument conserver, même si je sais que ça ne rend pas les choses aisées en effet..

Dis nous comment sont organisé tes données.. tu parle d'une colonne valeur, une colonne seuils une colonne nom ...et de plusieurs feuilles... cela veut dire quoi ..? que les colonnes ne sont pas dans la même feuille .?

Je viens de joindre un classeur à mon dernier message. Je n'ai mis qu'une seule feuille, car les autres sont du même type, donc si vous me montrez pour une, je pense pouvoir y parvenir avec les autres non ?
Au passage bbil, si je suis ton code de tout à l'heure, stMess ne sera jamais vide non ? Il y aura toujours au minimum " Dépassement variable XXXX....", et du coup on ne rentrera jamais dans la condition if stMess = "" .

[SfJ5Rpw8]

un peu d'effort de description ..

Je n'ouvre pas les fichiers joints..