Bouton " effacer" qui efface une ligne qu'on séléctionne Résolu/Fermé

Question

Bonsoir ,

je suis encore débutant en vba excel , et je veux créer un bouton effacer , de t

elle façon que lorsque je clik sur le bouton  , il efface une ligne que j'ai séléctionné , j'ai déja commencer le code mais je bloque dans la partie ou je dois effacer une ligne séléctionné, existe-il une fonction qui efface une ligne séléctionné ou un truc comme ça ?

Sub effacer()
Dim rep As Integer
rep = MsgBox("Voulez-vous vraiment effacer les résultats?", vbYesNo, "Confirmation")
If rep = vbYes Then
"ligne séléctionnée" .Clear

End If
End Sub

j'espere que le probleme est compris . Merci

cordialement

pijaku · Answer

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

Normad · Answer

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

sossso · Answer

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 .

sossso · Answer

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

sossso · Answer

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 .

borntobealive · Answer

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

sossso · Answer

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 !

sossso · Answer

Merci . voila mon fichier ci-joint .

https://www.cjoint.com/?DHClAOFv5Tz 

Merci.

borntobealive · Answer

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 ?

sossso · Answer

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.

sossso · Answer

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 .

sossso · Answer

ui j'essaye ce vous me donnez . Bon je vais travailler avec "supprimer" (Delete) ;

Merci pour vos réponses .

Cordialement .

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

12 réponses

Discussions similaires