MsgBox modulable en fonction de variables

Version imprimable

24/01/2008, 16h01
melouille56

MsgBox modulable en fonction de variables

Bonjour à tous,

dans ma feuille sont listés plusieurs produits, avec leur date de valeur.
Pour une date de valeur j'aurai éventuellement plusieurs produits.

Afin de comptabiliser le nombre de Date différentes qui puissent exister, je les ai stockées ou la variable Dim ValueDate(30) As String (il y en a 31 maximum par mois).

Une fois le tout comptabilisé, je n'ai pas forcément 31 valeurs différentes, il se peut qu'il y en ait que 3.
J'aurais donc, par exemple, ValueDate(0)=03/12/2007, ValueDate(1)=04/12/2007 et ValueDate(2)=05/12/2007

Je voudrais qu'une MsgBox s'ouvre afin que l'utilisateur puisse voir quelles sont les dates pour lesquelles les produits vont par la suite être traités.

Etant donné que je ne sais à l'avance combien de valeurs seront énoncées, est-il possible de créer une MsgBox avec ces variable, qui afficherait à l'utilisateurs "Il y a ce mois-ci 3 dates de valeurs différentes concernées : les 03/12/2007, 04/12/2007 et 05/12/2007" et que ce message s'adapte au nombre de valeurs différentes ?

Merci beaucoup pour vos conseils.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function tmessage()
Dim nb As Byte
Dim matab(1 To 10) As Variant
Dim boucle As Integer
Dim montext As String
Randomize
nb = Int(Rnd() * 10)
If nb = 0 Then nb = 5
For boucle = 1 To nb
matab(boucle) = Int(Rnd() * 100)
Next boucle
nb = 0
For boucle = 1 To 10
If IsEmpty(matab(boucle)) Then Exit For
nb = nb + 1
Next boucle
montext = "ce mois ci " & nb & " mouvements" & Chr(10)
For boucle = 1 To nb
montext = montext & matab(boucle) & Chr(10)
Next boucle
MsgBox (montext)
End Function

bonjour

essaie le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim ValueDate(30) As String
Dim strMsg As String
Dim compteur As Byte
 
compteur = 0
 
For i = UBound(ValueDate) To LBound(ValueDate) Step -1
   If Not ValueDate(i) Like "" Then _
      strMsg = vbTab & ValueDate(i) & vbLf & strMsg: _
      compteur = compteur + 1
Next i
strMsg = "Il y a ce mois-ci " & compteur & _
   IIf(compteur > 1, " dates", " date") & _
   "  de valeurs différentes concernées :" & vbLf & strMsg
 
MsgBox strMsg

cordialement

edit bonjour random

24/01/2008, 16h43
melouille56

Merci Merci Merci, vous êtes trop géniaux !!!
Ca marche !!!
A+