XL 2021 Suppression d'une ligne dans autre feuille selon la valeur saisie dans le formulaire

[tony40]

Bonjour,
je débute dans excel et j'aimerais créer un bouton suppression dans mon formulaire depuis une feuille "formulaire" et selon le code client saisie dans le formulaire, supprimer la ligne dans ma feuille "clients" qui correspond

Merci

 

[Dranreb]

Bonjour.
Ne pourriez vous adapter le tableau et l'UserForm de ce classeur ?

 

[tony40]

Bonjour, oui il est top merci, mais j'aurais voulu par curiosité savoir ce qu'il manque à ma formule vba pour le bouton suppression.

 

[Dranreb]

Il ne manque rien apparemment: j'ai pu supprimer une 4ième ligne où j'avais tapé "CL0004" en A5
Mais bon, il vaut mieux profiter des possibilités de recherche dans leurs List des ComboBox et supprimer le ListRow correspondant.

 

[tony40]

Il ne manque rien apparemment: j'ai pu supprimer une 4ième ligne où j'avais tapé "CL0004" en A5
Mais bon, il vaut mieux profiter des possibilités de recherche dans leurs List des ComboBox et supprimer le ListRow correspondant.

quand tu lance le formulaire à partir de la feuille"clients" ça fonctionne, mais j'ai créé un bouton dans la feuille "devis" mais ça ne fonctionne pas
merci

 

[Dranreb]

Avec mon classeur on spécifie la feuille à la méthode Plage de l'objet ComboBoxLiées ce qui le conduit à considérer le 1er ListObject de cette feuille.
Dans votre classeur :

Private Sub CommandButton4_Click()
Rows([A2:A3000].Find(ComboBox1.Value).Row).EntireRow.Delete
End Sub

Précisez Ws ou Feuil3 devant pour qu'il n'aille plus chercher dans la feuille active.
Mais, vraiment, adoptez mes objets ComboBoxLiées et ControlsAssociés, ça aboutit, dans l'UserForm, à une programmation bien plus concise, homogène et facile à maintenir, puisque la complexité est largement délocalisée dans des modules de service qui n'ont pas à faire l'objet de maintenances, vu que tout est paramétrable depuis l'UserForm.
Bien sûr je répondrai à toutes questions relatives à la façon de les piloter.

 

[tony40]

Avec mon classeur on spécifie la feuille à la méthode Plage de l'objet ComboBoxLiées ce qui le conduit à considérer le 1er ListObject de cette feuille.
Dans votre classeur 😛récisez Ws ou Feuil3 devant pour qu'il n'aille plus chercher dans la feuille active.
Mais, vraiment, adoptez mes objets ComboBoxLiées et ControlsAssociés, ça aboutit, dans l'UserForm, à une programmation bien plus concise, homogène et facile à maintenir, puisque la complexité est largement délocalisée dans des modules de service qui n'ont pas à faire l'objet de maintenances, vu que tout est paramétrable depuis l'UserForm.
Bien sûr je répondrai à toutes questions relatives à la façon de les piloter.

merci pour votre réactivité, vous avez possibilité de modifier mon fichier car je n'y arrive pas 😭

 

[Dranreb]

Quelle difficulté rencontrez vous ?
Vous avez quand même bien compris ce que vous vouliez savoir, pourquoi ça ne supprimait plus quand la feuille active n'était pas celle avec le tableau ?

 

[tony40]

Quelle difficulté rencontrez vous ?
Vous avez quand même bien compris ce que vous vouliez savoir, pourquoi ça ne supprimait plus quand la feuille active n'était pas celle avec le tableau ?

je ne sais pas ou mettre ws ou feuil3 devant quoi?
j'ai toujours une erreur lorsque que je clic sur le bouton de la feuil1

 

[Dranreb]

Devant Rows([A2:A3000].Find(ComboBox1.Value).Row).EntireRow.Delete
Parce que là il assume ActiveSheet.Rows(etc.

Feuil3.Rows(Feuil3.[A2:A3000].Find(ComboBox1.Value).Row).EntireRow.Delete

Comme vous avez fait pour les autres boutons qui marchent toujours encore !

 

[tony40]

Devant Rows([A2:A3000].Find(ComboBox1.Value).Row).EntireRow.Delete
Parce que là il assume ActiveSheet.Rows(etc.

Feuil3.Rows(Feuil3.[A2:A3000].Find(ComboBox1.Value).Row).EntireRow.Delete

Comme vous avez fait pour les autres boutons qui marchent toujours encore !

Merci beaucoup, ah oui je comprend mieux, ça fonctionne, désolé pour le dérangement et merci encore pour votre réactivité.
cdt