Copier une ligne total de feuilles dans feuille recap

papapaul · 2 Mai 2008

Bonjour à tous,
Je voudrais dans une feuille Recap intégrer les
lignes total (que les valeurs) des autres feuilles.
En colonne A, c'est le nom de toutes mes feuilles.
La condition c'est que les lignes total de chacune
de ces feuilles se collent à partir de la colonne B
à coté de leur nom et pas ailleurs.
Ca doit pas être si compliqué mais je fais pas le pont moi
alors je suis un peu flemmard aujourd'hui.

Merci d'avance et bonne journée ou bon week.

lordkennedy91 · 2 Mai 2008

Re : Copier une ligne total de feuilles dans feuille recap

Voici une réponse à ta question :

Dim LastDepositRow As Integer
ActiveWorkbook.Sheets("Filtered Deposits").Select //Sélection de la feuilel dans laquelle je souhaitre travailler
LastDepositRow = ActiveSheet.Range("a25000").End(xlUp).Row // position mon pointeur à la dernière ligne de la feuille active
Range("a" & CStr(LastDepositRow) & ":q" & CStr(LastDepositRow)).Select //Selection des cellule A à P dans cet exemple
Selection.Copy //COpie
Range("a" & CStr(LastDepositRow + 1)).Select //Selection de la ligne suivante
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False //collage
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone,SkipBlanks:=False, Transpose:=False //collage

Il ne te reste donc plus qu'à adapter ce code, si tu n'y arrives pas, tu peux essayer avec l'enregsitreur de macro et décrypter son code

Guest · 2 Mai 2008

Re : Copier une ligne total de feuilles dans feuille recap

bonjour PapaPaul,

La formule pour la première ligne:
En B2:=INDIRECT($A2 & "!E" & EQUIV("total";INDIRECT($A2 &"!$D:$D");0))
En C2=INDIRECT($A2 & "!F" & EQUIV("total";INDIRECT($A2 &"!$D:$D");0))
En D2=INDIRECT($A2 & "!G" & EQUIV("total";INDIRECT($A2 &"!$D:$D");0))

Je te laisse adapter pour les autres cellules.

A bientôt

cbea · 2 Mai 2008

Re : Copier une ligne total de feuilles dans feuille recap

Bonjour Papapaul, Hasco, lordkennedy91,

Voici une solution avec du VBA

papapaul · 2 Mai 2008

Re : Copier une ligne total de feuilles dans feuille recap

Salut tous les 2,
Lors Kennedy : Ca pourrait être un début, mais apparemment
ton code travaille sur la feuille active et ne va pas chercher
dans les autre feuilles ?? Jamais vu cette fonction "LastDepositRow"
Ca fonctionnerait-il avec Excel 97 ?

La solution de Hasco fonctionne mais voila !
En vrai, je vais avoir environ 70 colonnes.
Me vois mal écrire soixante fois
Je préférerais une solution en VBA si possible,
je vais essayer après manger

Merci, bon app et Vive XLD

la feuille a

cbea · 2 Mai 2008

Re : Copier une ligne total de feuilles dans feuille recap

re Bonjour,

Ma solution ne convient pas ?
Merci

papapaul · 2 Mai 2008

Re : Copier une ligne total de feuilles dans feuille recap

Salut cbea §§§§
Mais si ca me convient, c'est super bien !!!
T'a répondu en même temps que j'écrivais
pour répondre à Hasco et lordkennedy et
ensuite je suis parti chercher mon sandwich.
Je viens donc de regarder.
Merci merci. En fait, plus compliqué que je pensait
mais tu a réussi, Bravo.

Petite observation : dans la ligne ci-dessous j'ai du
enlever la partie en bleu
Range("B" & Lig).PasteSpecial Paste:=xlPasteValues 'AndNumberFormats
Je sais pas pourquoi mais ça bugger sur cette ligne
A cause d'excel 97 ?? Je suis au boulot pour l'instant, à la maison
j'ai excel 2000, je testerais.

Question annexe, c'est quoi ton drapeau ? Ca m'intrigue.

En tout cas milles merci et longue vie.

Vive XLD

cbea · 2 Mai 2008

Re : Copier une ligne total de feuilles dans feuille recap

re bonjour Papapaul,

Je pense que sous Excel 97 "Paste:=xlPasteValuesAndNumberFormats" n'existe pas.

Copier une ligne total de feuilles dans feuille recap

papapaul

XLDnaute Impliqué

Pièces jointes

lordkennedy91

XLDnaute Nouveau

Guest

Guest

cbea

XLDnaute Impliqué

Pièces jointes

papapaul

XLDnaute Impliqué

cbea

XLDnaute Impliqué

papapaul

XLDnaute Impliqué

cbea

XLDnaute Impliqué

Discussions similaires