Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

lautrec2 · 3 Septembre 2011

Bonjour

Mon problème vient du fait que je dois prendre des infos sur 2 lignes différentes sur une feuille et les mettre en place sur une seule ligne sur une feuille supplémentaire.
Ainsi qu'une 3eme salve d'infos à prendre sur une 3 feuille.

Je sais, ça n'est vraiment pas clair...!
Alors une bonne image est beaucoup plus claire il me semble:

Merci d'avance pour l'aide que vous pourriez m'apporter !!!

JCGL · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Bonjour à tous,
Bienvenus sur XLD,

Si une image est plus claire qu'un discours, un fichier l'est encore plus.

A + à tous

hoerwind · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Bonjour, salut JCGL,

Et un fichier avec un mot d'explication décrivant les contraintes à respecter pourra peut-être susciter une proposition de réponse.

lautrec2 · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

1000 pardons si vous ne voyez pas l'image.
Je la mets en PJ.

Pour répondre aux contraintes qu'il y a, je pense vraiment qu'en voyant l'image vous comprendrez ....

JCGL · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Bonjour à tous,

Nous voyons ton image...
Par quel procédé les cellules sont elles colorées ?
Pourquoi les quatre cellules bleu foncé en ABCD en feuille 2 doivent elles se retrouver en EFGH de la feuille 3 ?

A + à tous

lautrec2 · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Le couleur des cellules n'importent QUE pour l'exemple, mes fichiers originaux n'en comportent pas.

Juste pour signifier que les valeurs "A1 à D1" de la Feuil1 doivent être reprises en "E1-H1" sur la Feuil3, etc...

Finalement si, il faut discourir un peu pour se faire comprendre....

JCGL · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Bonjour à tous,

Peux-tu essayer :

Code:

Option Explicit

Sub Test()
    Sheets("F1").Range("A1:D1").Copy Sheets("F3").Range("E1")
    Sheets("F1").Range("A2:D2").Copy Sheets("F3").Range("A1")
    Sheets("F1").Range("A3:D3").Copy Sheets("F3").Range("E2")
    Sheets("F1").Range("A4:D4").Copy Sheets("F3").Range("A2")
    Sheets("F1").Range("A5:D5").Copy Sheets("F3").Range("E3")
    Sheets("F1").Range("A6:D6").Copy Sheets("F3").Range("A3")

    Sheets("F2").Range("A1:C3").Copy Sheets("F3").Range("I1")
End Sub

A + à tous

lautrec2 · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

JCGL à dit:

Bonjour à tous,

Peux-tu essayer :

Code:

Option Explicit

Sub Test()
    Sheets("F1").Range("A1:D1").Copy Sheets("F3").Range("E1")
    Sheets("F1").Range("A2:D2").Copy Sheets("F3").Range("A1")
    Sheets("F1").Range("A3:D3").Copy Sheets("F3").Range("E2")
    Sheets("F1").Range("A4:D4").Copy Sheets("F3").Range("A2")
    Sheets("F1").Range("A5:D5").Copy Sheets("F3").Range("E3")
    Sheets("F1").Range("A6:D6").Copy Sheets("F3").Range("A3")

    Sheets("F2").Range("A1:C3").Copy Sheets("F3").Range("I1")
End Sub

A + à tous

Super....ça marche !!!

Dans mes "vrais" fichiers, j'ai bcp plus d'entrées que ça.
Penses tu qu'il soit possible d'automatiser d'une certaine façon la lecture des données (vu que la structure est tjs la même et se répete pour chaque ligne de la feuil3)?
(ça éviterait de taper une macro super longue....)

JCGL · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Bonjour à tous,

Oui c'est possible mais sans fichier pour tenter de repérer les valeurs qui peuvent être bouclées... Pas facile

Tu peux déjà raccourcir le code :

Code:

Sub Test()
Dim C
    Set C = Sheets("F3")

    With Sheets("F1")
        .Range("A1:D1").Copy C.Range("E1")
        .Range("A2:D2").Copy C.Range("A1")
        .Range("A3:D3").Copy C.Range("E2")
        .Range("A4:D4").Copy C.Range("A2")
        .Range("A5:D5").Copy C.Range("E3")
        .Range("A6:D6").Copy C.Range("A3")
    End With

    With Sheets("F2")
        .Range("A1:C3").Copy C.Range("I1")
    End With
End Sub

A + à tous

lautrec2 · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Ce que j'aimerais formuler (c'est pas toujours facile...!!!), c'est:
peut on définir ce qu'il faut faire sur 2 lignes de la feuil1 ET indiquer qu'ensuite il faille faire la meme chose mais n+1
.Range("A1😀1").Copy C.Range("E1")
.Range("A2😀2").Copy C.Range("A1")

Efgé · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Bonjour lautrec2, Bonjour JC🙂, Salut hoerwind 🙂,
Il est bien évident que sans exemple (tout ceci semble top secret...😀) difficile d'imaginer mais, une proposition quand même. Si ça ne vas pas il faudra bien penser à le fournir cet exemple.

Code:

Private Sub CommandButton1_Click()
Dim i&, j&, X&, L&
Dim Tdat(), Tdat1(), Tdat2()
With Sheets("Feuil1")
    X = .UsedRange.Rows.Count / 2
    If X <> Sheets("Feuil2").UsedRange.Rows.Count Then Exit Sub
    Tdat = .UsedRange.Value
End With
ReDim Tdat1(1 To X, 1 To UBound(Tdat, 2))
ReDim Tdat2(1 To X, 1 To UBound(Tdat, 2))
For i = LBound(Tdat, 1) To UBound(Tdat, 1) Step 2
    L = L + 1
    For j = LBound(Tdat, 2) To UBound(Tdat, 2)
        Tdat1(L, j) = Tdat(i, j)
        Tdat2(L, j) = Tdat(i + 1, j)
    Next j
Next i
Tdat = Sheets("Feuil2").UsedRange.Value
With Sheets("Feuil3")
    .Cells.ClearContents
    .Cells(1, 1).Resize(L, UBound(Tdat1, 2)) = Tdat1
    .Cells(1, UBound(Tdat1, 2) + 1).Resize(L, UBound(Tdat1, 2)) = Tdat2
    X = (UBound(Tdat1, 2) * 2) + 1
    .Cells(1, X).Resize(L, UBound(Tdat, 2)) = Tdat
End With
End Sub

Cordialement

lautrec2 · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Salut Efgé

Merci pour ton aide.
Ton fichier fonctionne bien. Bravo.
Mais il ne marche pas avec mes fichiers (qui n'ont rien d'un secret d'état....juste les coordonnées et adresses des parents d'élèves de mon école....pas trop envie de les diffuser....)

Cela dit la solution de JCGL fonctionne pas mal.
C'est juste que ça fait bcp de reférences de cellules à taper !!!!
Malheureusement, je ne maitrise pas trop les macros (mais je m'y emploie de temps en temps....)

QQ questions :
-Dans ton exemple, tu vas chercher les infos sur la 1ere ligne de chaque feuille au départ.
Quels changement dois je opérer si, avec une ligne de titre (NOM/PRENOM/....), on dois aller chercher les infos à partir de la 2eme ligne?

Efgé · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Re

lautrec2 à dit:
...Mais il ne marche pas avec mes fichiers...

C'est bien pour ça que rous le monde réclame un fichier exemple, annonyme, pour montrer la structure de ton fichier....

lautrec2 à dit:
-Dans ton exemple, tu vas chercher les infos sur la 1ere ligne de chaque feuille au départ.

En fait je prend toutes les données de la feuille, sans connaitre ni la dernière ligne ni la dernière colonne.
Pour éviter la première ligne il faut modifier

Code:

For i = LBound(Tdat, 1) To UBound(Tdat, 1) Step 2

par

Code:

For i = LBound(Tdat, 1) +1 To UBound(Tdat, 1) Step 2

Mais je pense que cela va engendrer d'autres complications en particulier sur le calcul du nombre de ligne à traiter (entre autre)

Je pense qu'utiliser le code de JC reste le meilleur choix. Une foi qu'il sera fait, il sera fait....😀
Cordialement

lautrec2 · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Je vous envoie un fichier demo de ce que je veux utiliser.
Il n'y a pas de noms, juste les en-têtes de colonnes (qui seront présentes)
J'espère que ça vous éclairera...

JCGL · 3 Septembre 2011

Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Bonjour à tous,
Salut l'ami FG,

Un essai pour la feuille que j'ai baptisé "Parents"
Dis nous si cela convient ou si tu as besoin d'aide...

Option Explicit

Code:

Sub Test()
    Dim C
    Dim X%
    Set C = Sheets("Récap")

    C.Range("A2:X1000").Clear

    With Sheets("Parents")
        For X = 2 To .Range("A65536").End(xlUp).Row
                    If X Mod 2 = 0 Then
                .Range("A" & X & ":L" & X).Copy C.Range("A" & X)
            Else
                .Range("A" & X & ":L" & X).Copy C.Range("M" & X - 1)
            End If
        Next X
    End With
End Sub

A + à tous

Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

lautrec2

Guest

JCGL

XLDnaute Barbatruc

hoerwind

XLDnaute Barbatruc

lautrec2

Guest

Pièces jointes

JCGL

XLDnaute Barbatruc

lautrec2

Guest

JCGL

XLDnaute Barbatruc

lautrec2

Guest

JCGL

XLDnaute Barbatruc

lautrec2

Guest

Efgé

XLDnaute Barbatruc

Pièces jointes

lautrec2

Guest

Efgé

XLDnaute Barbatruc

lautrec2

Guest

Pièces jointes

JCGL

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

lautrec2

Guest

XLDnaute Barbatruc

XLDnaute Barbatruc

lautrec2

Guest

Pièces jointes

XLDnaute Barbatruc

lautrec2

Guest

XLDnaute Barbatruc

lautrec2

Guest

XLDnaute Barbatruc

lautrec2

Guest

XLDnaute Barbatruc

Pièces jointes

lautrec2

Guest

XLDnaute Barbatruc

lautrec2

Guest

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency