Bonjour,

J'ai me suis inspirer de la F.A.Q. pour le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
Sub dernier_800()
 
 
Dim i As Integer, y As Integer
 
 
Sheets("BARRE_LISTING_PIECES").Activate
 
For i = 40 To 4 Step -1
 
        If Cells(i, 6).Value = "0000" Then
 
           For y = 39 To 4 Step -1
 
                If Cells(y, 6).Value >= "8000" Then
 
                MsgBox ("Dernier profil >= à 8000 mm -> PARFAIT")
 
                Else
                MsgBox ("Le dernier profil doit être plus grand ou égal à 8000 mm-> RECOMMENCEZ")
                Exit Sub
 
                End If
            Next y
      End If
Next i
 
End Sub
Je souhaite:

vérifier mes valeur de F4 à F39 en partant de la fin.
Si valeur = 0000 , passer à la ligne précédente.
Si valeur >= 8000 , msg box + End sub
Sinon (valeur < 8000) msg box + exit sub

J'ai dû faire une erreur de syntaxe parce que cela ne fonctionne pas J'ai toujours la msgbox "Le dernier profil doit être plus grand ou égal à 8000 mm-> RECOMMENCEZ"

Quelqu'un pourrai m'aider à corriger ce code. SVP

Merci d'avance