Discussion :

[cabridous]

Bonjour

J'ai besoin d'un petit coup de main.
Âpres avoir parcouru des tonnes de forum je n'arrive pas à trouver un code correct pour mon bouton supprimer.

Je voudrai que à partir d'un combobox qui contient des information d'une colonne exel je puisse supprimer avec un bouton adéquate l'information séléctionner dans ce combobox.
Et que cette action supprime aussi l'information dans mon tableau exel si possible sans laisser de trou.



Je remercie d'avance ce qui pourront m'aider ou essayer

Voila mon petit projet que vous pouvez télécharger pour mieux comprendre :

http://s213307955.onlinehome.fr/Elismaintenance.rar

[LeForestier]

Bonjour, Si je comprend entre les lignes.. tu veux supprimer la ligne qui reprend le technicien sélectionner dans le ComboBox ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'Bouton Supprimer
Private Sub CommandButton1_Click()
    Sheets("LeNomDeTaFeuille").Rows(ComboBox1.ListIndex + 2).Delete
End Sub

Ce code est valable pour autant que tu initialise le Combo avec la colonne du tableau et que le combo n'est pas positionner par ordre alphabétique.
A+

[cabridous]

oki merci beaucoup ce code marche bien mais le problème c'est qui me supprime toute la ligne de mon tableau exel, alors que je voudrai qu'il supprime une information que dans la colonne exel ou j'ai les information de ma combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Suprtech_Click()
Sheets("infos! de la colonne A").Rows(Listetech.ListIndex + 2).Delete
End Sub

Biensur jai pas ecrit ce code ^^ c'est juste un exemple

[LeForestier]

Supposonos que tu veux "Effacer" la cellule de la colonne A, faut juste remplacer Rows par Cell...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("LeNomDeTaFeuille").cell((1,ComboBox1.ListIndex + 2).ClearContent

Le 1 c'est pour la colonne A, si tu veux effacer une autre colonne tu n'a que de compter le N° de la colonne.
A+