MsgBox avec boucle qui énumère
Fermé
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
-
Modifié par Kuartz le 6/10/2015 à 11:17
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 6 oct. 2015 à 12:07
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 6 oct. 2015 à 12:07
A voir également:
- MsgBox avec boucle qui énumère
- Pc qui s'allume et s'éteint en boucle - Forum Matériel informatique
- Boucle cmd - Forum Programmation
- Freebox redémarre en boucle ✓ - Forum Freebox
- Boucle excel sans macro - Forum Excel
- Msgbox batch ✓ - Forum Autoit / batch
2 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
6 oct. 2015 à 11:42
6 oct. 2015 à 11:42
Bonjour,
Private Sub Workbook_Open()
Dim DL As Long, Liste_Cell As String
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row
For i = 1 To DL
If Range("B" & i).Value < 30 Then
Liste_Cell = Liste_Cell & "-" & Cells(i, "B") & vbLf
End If
Next i
MsgBox ("Attention, la valeur est supérieure à 30" & vbLf & vbLf & Liste_Cell)
End Sub
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
6 oct. 2015 à 11:48
6 oct. 2015 à 11:48
Bonjour
Autre proposition affichant la liste des cellules de la colonne B > à 30 à la place des valeurs
Cdlt
Autre proposition affichant la liste des cellules de la colonne B > à 30 à la place des valeurs
Private Sub Workbook_Open()
Dim DL As Long
DL = Cells(Application.Rows.Count, 1).End(xlUp).Row
Mes = ""
For i = 1 To DL
If Range("B" & i).Value > 30 Then Mes = Mes & Cells(i, 2).Address(RowAbsolute:=False, columnAbsolute:=False) & Chr(10)
Next i
MsgBox "Attention, la valeur dans les cellules suivantes est supérieure à 30" & vbLf & vbLf & Mes
End Sub
Cdlt
Kuartz
Messages postés
850
Date d'inscription
vendredi 13 février 2015
Statut
Membre
Dernière intervention
15 février 2019
59
6 oct. 2015 à 12:07
6 oct. 2015 à 12:07
Merci beaucoup pour vos 2 réponses. Je n'arrive pas à avoir certains mécanismes en VBA. J'ai du travail.... Par exemple, il était évident qu'il fallait intégrer une variable pour récupérer les données des lignes i mais il ne fallait surtout pas que la MsgBox fasse partie de la boucle.
Merci en tout cas.
Cordialement.
Merci en tout cas.
Cordialement.