importer nombre lignes égal à la valeur d'une cellule

Re : importer nombre lignes égal à la valeur d'une cellule

Bonjour et bienvenu sur le forum,

Pour copier en Feuil2! les dix premières lignes de la Feuil1 :

En Feuil2!A3 : 10
En Feuil2!C1 : formule à copier vers le bas et vers la droite.

Re : importer nombre lignes égal à la valeur d'une cellule

Merci, j'ai essayé de l'appliquer mais je n'y arrive pas.
En fait sur la feuille 1 il y a la valeur X de la celule ( et donc le nombre de lignes à aller chercher sur la feuille 2) et c'est sur cette feuille que les X lignes doivent se coller.
Je pense que j'applique mal la formule...je retourne à mes essais merci de ton aide en tout cas

Re : importer nombre lignes égal à la valeur d'une cellule

Re,

Mets un petit exemple en pièce jointe, reprenant les données de départ ainsi que la résultat à obtenir, ce sera plus facile pour te montrer comment faire.

Re : importer nombre lignes égal à la valeur d'une cellule

Hello tout le monde,

D'après ce que j'ai compris... Faut ouvrir le classeur "Desti.xls" et voir.

Bon week à tous 😀

Re : importer nombre lignes égal à la valeur d'une cellule

Bonjour Hulk,
Tu as bien compris ce que je cherchais, ca ressemble à ta macro sauf que j'aimerai que les lignes apparaissent sur la même feuille que la cellule comportant la valeur à chercher.
Je vais essayer d'appliquer ta macro.

merci à vous

je vais tester ça.

Re : importer nombre lignes égal à la valeur d'une cellule

Bonjour,
Après plusieurs essais je ne m'en sors pas...ni avec la formule, ni avec la macro...😕

En modifiant la macro de Mr Hulk ainsi:


Private Sub CommandButton1_Click()

Dim ClasseurSFO As Range, ClasseurEA As Range, x As Range

Application.ScreenUpdating = False

Sheets("Feuil1").Range("A20:A1000") = ""

La ligne bleu est surligné dans Excel, le problème viendrait de là (erreur d'éxécution 9) si je comprends bien c'est l'endroit ou je veux que mes données viennen se copier, c'est ça?? Il y a la feuille les celulles, mon doc comporte plusieurs feuilles, comment préciser ça dans la macro svp?

Set x = Workbooks("EA.xls").Sheets("Feuil1").Range("Q3")

If x.Value <> "" Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\SFOS.xls"

Set ClasseurSFO = Workbooks("SFO.xls").Sheets("Feuil1").Range("C1:A" & x.Value)
Set ClasseurEA = Workbooks("EA.xls").Sheets("Feuil2").Range("A1")

ClasseurSFO.Copy ClasseurDesti
Workbooks("EA.xls").Activate
Sheets("Feuil2").Select
End If

Application.ScreenUpdating = True

End Sub

Je résume ce que j'aimerais faire: j'ai une feuille et je voudrais importer d'un autre classeur, un nombre de lignes égal égal à la valeur d'une cellule.
J'ai Q3=10 j'aimerais que la macro aille chercher dans un autre classeur les 10 premières celules d'une liste, si je mets 15 les 15 premiers....

Merci par avance...
😱

Re : importer nombre lignes égal à la valeur d'une cellule

Personne,
Ne sait comment résoudre une erreur "9" débogage??
🙁
Snif snif

Re : importer nombre lignes égal à la valeur d'une cellule

bonjour à tous,
personne ne voit comment résoudre mon petit problème???


bonne journée.

merci par avance à ceux qui me liront...

Re : importer nombre lignes égal à la valeur d'une cellule

Bonjour,

Ce que je t'ai conseillé pour pouvoir t'aider :

Mets un petit exemple en pièce jointe, reprenant les données de départ ainsi que la résultat à obtenir, ce sera plus facile pour te montrer comment faire.

J'attends.