Vba exel bouton supprimer
Fermé
cabridous
Messages postés
3
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
28 novembre 2009
-
26 nov. 2009 à 23:55
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 27 nov. 2009 à 11:17
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 27 nov. 2009 à 11:17
A voir également:
- Vba exel bouton supprimer
- Supprimer une page word - Guide
- Supprimer compte instagram - Guide
- Impossible de supprimer un fichier - Guide
- Supprimer pub youtube - Accueil - Streaming
- Supprimer edge - Guide
3 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
293
27 nov. 2009 à 09:30
27 nov. 2009 à 09:30
bonjour,
il est normal que la ligne soit supprimée car c'est ce que tu demandes
Private Sub Suprtech_Click()
Sheets("infos").Rows(Listetech.ListIndex + 2).Delete
End Sub
je te propose ce code qui effacera une seule cellule
mais il tu peut aussi utiliser .clearcontents ( pour effacer le contenu ) la cellule reste à sa place
A toi de voir.
Private Sub Suprtech_Click()
Sheets("infos").Rows(Listetech.ListIndex + 2).Delete
End Sub
il est normal que la ligne soit supprimée car c'est ce que tu demandes
Private Sub Suprtech_Click()
Sheets("infos").Rows(Listetech.ListIndex + 2).Delete
End Sub
je te propose ce code qui effacera une seule cellule
mais il tu peut aussi utiliser .clearcontents ( pour effacer le contenu ) la cellule reste à sa place
A toi de voir.
Private Sub Suprtech_Click()
Sheets("infos").Rows(Listetech.ListIndex + 2).Delete
End Sub
cabridous
Messages postés
3
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
28 novembre 2009
27 nov. 2009 à 11:16
27 nov. 2009 à 11:16
Merci beaucoup d'avoir répondu j'ai trouvé ce code aussi qui répond mieux a mes attentes
Private Sub Suprtech_Click()
Sheets("infos").Cells(Listetech.ListIndex + 2, 1).Delete
End Sub
Private Sub Suprtech_Click()
Sheets("infos").Cells(Listetech.ListIndex + 2, 1).Delete
End Sub
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
293
27 nov. 2009 à 11:17
27 nov. 2009 à 11:17
c'est ça!
Bonne journée.
Bonne journée.