Ma selection plante et m'affiche un message 1004

[baguidi]

Bonjour le forum,
je voudrais avoir une solution a mon problème de plantage après une sélection du NUM ENG sur la valeur 1. Vous cliquez sur le bouton SELECTIONNER pour avoir le user de selection

Merci
je vous joins le fichier

 

[CHALET53]

Re : Ma selection plante et m'affiche un message 1004

Bonjour,
Je ne sais pas où se trouve NUM ENG mais ça plante sur l'appel de ces userforms inexistants (a priori)
Form_Menu.Show
Form_MotPass.Show

a+

 

[tototiti2008]

Re : Ma selection plante et m'affiche un message 1004

Bonjour à tous,

Pas évident,

visiblement, il n'aime pas du tout l'expression là (dans Selectionner_click)

.Range("B2:B" & .Range("A65536").End(xlUp).Row).SpecialCells(xlVisible)

Le SpecialCells semble ne pas fonctionner du tout sur le cas particulier du "1"
Pas trop compris pourquoi, mais je ne peux que constater
Si par exemple tu rajoutes une ligne de code

MsgBox .Range("B2:B" & .Range("A65536").End(xlUp).Row).SpecialCells(xlVisible).Address

Tu verras que ça pose problème dans le cas là

 

[baguidi]

Re : Ma selection plante et m'affiche un message 1004

Excuse moi tu as raison sa plante lorsque tu sélectionnes num enr dans le bouton SELECTION

 

[Bebere]

Re : Ma selection plante et m'affiche un message 1004

bonjour Baguidi,Tototiti,Chalet
cel parcourre toutes les cellules de la plage
il faut parcourir la colonne A
avant filtre
Set rng = .Range("A2", [A64000].End(xlUp))
après filtre
Set rng = rng.SpecialCells(xlCellTypeVisible)
for each cel in rng
à bientôt

 

[baguidi]

Re : Ma selection plante et m'affiche un message 1004

Je te remercie pour ta participation.
mais je voudrais demander si entre temps tu pouvais faire beaucoup plus en remettant ces codes aux endroit précis dans le fichier que j'ai joins.
Merci

 

[Bebere]

Re : Ma selection plante et m'affiche un message 1004

Trouvé la faute en observant .listitems.count qui arrivait à 250
à bientôt

 

[Dranreb]

Re : Ma selection plante et m'affiche un message 1004

Bonjour à tous.
Information:
Il me semble avoir déjà constaté que SpecialCells(xlCellTypeVisible) réagit mal à la suite d'une expression Range calculée.
En particulier là où ce serait le plus utile et où je décompose maintenant:
ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
À+

 

[baguidi]

Re : Ma selection plante et m'affiche un message 1004

Cé cool Bebere ca marche
merci.

 

[baguidi]

Petit souci avec la suppression d'un enregistrement dans la listview

Bonjour le forum;
je reviens avec un petit souci que j'ai avec mon bouton SUPPRIMER .
En fait le problème c'est que lorsque je ne sélectionne aucun enregistrement et que je clique sur SUPPRIMER le système débogue un message.
pour moi je voudrais que cela m’écrive "Vous n'avez sélectionner aucun enregistrement ".
et ensuite il sort de la procédure.
j'ai tenté avec on error goto line mais ca ne marche pas bien.
Merci de m'aider pour ce problème.
je joins le fichier

 

[Bebere]

Re : Ma selection plante et m'affiche un message 1004

Baguidi
ajout de 2 lignes dans bouton sélection et changer bouton supprimer
à bientôt