Next sans for

Bonjour à tous j'ai fait un codage mais je n'arrive pas a comprendre pourquoi il me dit tjr qu'il manque un "for" alors que je l'ai mit

si vous pouviez me conseillez svp merci d'avance

voici le codage

Private Sub Workbook_Open()

Dim OutApp As Object

Dim OutMail As Object

Dim Body As String

Dim i As Integer

Dim y As Integer

For i = 2 To 53

With Worksheets("MACRO") 'adaptez le nom de feuille

If Application.Weekday(Date) = 6 Then

If Range("B" & i) <> Range("C" & y) Then

Next i

Do Until Range("B" & i) = Range("C" & y)

' Set OutApp = CreateObject("Outlook.Application")

'Set OutMail = OutApp.CreateItem(0)

With OutMail

.To = "XX@aaom;" '& "eee@eeecom;"

'.CC = "ààà@€€€€com"

.BCC = ""

.Subject = "Mail automatique sur le suivi chariot Semaine " & Range("B" & B) 'objet du mail

.Body = "Bonjour à tous." & vbCr & vbCr & vbCr & "Par ce mail vous trouverez les informations importantes concernant le suivi des chariots tels que :" & vbCr & vbCr & "- Le nombre d'interventions pour réparations : " & vbCr & "- Les Dépenses total pour les réparation dû à la casse de l'appro cette semaine " & vbCr & "- Les Dépenses total des réparations dû à la casse pour la logistique cette semaine"

.Display 'visualiser le @Mail

'.Send ' pour l'envoi du @mail

End With

'.Range("S" & B) = "10000" 'modification pour eviter x envoi

On Error GoTo 0

End If

End If

Set OutMail = Nothing

Set OutApp = Nothing

End With

End Sub

Salut,

Je pense que ton problème vient du

Do Until Range("B" & i) = Range("C" & y)

Tu n'as nulle part le loop qui va avec

La doc microsoft ici : https://docs.microsoft.com/fr-fr/dotnet/visual-basic/language-reference/statements/do-loop-statement

Girodo,

salut tout le monde,

et c'est quoi la valeur de la variable y?

Bonjour,

tu reçois ce message parce que ton Next i est détecté par l'interpréteur VBA alors qu'il s'attend à un end if (ici en l'occurrence, il en faut même 2).

De plus, il te manque effectivement un loop

ceci signifie que l'assemblage des blocs de ton code n'est pas correct.

Peux-tu expliquer ce que tu veux comme résultat ?