Comment faire pour répeter un script plusieurs fois

Bonjour
Sub Envoi_Mail_ALERTE()
Dim Colonne As Long, i as Long
For Colonne = 1 To 201
If Cells(5, Colonne) < 1.33 And Cells(5, Colonne) > 0 Then
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("b2")
Subj = Range("c2")
For i = 5 to 6
Msg = Msg & Range("a" & i)
Next i
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
Next Colonne
End Sub

Cordialement
Pascal

<omar_2891@hotmail.com> a écrit dans le message de news:
1143551536.082508.207670@t31g2000cwb.googlegroups.com...
Bonjour,

Je suis débutant, je viens de terminer un script pour lancer une
analyse et envoyer un mail si cette analyse détecte une anomalie.
Voici mon script :

Sub Envoi_Mail_ALERTE()
Dim Colonne As Long

For Colonne = 1 To 201
If Cells(5, Colonne) < 1.33 And Cells(5, Colonne) > 0 Then
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("b2")
Subj = Range("c2")
Msg = Msg & Range("a5")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body="
& Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
Next
End Sub

En fait, mon pb est de répeter cette action de la ligne 5 jusqu'à la
ligne 136, et aussi de changer le Msg du mail :
pour la ligne 5 : Msg = Msg & Range("a5")
pour la ligne 6 : Msg = Msg & Range("a6")
et ainsi de suite....

En vous remerciant d'avance.

Cordialement.

Omar.

Bonjour.
Essaie :

Sub Envoi_Mail_ALERTE()
Dim Colonne As Long
Dim Ligne As Long
For Ligne = 5 To 136
For Colonne = 1 To 201
If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) > 0
Then
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("b2")
Subj = Range("c2")
Msg = Msg & Range("a" & Ligne)
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" &
Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
Next Colonne
Next Ligne
End Sub

Cordialement.
Daniel
<omar_2891@hotmail.com> a écrit dans le message de news:
1143551536.082508.207670@t31g2000cwb.googlegroups.com...
Bonjour,

Je suis débutant, je viens de terminer un script pour lancer une
analyse et envoyer un mail si cette analyse détecte une anomalie.
Voici mon script :

Sub Envoi_Mail_ALERTE()
Dim Colonne As Long

For Colonne = 1 To 201
If Cells(5, Colonne) < 1.33 And Cells(5, Colonne) > 0 Then
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("b2")
Subj = Range("c2")
Msg = Msg & Range("a5")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body="
& Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
Next
End Sub

En fait, mon pb est de répeter cette action de la ligne 5 jusqu'à la
ligne 136, et aussi de changer le Msg du mail :
pour la ligne 5 : Msg = Msg & Range("a5")
pour la ligne 6 : Msg = Msg & Range("a6")
et ainsi de suite....

En vous remerciant d'avance.

Cordialement.

Omar.

Merci beaucoup Papou mais visiblement maintenantque j'ai ajouté ceci
Excel me dit "Erreur d'éxecution '5' "
Et il m'indique une erreur à la ligne suivante :
ActiveWorkbook.FollowHyperlink Address:=URLto
Je ne comprend pas pkoi?

Super, ca a l'air de bien marcher sauf que maintenant mon pb c qui
m'envoie trop de mail !!!!!!!!!!!!!!!!!!!!!!!! avec tous le meme
Message !!!
j'pense que l'on est sur la bonne voie mais saurais tu d'ou vient ce pb?

La macro examine chaque cellule entre les lignes 5 et 136 et les colonnes 1
à 201. Ca fait peut-être beaucoup ?
Daniel
<omar_2891@hotmail.com> a écrit dans le message de news:
1143554620.450732.304810@j33g2000cwa.googlegroups.com...

Super, ca a l'air de bien marcher sauf que maintenant mon pb c qui
m'envoie trop de mail !!!!!!!!!!!!!!!!!!!!!!!! avec tous le meme
Message !!!
j'pense que l'on est sur la bonne voie mais saurais tu d'ou vient ce pb?

Oui, effectivement. Et en fait l'idéal pour moi ce serait qu'un seul
mail englobant tout soit envoyé. J'ai réfléchi un peu et j'me suis
demandé si il était possible de créer une fonction permettant de
compléter la fin de la mauvaise ligne (0<valeur<1.33) d'une mention
ANOMALIE et à partir de là Executer la commande d'envoie du mail en
prenant à chaque fois la première case de la ou les mauvaise(s)
ligne(s)?

J'ai modifié ta macro pour n'envoyer qu'un message comportant les cellules
en erreur :

Sub Envoi_Mail_ALERTE()
Dim Colonne As Long
Dim Ligne As Long
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
For Ligne = 5 To 136
For Colonne = 1 To 201
If Cells(Ligne, Colonne) < 1.33 And Cells(Ligne, Colonne) > 0
Then
MailAd = Range("b2")
Subj = Range("c2")
Msg = Msg & Range("a" & Ligne) & vbCrLf
MsgBox Msg
End If
Next Colonne
Next Ligne
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

A tester, toutefois.
Daniel
<omar_2891@hotmail.com> a écrit dans le message de news:
1143556294.032696.166150@i40g2000cwc.googlegroups.com...
Oui, effectivement. Et en fait l'idéal pour moi ce serait qu'un seul
mail englobant tout soit envoyé. J'ai réfléchi un peu et j'me suis
demandé si il était possible de créer une fonction permettant de
compléter la fin de la mauvaise ligne (0<valeur<1.33) d'une mention
ANOMALIE et à partir de là Executer la commande d'envoie du mail en
prenant à chaque fois la première case de la ou les mauvaise(s)
ligne(s)?

J'ai tester et c'est parfait, j'te remercie beaucoup!!!! c t très
sympa de ta part de me consacrer de ton temps!!

Encore Merci et la prochaine peut etre

PS: si j cherche de l'aide j serai qui aller voir!!!!! LOL

Omar