Excel - macro supprimer ligne
Résolu/Fermé
laduche81
Messages postés
6
Date d'inscription
lundi 13 juin 2011
Statut
Membre
Dernière intervention
14 juin 2011
-
Modifié par laduche81 le 13/06/2011 à 20:18
laduche81 Messages postés 6 Date d'inscription lundi 13 juin 2011 Statut Membre Dernière intervention 14 juin 2011 - 14 juin 2011 à 17:39
laduche81 Messages postés 6 Date d'inscription lundi 13 juin 2011 Statut Membre Dernière intervention 14 juin 2011 - 14 juin 2011 à 17:39
A voir également:
- Excel - macro supprimer ligne
- Aller à la ligne excel - Guide
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Liste déroulante excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
7 réponses
Le Pingou
Messages postés
12046
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
14 juin 2011 à 14:40
14 juin 2011 à 14:40
Bonjour,
La dernière ligne est la 6, voici le code :
Rows("6:6").Delete Shift:=xlUp
La dernière ligne est la 6, voici le code :
Rows("6:6").Delete Shift:=xlUp
laduche81
Messages postés
6
Date d'inscription
lundi 13 juin 2011
Statut
Membre
Dernière intervention
14 juin 2011
14 juin 2011 à 15:49
14 juin 2011 à 15:49
Bonjour,
J'ai essayé votre solution, cela ne me supprime que la cellule, pas la ligne.
Merci tout de même de votre aide !
J'ai essayé votre solution, cela ne me supprime que la cellule, pas la ligne.
Merci tout de même de votre aide !
Le Pingou
Messages postés
12046
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
Modifié par Le Pingou le 14/06/2011 à 15:54
Modifié par Le Pingou le 14/06/2011 à 15:54
Bonjour,
Si vous dites une cellule, votre code est faux.
Est-vous sur d'avoir écrit correctement l'instruction de code, car il supprime la ligne 6.
Salutations.
Le Pingou
Si vous dites une cellule, votre code est faux.
Est-vous sur d'avoir écrit correctement l'instruction de code, car il supprime la ligne 6.
Salutations.
Le Pingou
laduche81
Messages postés
6
Date d'inscription
lundi 13 juin 2011
Statut
Membre
Dernière intervention
14 juin 2011
14 juin 2011 à 16:02
14 juin 2011 à 16:02
Oui j'ai fais copier coller de votre code. C'est vrai que votre code précise Row et non pas Cell, donc je ne comprends pas. Je regarde d'où peut venir l'erreur.
Le Pingou
Messages postés
12046
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
14 juin 2011 à 16:10
14 juin 2011 à 16:10
Bonjour,
Si vous le désirez, vous pouvez aussi mettre une copie de votre code...
Salutations.
Le Pingou
Si vous le désirez, vous pouvez aussi mettre une copie de votre code...
Salutations.
Le Pingou
laduche81
Messages postés
6
Date d'inscription
lundi 13 juin 2011
Statut
Membre
Dernière intervention
14 juin 2011
14 juin 2011 à 16:09
14 juin 2011 à 16:09
Oui ca me met un message d'erreur, je débogue et le code se modifie en :
Private Sub CommandButton2_Click()
ActiveCell.Delete.EntireRow
End Sub
Private Sub CommandButton2_Click()
ActiveCell.Delete.EntireRow
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
laduche81
Messages postés
6
Date d'inscription
lundi 13 juin 2011
Statut
Membre
Dernière intervention
14 juin 2011
14 juin 2011 à 16:14
14 juin 2011 à 16:14
Je l'ai fait en premier message, je vous le remets :
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de constantes
ActiveCell(2).Resize(1).EntireRow. _
SpecialCells(xlConstants).ClearContents
End Sub
Private Sub CommandButton2_Click()
Rows("6:6").Delete Shift:=xlUp
End Sub
Merci de votre aide
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveCell(2).Resize(1).EntireRow.Insert
ActiveCell(1).EntireRow.Copy ActiveCell(2).Resize(1).EntireRow
On Error Resume Next 'au cas où il n'y ait pas de constantes
ActiveCell(2).Resize(1).EntireRow. _
SpecialCells(xlConstants).ClearContents
End Sub
Private Sub CommandButton2_Click()
Rows("6:6").Delete Shift:=xlUp
End Sub
Merci de votre aide
Le Pingou
Messages postés
12046
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
14 juin 2011 à 17:26
14 juin 2011 à 17:26
Bonjour,
Oui enfin presque, il n'y avait pas la procédure suivante, mais uniquement celle pour insérer une ligne.
Cette procédure est correcte et vous supprime la ligne 6.
Private Sub CommandButton2_Click()
Rows("6:6").Delete Shift:=xlUp
End Sub
Voici une procédure qui supprime la dernière ligne sur la base de valeur au minimum dans la colonne [A] :
Oui enfin presque, il n'y avait pas la procédure suivante, mais uniquement celle pour insérer une ligne.
Cette procédure est correcte et vous supprime la ligne 6.
Private Sub CommandButton2_Click()
Rows("6:6").Delete Shift:=xlUp
End Sub
Voici une procédure qui supprime la dernière ligne sur la base de valeur au minimum dans la colonne [A] :
Sub supprimerderligne() Dim deli As Long ' trouver la dernière ligne deli = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row Rows(deli).Delete Shift:=xlUp End Sub
laduche81
Messages postés
6
Date d'inscription
lundi 13 juin 2011
Statut
Membre
Dernière intervention
14 juin 2011
14 juin 2011 à 17:39
14 juin 2011 à 17:39
Merci infiniment Le pingou,
Mon problème est résolu grâce à vous.
Je vous souhaite une bonne journée !
Adrien
Mon problème est résolu grâce à vous.
Je vous souhaite une bonne journée !
Adrien
