Discussion :

[lacryma]

bonjour ,


je débute en vba voici le problème que j'aimerai vous soumettre ,

Dans l'userforme1, j'ai crée un bouton " supprimer" , qui devrait supprimer la ligne correspondante dans ma feuille "liste"
et faire remonter les autres lignes afin de ne pas laisser de vide dans le tableau
mais le code me renvoie une erreur ( classe range a échouée )

code :




Merci pour votre aide

Dominique

[Zirak]

Bonjour,

C'est la façon d'indiquer la ligne qui n'est pas la bonne, il n'y a pas besoin des guillemets, et il suffit de ne mettre qu'une fois le numéro de la ligne (surtout si vous n'en supprimez qu'une).

Sinon êtes-vous bien sur la feuille "Liste" lorsque votre Userform tente de supprimer l'enregistrement ?

Une autre chose à faire serait de lui préciser le nom de la feuille, cela ne coût rien, et cela pourra vous éviter des problèmes (si par mégarde vous lancer votre Userform en étant sur une autre feuille, vous risqueriez de supprimer une ligne de cette autre feuille).

Cela devrait normalement fonctionner :

Code :

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

Worksheets("Liste").Rows(31).Delete Shift:=xlUp

Autre question, votre enregistrement à supprimer se trouve toujours sur la ligne 31 ? Car je ne vois rien dans le code joint qui permet de déterminer l'emplacement de la ligne à supprimer (enfin c'est peut-être juste un bout de code exemple, et non le code réel ?).


Cordialement.

[Menhir]

Au lieu de mettre ton code sous forme d'image, mets le sous forme de texte avec des balises CODE (l'icone # dans l'éditeur).

Le shift de ton Delete est inutile : quand cette méthode est appliquée à Row, le décalage est forcément vers le haut.
Tout comme Excel ne te pose pas de question sur le décalage quand tu fait une suppression après avoir sélectionné toute une ligne.

Il n'est pas non plus indispensable d'utiliser des variables intermédiaires pour les paramètres d'un MsgBox, sauf si on compte utiliser plusieurs fois ces mêmes messages dans le code.
Idem pour la valeur renvoyée par cette même MsgBox.

Ton code peut tenir en une seule ligne.

Code :

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

1
2
3
Private Sub CommandButton4_Click()
   If MsgBox("Voulez-vous supprimer la ligne 31 ?", vbYesNo + vbCritical + vbDefaultButton2, "Séquence de suppression") = vbYes Then Rows(31).Delete
End Sub

[lacryma]

Non , en fait il faudrait qu'à partir du formulaire , après avoir lancé le champ de recherche ,
je puisse supprimer la ligne qui correspond au résultat affiché , donc n'importe qu'elle ligne
sur la feuille "liste" .
résultat pour cette saisie, effacer la ligne 4 et faire remonter la ligne 5 pour qu'il n'y ai pas de vide sur le fichier

[Menhir]

Non , en fait il faudrait qu'à partir du formulaire , après avoir lancer le champ de recherche ,
je puisse supprimer la ligne qui correspond au résultat afficher , donc n'importe qu'elle ligne sur la feuille "liste" .

Pour déterminer la ligne, utilise la méthode Find de Range.
https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx

[lacryma]

Merci Zirak et Menhir pour vos conseils , mais je suis toujours bloqué ,
je n'ai pas le niveau requis pour trouver cette dernière ligne de code (en rouge) ,
qui devrait fonctionner suivant la copie d'écran postée ci dessus ...

Private Sub CommandButton4_Click()
'Supprime un enregistrement
Dim msg As String, title As String, Response As String
Dim style As Integer
Application.ScreenUpdating = False
msg = "Voulez-vous supprimer cet enregistrement ?"
style = vbYesNo + vbCritical + vbDefaultButton2
title = "Séquence de Suppression"
Response = MsgBox(msg, style, title)
If Response = vbYes Then
Rows("31:31").Delete shift:=xlUp
End If
End Sub

Cordialement

[Menhir]

Merci Zirak et Menhir pour vos conseils , mais je suis toujours bloqué ,
je n'ai pas le niveau requis pour trouver cette dernière ligne de code (en rouge) :

Euh... c'est une plaisanterie ?
Je t'ai fourni un code complet pour remplacer celui-ci.

[Zirak]

@Menhir: Un code complet qui ne correspondait pas complètement à sa demande en l'état, puisque sa demande était incomplète.


@Lacryma : Menhir t'as donné un lien sur la fonction "Find", as-tu été le lire ? Qu'est-ce que tu n'as pas compris ? As-tu essayé de mettre ce qui était indiqué dans le lien en application, et si oui, peux-tu nous fournir ton nouveau code ?

Comme indiqué dans les règles du forum, nous sommes surtout ici pour aider les gens à progresser, non pour faire le travail complet à leur place.

Essais déjà de mettre en œuvre les solutions proposées, et si tu bloques à ce moment là, on regardera avec toi les possibles erreurs commises sur ton nouveau code.

[lacryma]

Euh... c'est une plaisanterie ?
Je t'ai fourni un code complet pour remplacer celui-ci.

Désolé Menhir
cela ne fonctionne pas ...

c'est certainement de ma faute , je me suis mal exprimé en début de demande ....
il est possible que mon code ne correspond pas au résultat voulu , puisque je l'ai trouvé
sur le net ....

faudrait juste prendre en compte comment faire fonctionner le bouton " quitter" suivant
les explications sur la copie d'écran que j'ai jointe plus haut dans le message .

cordialement

[lacryma]

Le souci c'est que je n'ai aucune connaissance en vba , mais je vais essayer
d'y comprendre quelque chose d'après vos liens ....
Je suis d'accord sur le fait de ne pas apporter de solution toute faite à chacun
des nouveaux venus ...

Je reviendrai donc vers vous un peu plus tard .....
cela pourrait durer quelques semaines lol

bonne journée à vous

[lacryma]

En fait j'ai suivi un tuto pour créer mon formulaire ,
donc copier / coller c'est facile , puis ,
je me suis rendu compte qu'un bouton " supprimer" serait le bienvenu ,
et l'à c'est la cata !!!

[Menhir]

cela ne fonctionne pas ...

Waoo ! On peut dire que ta description du dysfonctionnement est vraiment claire et détaillée.

Le souci c'est que je n'ai aucune connaissance en vba

Ca n'a rien d'incurable : http://bidou.developpez.com/article/VBA/

[lacryma]

Je pensais avoir trouvé ,
mais pas de chance , ça bloque toujours !

Erreur d'exécution 424 , objet requis

Private Sub CommandButton4_Click()
'Supprime un enregistrement
Dim msg As String, title As String, Response As String
Dim style As Integer
Application.ScreenUpdating = False
msg = "Voulez-vous supprimer cet enregistrement ?"
style = vbYesNo + vbCritical + vbDefaultButton2
title = "Séquence de Suppression"
Response = MsgBox(msg, style, title)
If Response = vbYes Then
Rows([B2:B1048576].Find(ComBox1.Value).Row).EntireRow.Delete
End If
End Sub

[Menhir]

Code :

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

Rows([B2:B1048576].Find(ComBox1.Value).Row).EntireRow.Delete

Ca, c'est ce qu'on appelle du gloubiboulga.
Tu sembles avoir essayé d'amalgamer des bouts de code récupérés dans différentes sources sans vraiment comprendre leur contenu.

Ceci devrait être un peu mieux :

Code :

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

Range("B2", Range("B" & Rows.Count).End(xlUp)).Find(ComBox1.Value).EntireRow.Delete

Cela dit, généralement, Find s'utilise en deux temps : on met le résultat de cette méthode dans une variable de type Range, on vérifie qu'elle contient quelque chose (Not Nothing = ) et si c'est le cas, on exploite le résultat.
L'utiliser directement, c'est jouable mais c'est risqué.

[lacryma]

Menhir ,

j'ai essayé

Range("B2", Range("B" & Rows.Count).End(xlUp)).Find(ComBox1.Value).EntireRow.Delete

j'obtiens toujours la même erreur...

Le fichier est pour le boulot , mais vu mon age , j'ai bien peur que le temps que je trouve la solution
je sois à la retraite ....
Bon je vais continuer mon bidouillage

[Menhir]

Tu réponds 10 min après que j'ai posté ???
Tu ne pourrais pas prendre un peu de temps pour essayer de comprendre ce qui t'a été transmis et essayer un peu de voir si tu ne peux pas trouver toi-même où se situe le problème ?
Tu peux faire un minimum d'effort toi-même non ?

[lacryma]

Oui , bien sur je vais essayer de comprendre ,
cela fait maintenant 3 jours que j'essaye en vain de venir à bout
de ce problème ....
Désolé de vous prendre de votre temps