XL 2010 Ajouter les valeur de plusieur cellule dans une msgbox

jigour · 15 Octobre 2023

Bojour,
Pour être alerter de certain contrôle d'appareil j'ai une alerte en cliquant sur un bouton, mais j'aimerais que en plus de la réf. , la msgbox m'indique aussi le type de contrôle ainsi que la ville ou il doit avoir lieu.soit la colonne 3 et 4 (pour le tableau de la pièce jointe,l'original comporte 11 colonnes)
je met en pièce jointe un exemple.
Merci de me venir en aide

sousou · 15 Octobre 2023

bonjour
modifie ainsi si j'ai compris
For Each alertev In Feuil1.Range("alertev")
If alertev = 0 Then
texte = texte & alertev.Offset(0, -4) & " " & alertev.Offset(0, -2) & " " & alertev.Offset(0, -1) & vbCrLf
ElseIf alertev = 1 Then
texte2 = texte2 & alertev.Offset(0, -4) & " " & alertev.Offset(0, -2) & " " & alertev.Offset(0, -1) & vbCrLf
End If
Next alertev

sousou · 15 Octobre 2023

bonjour
modifie ainsi si j'ai compris
For Each alertev In Feuil1.Range("alertev")
If alertev = 0 Then
texte = texte & alertev.Offset(0, -4) & " " & alertev.Offset(0, -2) & " " & alertev.Offset(0, -1) & vbCrLf
ElseIf alertev = 1 Then
texte2 = texte2 & alertev.Offset(0, -4) & " " & alertev.Offset(0, -2) & " " & alertev.Offset(0, -1) & vbCrLf
End If
Next alertev

jigour · 18 Octobre 2023

Bonjour et merci,
j'ai adopté la solution de sousou qui convient tout a fait.
Merci encore.

XL 2010 Ajouter les valeur de plusieur cellule dans une msgbox

jigour

XLDnaute Nouveau

Pièces jointes

sousou

sousou

XLDnaute Barbatruc

jigour

XLDnaute Nouveau

Discussions similaires