Dupliquer X lignes si une condition
Tu as raison : faut compter les lignes visibles.
Voici donc un nouvel essai :
Ctrl e ➯ 5 lignes visibles sélectionnées
(5 d'après O6, pas O7 !
Vérification très facile comme suit :
1) sans changer la sélection, fais un copier via Ctrl c
2) sélectionne par exemple A105 ; coller via Ctrl v
Vérif ok ➯ merci d'passer l'sujet en résolu.
dhany
Tu as raison : faut compter les lignes visibles.
Voici donc un nouvel essai :
Modèle.xlsm
Ctrl e ➯ 5 lignes visibles sélectionnées
(5 d'après O6, pas O7 !
) Vérification très facile comme suit :
1) sans changer la sélection, fais un copier via Ctrl c
2) sélectionne par exemple A105 ; coller via Ctrl v
Vérif ok ➯ merci d'passer l'sujet en résolu.
dhany
Merci de ta réponse mais excel me renvoie l'erreur 1004 ("la méthode Range de l'objet a échoué ") sur ta ligne de code suivante:
"Range("2, xlignexpourcent").SpecialCells(xlVisible).Select"
Dans le code VBA du fichier joint de mon message de 06:44, il n'y a pas cette ligne d'instruction que tu mentionnes maintenant, et ça marche impeccable ! tu as sûrement voulu transposer dans un autre fichier, alors si tu peux joindre celui-ci ... mais c'est inutile si ce qui suit résoud ton problème :
Tu as mis ça : Range("2, xlignexpourcent").SpecialCells(xlVisible).Select
Essaye : Range("2:" & 2+xlignexpourcent).SpecialCells(xlVisible).Select
NB : dans mon code VBA, la sélection est faite par : Plg.Select
dhany
Magique ça marche!!!!! Merci énormément (je ne comprenais pas pourquoi ça ne marchait pas comme désiré car il fallait juste rajouter à ton code la ligne VBA qui fait faire le tri en fonction du département de départ)
Encore merci bcp ça m'aide énormément.
Je marque bien le sujet en résolu