Ma selection plante et m'affiche un message 1004

C

CHALET53

XLDnaute Barbatruc

• 5 Septembre 2011

• #2

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+

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Septembre 2011

• #3

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)

Code:

.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

Code:

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

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

 

Vote positif 0 Vote négatif

B

baguidi

XLDnaute Occasionnel

• 5 Septembre 2011

• #4

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 6 Septembre 2011

• #5

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

 

Vote positif 0 Vote négatif

B

baguidi

XLDnaute Occasionnel

• 6 Septembre 2011

• #6

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 6 Septembre 2011

• #7

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

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

 

Pièces jointes

• Selection .xlsm

  176.3 KB · Affichages: 45
• Selection .xlsm

  176.3 KB · Affichages: 49
• Selection .xlsm

  176.3 KB · Affichages: 49

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 6 Septembre 2011

• #8

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)
À+

 

Dernière édition: 6 Septembre 2011

Vote positif 0 Vote négatif

B

baguidi

XLDnaute Occasionnel

• 6 Septembre 2011

• #9

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

Cé cool Bebere ca marche
merci.

 

Vote positif 0 Vote négatif

B

baguidi

XLDnaute Occasionnel

• 6 Septembre 2011

• #10

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

 

Pièces jointes

• Suppression .xlsm

  179.2 KB · Affichages: 81
• Suppression .xlsm

  179.2 KB · Affichages: 81
• Suppression .xlsm

  179.2 KB · Affichages: 85

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 6 Septembre 2011

• #11

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

 

Pièces jointes

• Suppression .xlsm

  174.6 KB · Affichages: 71
• Suppression .xlsm

  174.6 KB · Affichages: 76
• Suppression .xlsm

  174.6 KB · Affichages: 76

Vote positif 0 Vote négatif