supprimer cellule

[Mitch]

Re-Bonsoir une petite aide SVP je voudrais supprimer les cellules de A à G mon code me supprime la ligne entiere
Merci

Private Sub Supprimer_Click()
Dim Msg As String, Style, Title As String, MyValue As Variant
'Vérification avant suppression
Msg = " Voulez-vous vraiment supprimer cette ligne ?" & Chr(10) _
& " " & Chr(10)
Style = vbOKCancel + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = "VERIFICATION AVANT SUPPRESSION !" ' Définit le titre.
MyValue = MsgBox(Msg, Style, Title)
If MyValue = 2 Then Exit Sub

' Suppression de la ligne
ActiveCell.EntireRow.Delete
Unload Me
End Sub

 

[Mitch]

Re : supprimer cellule

J'abandonne

 

[Mitch]

Re : supprimer cellule

marche pas j'abandonne

 

[Dranreb]

Re : supprimer cellule

Moi aussi.
devant tant de mauvaise volonté j'abandonne...

 

[Mitch]

Re : supprimer cellule

ce n'est pas de la mauvaise volonté mais je débute tout juste , j'essaie d'apprendre tous seul car j'ai personne a côté pour m'expliquer est la ca fait 2 jours que je cherche sur le forum et sur google des cas similaire pour voir ou est l'erreur , je doit passer a côté tant pis pour moi

 

[Dranreb]

Re : supprimer cellule

Disons que vous ne désirez aucune réelle assistance, puisque vous n'étudiez pas mes explications (#12 et #15). Alors assumez vous.