Vba exel bouton supprimer
cabridous
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un problème dans le codage de mon bouton supprimer dans VBA exel.
Si je clique dessus il me supprime pas que l'information sélectionné dans la combobox il me supprime toute les informations de ma ligne exel aligné avec mon information que je veus supprimer.
Le code est :
Private Sub Suprtech_Click()
Sheets("infos").Rows(Listetech.ListIndex + 2).Delete
End Sub
Si vous aviez une petite astuce pour arranger ça.
Merci d'avance .
J'ai un problème dans le codage de mon bouton supprimer dans VBA exel.
Si je clique dessus il me supprime pas que l'information sélectionné dans la combobox il me supprime toute les informations de ma ligne exel aligné avec mon information que je veus supprimer.
Le code est :
Private Sub Suprtech_Click()
Sheets("infos").Rows(Listetech.ListIndex + 2).Delete
End Sub
Si vous aviez une petite astuce pour arranger ça.
Merci d'avance .
A voir également:
- Vba exel bouton supprimer
- Supprimer rond bleu whatsapp - Guide
- Supprimer page word - Guide
- Supprimer pub youtube - Accueil - Streaming
- Fichier impossible à supprimer - Guide
- Supprimer compte instagram - Guide
3 réponses
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