XL 2010 VBA - Sélection cellules visibles

[Gllou06]

Bonsoir

J'ai un souci que je ne parviens pas à comprendre :

J'ai sur un classeur une feuille "base de données" et une feuille "Fiche métier". Je veux afficher les données filtrées de la BDD sur la feuille Métier. Ma macro lancée manuellement (F8) fonctionne correctement ; Quand je la lance depuis le bouton "Afficher la fiche complète" elle fait n'importe quoi pour la 3ème colonne (Facteur d'expo). Mais que ce passe-t-il ? : Il n'y a pourtant aucune différence avec les deux recherches précédentes.

...
'Famille de risque
BDD.Range("H9:H" & Range("B1000").End(xlUp).Row).SpecialCells(xlVisible).Copy
FME.Range("G12").PasteSpecial Paste:=xlPasteValues

'Activité
BDD.Range("F9:F" & Range("B1000").End(xlUp).Row).SpecialCells(xlVisible).Copy
FME.Range("H12").PasteSpecial Paste:=xlPasteValues

'Facteur d'exposition
BDD.Range("I9:I" & Range("B1000").End(xlUp).Row).SpecialCells(xlVisible).Copy
FME.Range("I12").PasteSpecial Paste:=xlPasteValues
...

Pour info, si je déplace dans la macro le code "Activité" en troisième position, c'est lui qui ne fonctionne pas correctement.

Merci de votre aide.
Cordialement

 

[mapomme]

Bonsoir Gllou06,

Chez moi le plantage se produit sur le tri situé juste après le traitement de la 3ième colonne.
Testez en remplaçant votre code de tri par le code plus concis qui suit:

  'Tri "Famille de risque pour MeF
    FME.Activate
    Range("G12:J" & Range("G1000").End(xlUp).Row).Sort Key1:=Range("G12"), _
        Order1:=xlAscending, Header:=xlNo

edit : code modifié

 

[Gllou06]

Merci de votre réponse.
J'ai testé mais... Désolé ce n'est pas la solution. Le problème se situe juste avant le tri : sur le "BDD.Range("I9:I" & Range("B1000").End(xlUp).Row).SpecialCells(xlVisible).Copy" : En lançant la macro avec le bouton, la sélection se fait sur les lignes de I5 à I9 !! C'est ça que je ne comprends pas.
Cordialement.

 

[youky(BJ)]

Bonjour le fil,
Je pense que le bas de ligne est mal renseigné
je mettrais (voir en rouge)
"BDD.Range("I9:I" & BDD.Range("B1000").End(xlUp).Row).SpecialCells(xlVisible).Copy"
Bruno

 

[mapomme]

Re,

Je suis confus . La syntaxe précédente n'était pas bonne. Voyez le fichier joint qui, chez moi, passe bien le tri (enfin vérifiez svp)

 

[Gllou06]

Merci. Avec la solution "BDD.range, je n'ai (apparemment) plus le problème.
PS : Le tri se passe très bien ; C'est au niveau de la sélection du contenu des cellules "Facteur d'expo" que j'ai un souci.

 

[youky(BJ)]

RE,
J'ai rectifié et mis un with en plus dans la macro
J'ai coché une ligne, le . select faisait planter.
Bruno