mikael2403
XLDnaute Junior
Bonjour,
Après plusieurs jours de recherche qui ne m'ont menés à rien, je me permets de lancer un appel d'aide.
J'ai créé 2 macros dans un fichier, et à l'exécution de l'une d'entre elle, j'ai un message d'erreur.
Je m'explique :
J'ai 1 macro qui vérifie le contenu de certaines cellules et,
J'ai une autre macro qui exécute une suppression de lignes blanches.
Lorsque j'exécute cette dernière macro j'ai un message d'erreur.
J'ai detecté le problème : Certaines cellules qui sont vérifiés par la 1ere macro peuvent être ensuite supprimés par la 2e macro dans la cadre de la suppression des lignes blanches. (Info via la debogage).
Comment je peux faire pour que les 2 fonctionnent et sans Bug ?
Voici les macros en question :
Controle de cellule :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I16:I23, J27:J28, J34:J37")) Is Nothing _
And Range("O9") < 0 Then
UserForm2.Show
Application.EnableEvents = False
Target = ""
Target.Select
Application.EnableEvents = True
End If
End Sub
Suppression des lignes blanches
ub PRC_Mail()
Dim i As Integer
For i = Range("A40").End(xlUp).Row To 15 Step -1
If 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
End Sub
Je vous remercie d'avance pour votre aide.
Mikael
Après plusieurs jours de recherche qui ne m'ont menés à rien, je me permets de lancer un appel d'aide.
J'ai créé 2 macros dans un fichier, et à l'exécution de l'une d'entre elle, j'ai un message d'erreur.
Je m'explique :
J'ai 1 macro qui vérifie le contenu de certaines cellules et,
J'ai une autre macro qui exécute une suppression de lignes blanches.
Lorsque j'exécute cette dernière macro j'ai un message d'erreur.
J'ai detecté le problème : Certaines cellules qui sont vérifiés par la 1ere macro peuvent être ensuite supprimés par la 2e macro dans la cadre de la suppression des lignes blanches. (Info via la debogage).
Comment je peux faire pour que les 2 fonctionnent et sans Bug ?
Voici les macros en question :
Controle de cellule :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I16:I23, J27:J28, J34:J37")) Is Nothing _
And Range("O9") < 0 Then
UserForm2.Show
Application.EnableEvents = False
Target = ""
Target.Select
Application.EnableEvents = True
End If
End Sub
Suppression des lignes blanches
ub PRC_Mail()
Dim i As Integer
For i = Range("A40").End(xlUp).Row To 15 Step -1
If 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
End Sub
Je vous remercie d'avance pour votre aide.
Mikael