Discussion :

[vikingviking]

Bonjour à tous,

J'ai écris un code me permettant d'avoir quelques infos à l'ouverture d'un fichier Excel.

MsgBox me montre bien les infos que je veux mais il ne les sépare pas

Exemple:
Je veux faire afficher des numéro de cde différents : 100-10 , 250-10, 120-30, 100-20

Sur le msg box j'ai "100-10 250-10 120-30 100-20 sans séparateurs (virgule ou slash)

Que dois je ajouter à ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
         Private Sub Workbook_Open()
 
 
derniereligne = Application.WorksheetFunction.CountA(Feuil3.Range("G:G"))
 
Message = " "
 
For i = 2 To derniereligne
 
 Valeur = Cells(i, "E")
 
If Feuil3.Cells(i, "G").Value = "Validée ADF" And Feuil3.Cells(i, "AH") = "" Then
 
Message = Message & " " & Valeur
 
 
Else
Feuil3.Select
End If
Next i
MsgBox "Les Tâches numéro" & " " & Message & " " & "Sont sans devis. Merci de revérifier le tableau de saisies.", vbExclamation, "Attention!"

Merci à tous

[a_diard]

Bonjour :

Ligne 14

Code :

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

Message = Message & " " & Valeur & "/"

[vikingviking]

C'est bien simple au fait.

merci bcp.

Bonne journée

[patricktoulon]

re
bonjour
grosse erreur de boucler sur le nombre obtenu avec countA
si tu a des ligne vide ou qui ne correspondent pas au critere "Validée ADF"
et bien tu passe a coté forcement
imagine que tu a 5 cellules qui corespondent au critere mais etalé sur 50 ligne par exemple countA te donnera 5
et bien tu ne prendra que celles qui sont eventuellement sur les 3 premiere lignes puisque tu commence ta boucle a 2 les autres walouh!!! walouh!!!

je te propse quelque chose de différent et certainement plus sur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_Open()
    Dim tabl(), i&, a&, separateur$
    separateur = "/"    'tu met le separateur que tu veux
    With Feuil3
         For i = 2 To .Range("G" & .Rows.Count).End(xlUp).Row
            If .Cells(i, "G").Value = "Validée ADF" And .Cells(i, "AH") = "" Then
                a = a + 1: ReDim Preserve tabl(1 To a): tabl(a) = .Cells(i, "E")
            End If
        Next i
    End With
    MsgBox "Les Tâches numéro" & " " & Join(tabl, separateur) & " " & "Sont sans devis. Merci de revérifier le tableau de saisies.", vbExclamation, "Attention!"
End Sub