Nom feuille excel dans une cellule

Version imprimable

Bonjour,

j'ai un petit souci:
J'ai des onglets avec des tableaux avec des nombres de lignes variables.
Je voudrais récupérer toute les lignes de chaque tableau sur une même feuille(Ca c'est bon ca marche) [B]avec devant chaque ligne indiquer le nom de l'onglet lui correspondant (ca je n'y arrive pas)
voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub ConcatenationFeuilles()
 
 
Dim i As Long, T() As Variant
 
 Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = "TOTAL"
 
 
 
    ' Copie En-Tête
        For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> "TOTAL" Then
            With Worksheets(i)
                T = .Range("a1:ah1").Value
                Sheets("TOTAL").Range("b1").Resize(UBound(T, 1), UBound(T, 2)) = T
            End With
            Exit For
        End If
    Next i
 
 
    '   Copie des données
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name <> Sheets("TOTAL").Name Then
            With Worksheets(i)
             Sheets("TOTAL").Range("a:a").Value = Worksheets(i).Name (LA EST MON PROBLEME)
                T = .Range("a2:AH" & .Range("a" & Rows.Count).End(xlUp).Row).Value
                Sheets("TOTAL").Range("b" & Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T
 
 
 
            End With
        End If
    Next i
    Erase T
 
    Application.ScreenUpdating = True
 
 
End Sub

merci d'avance

22/09/2015, 15h02
SfJ5Rpw8

Bonjour,
il ce passe quoi avec cette ligne :

Code:

Sheets("TOTAL").Range("a:a").Value = Worksheets(i).Name (LA EST MON PROBLEME)

je ne vois pas ou tu limite l'écriture de ton nom à la ligne en cours de ton fichier excel...

Bonjour,
:tagcode: quand tu nous met du code.
Ensuite,

Code:

Sheets("TOTAL").Range("a:a").Value = Worksheets(i).Name (LA EST MON PROBLEME)

regarde bien la fonction range, tu l'appele sur tout une colonne, ici c'est la colonne A.

et vu que tu a mit le "whit Worksheets(i)" tu peut t'en passer pour tout le reste :

Code:

Sheets("TOTAL").Range("a:a").Value = .Name (LA EST MON PROBLEME)

Quand tu copie le tableau, tu peut copier ligne par ligne comme ça tu écrit en même temps le nom de la page :
Code:

1 2 3 4 5 6 7 dim ws as worksheet for each ws in thisworkbook.worksheets if ws.name <> "TOTAL" then Sheets("TOTAL").cells(ligne,colonne) = ws.name Sheets("TOTAL").cells(ligne,colonne +1) = ws.cells(y,x) end if next ws
c'est un exemple, mais sa simplifiera déjà un peut ton code, c'est un avis personnel, mais je le trouve assez lourd a lire et sans les balises, c'est pires xD.

22/09/2015, 15h11
juliette81

RE bonjour,

avec cette ligne, ca copie le nom du dernier onglet sur toute les lignes. Alors que je voudrais que sur chaque ligne ca soit le nom de l'onglet correspondant (nom onglet 1 pour les 4 premières lignes, nom du deuxième pour les 3 suivantes...;exemple)

merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
dim ws as worksheet
for each ws in thisworkbook.worksheets
    if ws.name <> "TOTAL" then
'ici tu débute une boucle et tu balance =D
        while ws.cells(y,x) <> ""
            Sheets("TOTAL").cells(ligne,colonne) = ws.name
'si besoin tu rajoute une boucle pour les colonnes
            Sheets("TOTAL").cells(ligne + i,colonne +1) = ws.cells(y,x)
            y = y+1
            i=i+1
        wend
'fin de boucle
    end if
next ws

bah avec ce passage tu peut dosé l'écriture.
Il faut juste ajouter une boucle pour la lecture du tableau

22/09/2015, 15h52
juliette81

merci de votre retour,

le code bloque a ce niveau:

Code:

While ws.Cells(y, x) <> ""

et m'indique variable non défini.

Désolée, si je ne comprends pas vite!!!!
22/09/2015, 15h56
pasdechances

ne t'inquiète pas,
Alors
1. c'est ma faute
2. c'est normal dimensionne x et y

j'ai mis des variable au pif ^^', après c'est a toi de dire a quoi elle correspondent.
la les variable sont surement vides.
je vais te fournir un morceau de code plus détaillé

Bonjour juliette81, pasdechances,

Sauf erreur de ma part, les variables ne sont pas initialisé au préalable. Ainsi si tu cherches la cellule à la 0-ième ligne et 0-ième colonne, ça ne va pas fonctionner ! :ccool:
Je te propose ainsi de seter les variables en amont :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub test() Dim ws As Worksheet Dim x As Integer, y As Integer Dim ligne As Integer, colonne As Integer ligne = 1 colonne = 1 For Each ws In Worksheets If ws.Name <> "TOTAL" Then 'ici tu débute une boucle et tu balance =D y = 1 x = 1 While ws.Cells(y, x) <> "" Sheets("TOTAL").Cells(ligne, colonne) = ws.Name 'si besoin tu rajoute une boucle pour les colonnes Sheets("TOTAL").Cells(ligne + i, colonne + 1) = ws.Cells(y, x) y = y + 1 i = i + 1 Wend 'fin de boucle End If Next ws End Sub
Par ailleurs, pasdechances, je te propose de tester tes codes avant des les envoyer. Il me semble que ce que tu postes ait été écrit à la volée.
De plus, je ne comprends pas bien l'objectif de ce bout de code ?! :koi:

L'objectif est-il de recopier entièrement des feuilles ?!
On lit en diagonale ?!
Je ne comprends pas tout ! :aie:

Cordialement,
Kimy

22/09/2015, 15h59
juliette81

2. c'est normal dimentionne x et y
oui je comprends bien mais comment??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
dim ws as worksheet
dim x as integer
dim y as integer
dim ligne as integer
dim colonne as integer
 
'tu devra remplacer par des valeurs qui te conviennent
x = 1
y = 1
ligne = 1
colonne = 1
 
for each ws in thisworkbook.worksheets
    if ws.name <> "TOTAL" then
'ici tu débute une boucle sur le tableau que tu veu copier
        while ws.cells(y,x) <> ""  'je suis sur la celule A1 = cells(1,1) puisque x = 1 et y = 1
 
'j'inscrit le nom de l'onglet dans la feuille total sur la celule 
            Sheets("TOTAL").cells(ligne,colonne) = ws.name
 
'ici j'écrit se qu'il se trouve dans la celule A1 de la feuille lambda sur la feuille totale en A2(ligne = 1 et colonne = 1+1 = 2)
            Sheets("TOTAL").cells(ligne,colonne +1) = ws.cells(y,x)
 
'j'incrémente la variable des lignes
            ligne = ligne +1
            y = y+1
        wend
'fin de boucle
    end if
next ws

22/09/2015, 16h08
juliette81

Bonjour Kimy,

merci de votre retour,
l'objectif est de recopier le contenu de plusieurs feuilles (une feuille correspond à un point de référence) sur une seule feuille (pour comparer les valeurs).
et devant chaque ligne colonne A , il faudrait réécrire le nom de l'onglet (sinon je pers le nom de référence).

j'espère que je suis claire.
22/09/2015, 16h10
pasdechances

Citation:

Envoyé par Kimy_Ire

Par ailleurs, pasdechances, je te propose de tester tes codes avant des les envoyer. Il me semble que ce que tu postes ait été écrit à la volée.
De plus, je ne comprends pas bien l'objectif de ce bout de code ?! :koi:

L'objectif est-il de recopier entièrement des feuilles ?!
On lit en diagonale ?!
Je ne comprends pas tout ! :aie:

Cordialement,
Kimy

il se trouve que je parle de morceau de code, j’entends donc que la personne doit l'adapter, cela comprend aussi l’intégration des variables.
et certes je ne test pas forcement mon code, premièrement je ne suis pas la pour faire leur travail, deuxièmement je leur fournis un algorithme.
a quoi bon leurs fournirent une fonction toute belle toute prête si l'utilisateur ne la comprend pas,
on est ici pour apprendre il me semble.

et oui il s’agit de faire du copier coller, en sachant qu'il faut garder la trace de l'onglet source pour chaque ligne copier.

bonjour,

Code:

1
2
3
 
Sheets("TOTAL").Range("a" & Cells.Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1)) = "Feuille1"
Sheets("TOTAL").Range("b" & Cells.Rows.Count).End(xlUp).Offset(1).Resize(UBound(T, 1), UBound(T, 2)) = T

22/09/2015, 16h40
pasdechances

Rdurupt,
comment fait tu pour avoir la réponse la plus approprié ?

il faut vraiment que tu m'apprenne a faire pareil :mrgreen:.
22/09/2015, 16h46
Invité

le génie c'est toute ces petites chose simple aux quel le autre non pas pensé! :whistle2:

je fait les action les unes après les autres et je regarde si je ne peux pas fusionner!
22/09/2015, 16h49
pasdechances

Citation:

Envoyé par rdurupt

le génie c'est toute ces petites chose simple aux quel le autre non pas pensé! :whistle2:

Attention les chevilles, tu ne pourra plus te déplacer si ça continu xD.