Nicolaroute
XLDnaute Nouveau
Bonjour à tous et toutes,
Aujourd'hui, voici mon problème: je n'arrive pas à trouver le code VBA pour empêcher mon bouton " Effacer" en cas d'erreur de saisie,
justement d'effacer l'entête de mon tableau D15: J15. Mon Tableau avec les entêtes comprises de "D15 à J33"
Voici mon code :
Dim DernLigne As Long
DernLigne = Range("D33:J33").End(xlUp).Row
'If activecells is in Range("D15" & DernLigne & ":J15" & DernLigne).Select Then Exit Sub ' la c'est pas bon!!!
If MsgBox("Confirmez-vous l'effacement de ce nouveau Tissu ?", vbYesNo, " Ligne Effacée") = vbYes Then
Range("D" & DernLigne & ":J" & DernLigne).Select
Selection.ClearContents
Selection.Borders.Value = 0
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
MsgBox "La Ligne a été effacée !"
End If
Range("D" & DernLigne).Select
Je vous remercie de votre aide.
Aujourd'hui, voici mon problème: je n'arrive pas à trouver le code VBA pour empêcher mon bouton " Effacer" en cas d'erreur de saisie,
justement d'effacer l'entête de mon tableau D15: J15. Mon Tableau avec les entêtes comprises de "D15 à J33"
Voici mon code :
Dim DernLigne As Long
DernLigne = Range("D33:J33").End(xlUp).Row
'If activecells is in Range("D15" & DernLigne & ":J15" & DernLigne).Select Then Exit Sub ' la c'est pas bon!!!
If MsgBox("Confirmez-vous l'effacement de ce nouveau Tissu ?", vbYesNo, " Ligne Effacée") = vbYes Then
Range("D" & DernLigne & ":J" & DernLigne).Select
Selection.ClearContents
Selection.Borders.Value = 0
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
MsgBox "La Ligne a été effacée !"
End If
Range("D" & DernLigne).Select
Je vous remercie de votre aide.