OVH Cloud OVH Cloud

copie resultats filtre elaboré

1 réponse
Avatar
zebulon
Bonjour,

1.Suite à une recherche par le biais d'un Usf, excel me donne une liste
extraite d'une autre feuille du classeur utilisé.
Le résultat est variable de 1 lignes à x lignes, ensuite je copie 3 colonnes
de ce résultats pour le coller dans une autre feuille dans le but de
l'imprimer.
Voila une partie de mon code :

Private Sub cmdImprimerResultats_Click()

Worksheets("Base").Range("AZ2:BB" & Range("NbIdentifiant1").Value +
1).Copy Destination:=Worksheets("Liste").Range("A4")
Sheets("Liste").Select
Selection.PrintOut copies:=1, collate:=True
Sheets("Accueil").Select

End Sub

Excel ne me colle pas toutes la zone des résultats extraits, est ce cela qui
pose probleme : Worksheets("Base").Range("AZ2:BB" &
Range("NbIdentifiant1").Value + 1).

2. les mêmes résultats sur la feuille base doivent être copier puis coller
dans un fichier .csv qui me sert de source pour une interface web non
modifiable.

D'avance merci.

1 réponse

Avatar
Daniel
Bonjour.
La cellule de début de la plage à copier étant en ligne 2, tu devrais écrire
"Range("NbIdentifiant1").Value +2" au lieu de "Range("NbIdentifiant1").Value
+1". D'autre part, fais attention à l'impression "Selection.PrintOut", tu
ne sélectionne rien sur la feuille à imprimer et on imprime donc la plage ou
la cellule pré-sélectionnée.
Cordialement.
Daniel
"zebulon" a écrit dans le message de news:

Bonjour,

1.Suite à une recherche par le biais d'un Usf, excel me donne une liste
extraite d'une autre feuille du classeur utilisé.
Le résultat est variable de 1 lignes à x lignes, ensuite je copie 3
colonnes de ce résultats pour le coller dans une autre feuille dans le but
de l'imprimer.
Voila une partie de mon code :

Private Sub cmdImprimerResultats_Click()

Worksheets("Base").Range("AZ2:BB" & Range("NbIdentifiant1").Value +
1).Copy Destination:=Worksheets("Liste").Range("A4")
Sheets("Liste").Select
Selection.PrintOut copies:=1, collate:=True
Sheets("Accueil").Select

End Sub

Excel ne me colle pas toutes la zone des résultats extraits, est ce cela
qui pose probleme : Worksheets("Base").Range("AZ2:BB" &
Range("NbIdentifiant1").Value + 1).

2. les mêmes résultats sur la feuille base doivent être copier puis coller
dans un fichier .csv qui me sert de source pour une interface web non
modifiable.

D'avance merci.