Problème boucle While VBA

Question

Sub Macro()

Sheets("Relance Mail").Activate

Dim i As Integer
i = 1
Dim j As Integer
j = 1

While i < 1000

While j < 100

If Cells(i, 6) = j Then

Sheets("Relance Mail").Activate

Dim olApp As Outlook.Application
Set olApp = CreateObject("outlook.application")

        Dim olMail As Outlook.MailItem
        Set olMail = olApp.CreateItem(olMailItem)

    With olMail

.To = Range("C4").Value

.Subject = "Un contrat arrive bientôt à expiration"

.Body = "Bonjour " & Range("C5").Value & "," & vbCrLf & "Le contrat avec le client numéro " & Cells(i, 14).Value & " - Etablissement" & Cells(i, 15).Value & " - Ville de " & Cells(i, 16) & "Arrive à expiration le" & Format(Cells(i, 8), "dd-mm-yyyy")

   .Send

    End With

j = j + 1
Else
i = i + 1

End If
Wend
Wend
End Sub

Bonjour,

J'ai un problème dans mon fichier.

J'aimerai que ma variable i ne dépasse pas les 1000. Le code fonctionne mais i s'arrête à 32676 au lieu de s'arrêter à 1000. Auriez-vous une solution pour m'aider svp ?

galopin01 · Answer

Difficile de vous répondre sans le fichier... Vous avez un problème de cohérence dans votre code : tant que Cells(i, 6) est différent de j, c'est le Else qui s'applique et i = i + 1 Et le while i n'est sans doute jamais évalué... vous restez dans le while j Corrigez cette erreur et ça marchera. A+...