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
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:
VB:
'Tri "Famille de risque pour MeF
FME.Activate
Range("G12:J" & Range("G1000").End(xlUp).Row).Sort Key1:=Range("G12"), _
Order1:=xlAscending, Header:=xlNo
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.
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
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.