Mille merci pour cette vidéo.Je c'est que vous avez énormément de travail et je vous suis très reconnaissant de se que vous faite pour nous .Merci de NOUS faire progresser (Michel)
J'espère que cette vidéo vous plaira, si c'est le cas, lâchez un like. N'hésitez pas à vous abonner à la chaîne pour retrouver et être informé de tous les nouveaux tutoriels. Abonnez-vous : th-cam.com/users/unmecenbaskets
Merci pour ce que vous faites dans la bonne humeur.. Et s'il s'agissait de supprimer une ligne d''un tableau qui n'est pas entire.row ? Seulement une partie de la ligne, sur le reste de la ligne j'ai d'autres données à préserver ?
Bonjour, J'ai créé un fichier avec bouton suppression des données. Cela fonctionne nickel. Cependant, dans le fichier, j'ai des menus déroulants (ex : "Sélectionner - Monsieur - Madame - Mademoiselle"). Je ne sais pas comment faire pour qu'apparaisse "Sélectionner" dans le menu déroulant une fois les données supprimées. Si j'ai sélectionné "Monsieur", toutes les données disparaissent, mais dans le menu déroulant, "Monsieur" ne passe pas à "Sélectionner". Une aide me serait utile. Merci par avance ;-)
Salut Guillaume merci pour ton tuto très utile j'ai un blem au niveau Set ws = Sheets("Catalogue") = Sheets("Catalogue") lorsque je lance la super couleur jaune ( Set ws )?? à tu une solution . J'ai fait tous comme toi ,moi pas marcher. Merci Mec
'supprimer l'article Private Sub Supprimer1_Click()
If CbArticle = "" Then MsgBox " Selectionner l'article désirer ! ", vbCritical, "SUPPRIMMER UN ARTICLE" Exit Sub End If If MsgBox("Etes-vous sûr de vouloir supprimer ce produit ? ", vbYesNo + vbCritical, "SUPPRIMMER UN ARTICLE") = vbYes Then 'Ma référence = article Set ws = Sheets("Catalogue") If Not IsError(Application.Match(Article, Sheets("Catalogue").Range("A:A"), 0)) Then ligne Application.Match(Article, Sheets("Catalogue").Range("A:A"), 0)
Sheets("Catalogue").Rows(ligne).EntireRow.Delete Unload Me MsgBox "L'article s'est correstement supprimé." Ajoutmagasin.Show End If End If End Sub@@UnMecEnBaskets
@@alain50110 pour être franc, dans ton code en fait le set ws = sheets("catalogue") ne sert à rien. Il pourrait servir si tu utilisais par exemple ws.rows(ligne).entirerow.delete mais comme tu utilise sheets("catalogue").rows(ligne).entirerow.delete Ta feuille est bien défini, dont pas d'utilité à set ws. ensuite ta variable ligne il manque le signe égal tu devrais avoir : ligne = application.match(article, sheets("catalogue").range("A:A"),0) Est-ce que ta variable article est bien définie ? peut-être dans ton userform, en l'état je ne peux pas en juger. Dans l'absolu le reste m'a l'air bon, mais sans le fichier et le userform, pas évident à déterminer. Hésite pas à m'envoyer le fichier à unmecenbaskets@gmail.com Je peux y jeter un coup d'oeil vite fait.
Mille merci pour cette vidéo.Je c'est que vous avez énormément de travail et je vous suis très reconnaissant de se que vous faite pour nous .Merci de NOUS faire progresser (Michel)
Nickel la boucle est bouclée.
Un grand merci
Salut Guillaume super ton tuto
Merci infiniment, pile ce qui me manquait 😉
J'espère que cette vidéo vous plaira, si c'est le cas, lâchez un like.
N'hésitez pas à vous abonner à la chaîne pour retrouver et être informé de tous les nouveaux tutoriels.
Abonnez-vous : th-cam.com/users/unmecenbaskets
Ah Guillaume... mais kske tu m'as manqué !!! 😁
Merci Krystel... j'avoue ça faisait un bail.
au top !
Merci pour ce que vous faites dans la bonne humeur..
Et s'il s'agissait de supprimer une ligne d''un tableau qui n'est pas entire.row ? Seulement une partie de la ligne, sur le reste de la ligne j'ai d'autres données à préserver ?
Bonjour, J'ai créé un fichier avec bouton suppression des données. Cela fonctionne nickel. Cependant, dans le fichier, j'ai des menus déroulants (ex : "Sélectionner - Monsieur - Madame - Mademoiselle"). Je ne sais pas comment faire pour qu'apparaisse "Sélectionner" dans le menu déroulant une fois les données supprimées. Si j'ai sélectionné "Monsieur", toutes les données disparaissent, mais dans le menu déroulant, "Monsieur" ne passe pas à "Sélectionner". Une aide me serait utile. Merci par avance ;-)
Svp comment supprimer une ligne dans la base de données Excel avec un bouton à partir des champs de saisi en python utilisant tkinter
Salut Guillaume merci pour ton tuto très utile j'ai un blem au niveau Set ws = Sheets("Catalogue") = Sheets("Catalogue") lorsque je lance la super couleur jaune ( Set ws )?? à tu une solution . J'ai fait tous comme toi ,moi pas marcher. Merci Mec
Salut, est-ce que tu as bien mis ton set ws = sheets("catalogue") au dessus du if not iserror(application.match etc...
'supprimer l'article
Private Sub Supprimer1_Click()
If CbArticle = "" Then
MsgBox " Selectionner l'article désirer ! ", vbCritical, "SUPPRIMMER UN ARTICLE"
Exit Sub
End If
If MsgBox("Etes-vous sûr de vouloir supprimer ce produit ? ", vbYesNo + vbCritical, "SUPPRIMMER UN ARTICLE") = vbYes Then
'Ma référence = article
Set ws = Sheets("Catalogue")
If Not IsError(Application.Match(Article, Sheets("Catalogue").Range("A:A"), 0)) Then
ligne Application.Match(Article, Sheets("Catalogue").Range("A:A"), 0)
Sheets("Catalogue").Rows(ligne).EntireRow.Delete
Unload Me
MsgBox "L'article s'est correstement supprimé."
Ajoutmagasin.Show
End If
End If
End Sub@@UnMecEnBaskets
@@alain50110 pour être franc, dans ton code en fait le set ws = sheets("catalogue") ne sert à rien.
Il pourrait servir si tu utilisais par exemple
ws.rows(ligne).entirerow.delete
mais comme tu utilise
sheets("catalogue").rows(ligne).entirerow.delete
Ta feuille est bien défini, dont pas d'utilité à set ws.
ensuite ta variable ligne il manque le signe égal
tu devrais avoir :
ligne = application.match(article, sheets("catalogue").range("A:A"),0)
Est-ce que ta variable article est bien définie ? peut-être dans ton userform, en l'état je ne peux pas en juger.
Dans l'absolu le reste m'a l'air bon, mais sans le fichier et le userform, pas évident à déterminer.
Hésite pas à m'envoyer le fichier à unmecenbaskets@gmail.com
Je peux y jeter un coup d'oeil vite fait.