mikael2403
XLDnaute Junior
Bonjour le forum,
Je rencontre une difficulté sur une macro et je sollicite votre aide à ce sujet.
J'ai la macro suivante :
Public flag As Boolean
Sub PRC_Mail()
flag = True
Dim i As Integer
For i = Range("A40").End(xlUp).Row To 15 Step -1
If Not Application.Intersect(Range("I16:I23")) Is Nothing Then
Range("I14:I24").Select
Selection.Font.ColorIndex = 34
Selection.Interior.ColorIndex = 34
End IfIf IsEmpty(Cells(i, 1).Value) And i <> 15 And i <> 25 And i <> 29 And i <> 32 And i <> 38 Then Rows(i).Delete
Next i
Application.ActivePrinter = "Amyuni PDF Converter sur LPT1:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="Amyuni PDF Converter sur LPT1:", Collate:=True
flag = False
End Sub
La partie en jaune ne fonctionne pas.
Je souhaite que les cellules I14:I24 changent de couleur si les cellules I16:I23 sont vides. (Ce qui correspond à ma macro ci-dessus).
Je souhaite ajouter un autre argument identique qui est de changer la couleur d'autres cellules mais avec une couleur différentes. (Si les cellules J34:J37 sont vides alors les cellules J33:J37 sont de couleurs orange et avec un police orange).
Merci d'avance pour votre aide.
Je rencontre une difficulté sur une macro et je sollicite votre aide à ce sujet.
J'ai la macro suivante :
Public flag As Boolean
Sub PRC_Mail()
flag = True
Dim i As Integer
For i = Range("A40").End(xlUp).Row To 15 Step -1
If Not Application.Intersect(Range("I16:I23")) Is Nothing Then
Range("I14:I24").Select
Selection.Font.ColorIndex = 34
Selection.Interior.ColorIndex = 34
End IfIf IsEmpty(Cells(i, 1).Value) And i <> 15 And i <> 25 And i <> 29 And i <> 32 And i <> 38 Then Rows(i).Delete
Next i
Application.ActivePrinter = "Amyuni PDF Converter sur LPT1:"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, _
ActivePrinter:="Amyuni PDF Converter sur LPT1:", Collate:=True
flag = False
End Sub
La partie en jaune ne fonctionne pas.
Je souhaite que les cellules I14:I24 changent de couleur si les cellules I16:I23 sont vides. (Ce qui correspond à ma macro ci-dessus).
Je souhaite ajouter un autre argument identique qui est de changer la couleur d'autres cellules mais avec une couleur différentes. (Si les cellules J34:J37 sont vides alors les cellules J33:J37 sont de couleurs orange et avec un police orange).
Merci d'avance pour votre aide.