Bouton " effacer" qui efface une ligne qu'on séléctionne
Résolu
sossso
-
sossso -
sossso -
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 ?
j'espere que le probleme est compris . Merci
cordialement
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
A voir également:
- Excel bouton effacer contenu cellule
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Aller à la ligne dans une cellule excel - Guide
12 réponses
Bonjour,
Tu as deux choix :
- soit tu as sélectionné au préalable toute la ligne (en cliquant dans la "marge" de celle-ci) :
- soit tu as sélectionné une cellule de cette ligne :
Cordialement,
Franck
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 .
Merci.
Cordialement .
Svp est ce que quelqu'un peut me répondre à la question de " remonter une ligne à une ligne vide "
Merci .
Cordialement .
Merci .
Cordialement .
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 :
est -il necessaire de joindre mon fichier ?
Merci.
Cordialement .
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
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 !
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 !
Pour transmettre un fichier, il faut passer par un site de pièce jointe tel que cjoint.com
Va sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Va sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
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 ?
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.
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.
Autrement dit, tu veux supprimer, mais pas toute la ligne. Tu ne veux supprimer que les cellules de B à G de la ligne que tu as sélectionnée...
Soit :
le numéro de la ligne sélectionnée :
Soit :
le numéro de la ligne sélectionnée :
Selection.RowDonc ta plage à supprimer est :
Range("B" & Selection.Row & ":G" & Selection.Row)
Soit avec le code donné au début :
Range("B" & Selection.Row & ":G" & Selection.Row).Delete Shift:=xlUp
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 .
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 .
Le fait d'effacer une ligne ne change rien aux codes car si tu supprimes ligne 2 alors ligne 3 deviendra ligne 2 et ton code marchera toujours.
Le principal en informatique est d'essayer toutes les possibilités, d'observer en pas en pas ce que fait la macro pour trouver le problème. Programme en pas à pas : Commande F8.
Le principal en informatique est d'essayer toutes les possibilités, d'observer en pas en pas ce que fait la macro pour trouver le problème. Programme en pas à pas : Commande F8.
