Bonjour à tous et meilleurs vœux,
Je cale depuis 2 jours sur une chose simple, j'ai consulté plusieurs discussions et je n'ai pas trouvé la solution.
une macro demande dans une box le numéro de ligne à partir duquel on souhaite insérer une ligne, puis la ligne sélectionnée est copiée au dessus puis je souhaite effacer certaines données copiée situées dans certaines cellules (de D à K).
Je suis arrivé à traiter la première partie mais n'arrive pas à effacer les cellules D à K de la ligne numligne.
Ci dessous mon codage.
Je vous remercie par avance pour votre aide.
JMarc
Private Sub OK_Click()
On Error Resume Next
If MsgBox("Voulez-vous réellement ajouter un enregistrement au-dessus le la ligne " & numligne & " ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
Rows(numligne).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("D & numligne:K & numligne").Select
Selection.ClearContents
Range("D & numligne").Select
'Pour cacher le Formulaire
numligne = ""
Unload Me
End If
End Sub
Je cale depuis 2 jours sur une chose simple, j'ai consulté plusieurs discussions et je n'ai pas trouvé la solution.
une macro demande dans une box le numéro de ligne à partir duquel on souhaite insérer une ligne, puis la ligne sélectionnée est copiée au dessus puis je souhaite effacer certaines données copiée situées dans certaines cellules (de D à K).
Je suis arrivé à traiter la première partie mais n'arrive pas à effacer les cellules D à K de la ligne numligne.
Ci dessous mon codage.
Je vous remercie par avance pour votre aide.
JMarc
Private Sub OK_Click()
On Error Resume Next
If MsgBox("Voulez-vous réellement ajouter un enregistrement au-dessus le la ligne " & numligne & " ?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
Rows(numligne).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Range("D & numligne:K & numligne").Select
Selection.ClearContents
Range("D & numligne").Select
'Pour cacher le Formulaire
numligne = ""
Unload Me
End If
End Sub