Pb code bouton supprimer vba exel

[cabridous]

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 .

 

[Papou-net]

Re : Pb code bouton supprimer vba exel

Bonsoir cabridous, et bienvenue,

En l'absence de ton fichier, le problème n'est pas clairement perceptible (ni énoncé).
Toutefois, si ce que j'ai compris est exact, ça me parait normal puisque tu utilises une instruction de suppression de ligne :

Sheets("infos").[COLOR="Red"][B]Rows[/B][/COLOR](Listetech.ListIndex + 2).[COLOR="Red"][B]Delete[/B][/COLOR]

A vérifier sur ton fichier ?

Cordialement.

 

[cabridous]

Re : Pb code bouton supprimer vba exel

Voila mon fichier
Ce lien n'existe plus



Y a une colonne technicien et une colonne machine dans exel
Et quand j'utilise le bouton supprimé adéquate je veu qui supprime que le non du technicien et pas la machine qui ce trouve dans la colonne juste à coté tu comprendra mieu avec mon fichier teste

Merci d'avoir répondu

 

[Papou-net]

Re : Pb code bouton supprimer vba exel

Re-bonsoir,

OK, je pense avoir compris.
Modifies ton code comme celà :

Private Sub Suprtech_Click()

Sheets("infos").Cells(Listetech.ListIndex + 2, 1).ClearContents
End Sub

Bonne soirée.

 

[cabridous]

Re : Pb code bouton supprimer vba exel

oui merci c'est ça que je recherche un dernier truc y a pas possibilité que quand ça supprime le non ça laisse pas une case vite.


Merci beaucoup encore

 

[cabridous]

Re : Pb code bouton supprimer vba exel

J'ai trouvé tous seul je crois

Private Sub Suprtech_Click()

Sheets("infos").Cells(Listetech.ListIndex + 2, 1).Delete
End Sub

Merci d'avance🙂