Bouton " effacer" qui efface une ligne qu'on séléctionne

Bonjour,

Tu as deux choix :
- soit tu as sélectionné au préalable toute la ligne (en cliquant dans la "marge" de celle-ci) :

Selection.Delete Shift:=xlUp 

- soit tu as sélectionné une cellule de cette ligne :

ActiveCell.EntireRow.Delete Shift:=xlUp

Cordialement,
Franck

Bonjour, la réponse de pikyju supprime la ligne, si c'est pour effacer les données sans remonter les lignes d'en dessous :

'Suppression de la ligne ou cellule sélectionnée
L = ActiveCell.Row
Rows(L).ClearContents

Merci Normad et philip , dont j'ai besoin c'est d'effacer comme l'a dit monsieur normand . mais svp si je veux effacer tout un ensemble de ligne ( y compris une ligne biensur) et remonter les lignes en dessous .

Merci.

Cordialement .

Svp est ce que quelqu'un peut me répondre à la question de " remonter une ligne à une ligne vide "

Merci .

Cordialement .

en fait , dans une feuille " interface " excel j'ai mis un bouton "enregistrer" qui me pointe des valeurs de cette feuille "interface" dans une autre feuille "opérations" que j'ai fais pour qu'il soit une sorte de bases de données que j"enregistre . Alors dans cette feuille "opérations" j'ai mis un bouton "effacer" qui m'efface une ligne que je séléctionne , mais je veux qu'il remonte les lignes au dessous , le probleme c'est que dans le code du bouton "enregistrer " les colonnes sont précises , donc jeveux pas utiliser "supprimer" . Bon voila le code du bouton enregistrer :

Sub enregistrer()

Dim repp As Integer, rep As Integer, Dl As Long

If Range("K4").Value = "" Or Range("K4").Value = 0 Then
   
   repp = MsgBox(" Veuillez d'abord executer l'opération !", vbInformation, "Alerte")
   Else
   Sheets("Opérations").Select
   Dl = Application.WorksheetFunction.CountA(ActiveSheet.Range("B5:B100000"))
   Sheets("Interface").Select
        rep = MsgBox("Voulez-vous vraiment enregistrer cette opération ?", vbYesNo, "Enregistrement")
   If rep = vbYes Then
   Sheets("Opérations").Range("B" & CStr(Dl + 5)).Value = Sheets("Interface").Range("E2").Value
   If Dl = 1 Then
   Sheets("Opérations").Range("C" & CStr(Dl + 5)).Value = 1
   Else
   Sheets("Opérations").Range("C" & CStr(Dl + 5)).Value = Sheets("Opérations").Range("C" & CStr(Dl + 4)).Value + 1
   End If
   Sheets("Opérations").Range("D" & CStr(Dl + 5)).Value = Sheets("Interface").Range("E4").Value
   Sheets("Opérations").Range("E" & CStr(Dl + 5)).Value = Sheets("Interface").Range("E5").Value
   Sheets("Opérations").Range("F" & CStr(Dl + 5)).Value = Sheets("Interface").Range("H4").Value
   Sheets("Opérations").Range("G" & CStr(Dl + 5)).Value = Sheets("Interface").Range("K4").Value
   End If

End If

End Sub

est -il necessaire de joindre mon fichier ?

Merci.

Cordialement .

Tu dis que tu ne veux pas utilisé le bouton supprimer pour ne rien faire sur les colonnes intermédiaire mais tu veux quand même que les cases remonte ? (il n'y aura plus de cohérence)

Je pense qu'il va falloir joindre ton fichier

Bonjour,

En fait je veux remonter le contenu de la ligne , et pas la ligne .

Bon ci-joint mon fichier .

Dsl je suis nouveau dans le forum , pouvez vous me dire comment joindre un fichier , j'ai pas pu le faire !

Merci . voila mon fichier ci-joint .

https://www.cjoint.com/?DHClAOFv5Tz

Merci.

Ok alors on parle bien du bouton effacer dans interface ?
l'objectif est de supprimer/effacer/remonter quoi ? (pour mois c'est la ligne 10)
prix de vent(DH) doit'il être effacer aussi ?

Non , je parle du bouton "Effacer" dans la feuille " Opérations" ( dans le feuille interface j'ai pas de probleme) , je vous explique :

dans une feuille " interface " excel j'ai mis un bouton "enregistrer" qui me pointe des valeurs de cette feuille "interface" dans une autre feuille "opérations" que j'ai fais pour qu'il soit une sorte de bases de données que j"enregistre . Alors dans cette feuille "Opérations" j'ai mis un bouton "Effacer" qui m'efface une ligne que je séléctionne , mais je veux qu'il remonte les lignes au dessous , le probleme c'est que dans le code du bouton "enregistrer " les colonnes sont précises , donc jeveux pas utiliser "supprimer" .

Merci.

Est ce que cette solution " supprimer ", est la seule qui existe ?

est ce que on supprimant la ligne , cela ne va pas changer le fonctionnement du code de la macro "enregistrer" qui est en Module 4 ?

Merci .

ui j'essaye ce vous me donnez . Bon je vais travailler avec "supprimer" (Delete) ;

Merci pour vos réponses .

Cordialement .