macro if range

[karadoc17]

Bonsoir je veux créer une feuille de calcul qui me permettrait de gérer un stock avec une colonne entrée , une colonne sortie et une colonne stock. Afin d'attirer l'attention j'ai créer une macro qui me lance une impression si un de mes articles en stock est inférieur à 5.
Mon soucis est que je n'arrive pas à faire ce test sur une plage complète de ma colonne "D" mais cellules par cellules ce qui risque d'être long à écrire. Quelqu'un peut il m'expliquer la marche à suivre
Merci d'avance

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Range("D2").Value < 5 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.Goto Reference:="Macro2"

End If


If Range("D3").Value < 5 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.Goto Reference:="Macro2"

End If

If Range("D4").Value < 5 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.Goto Reference:="Macro2"

End If
End Sub

 

[philppe27]

Re : macro if range

lig1 = Range("D65000").End(xlUp).Row
lig2=2

While lig2 <= lig1
If Range("D" & lig2 & "").Value < 5 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.Goto Reference:="Macro2"
lig2=lig2+1
End If
Wend


Comme cela ça pourrait peut-être fonctionner

 

[JNP]

Re : macro if range

Bonsoir le fil 🙂,
Pitié pour les arbres 😛...

Dim I As Integer, Flag As Boolean
Flag = False
For I = 2 To Range("D65000").End(xlUp).Row - 1
If Range("D" & I).Value < 5 Then Flag = True
Next I
If Flag = False Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Application.Goto Reference:="Macro2"

n'enverra qu'une seule imprimante, même si 10 produits sont inférieur à 5 🙄...
Et encore mieux, le forum regorge de procédure d'envoi de mails. Merci d'avance d'y penser 😉.
Bonne soirée 😎

 

[karadoc17]

Re : macro if range

Merci de vous réponses philippe 27 et JNP grâce à vous mon problème est résolu
Bonne journée

 

[karadoc17]

Re : macro if range

Merci Philppe27 et JNP grâce à vous le problème est résolu.
Bonne journée