Récupérer contenu de cellules sur plusieurs onglets et copier
6 réponses
Pierre F.
Bonjour =E0 toutes et tous;
J'ai un dossier xls de 41 feuilles
Je souhaiterais r=E9cup=E9rer par macro sur chacune des feuilles 3 =E0 41=
le=20
contenu de la cellule (X, 6), c'est =E0 dire la ligne X (X =E9tant le num=
=E9ro=20
de la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est =E9gal), je=20
souhaiterais copier ces 38 contenus dans la colonne B =E0 raison de 1=20
contenu par ligne
J'ai commenc=E9 une macro mais elle bogue... (L'indice n'appartient pas =E0=
la=20
s=E9lection) sur la ligne * sem(i)=3D i *.
--------------------
Sub CreerTablUn()
ligne =3D ActiveCell.Row 'ligne celleule active
For i =3D 1 To 38
Sheets(i+2).Activate 'va =E0 la feuille i+2
sem(i) =3D i 'variable pour le num=E9ro de l'onglet
com(i) =3D Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Peut-être comme ça (non testé) bien que ne ne voie pas ou tu as l'usage de "sem" :
Sub CreerTablUn()
Dim sem(), com(), ligne As Long ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38 ligne = ActiveCell.Row 'ligne celleule active Sheets(i + 2).Activate 'va à la feuille i+2 ReDim Preserve sem(i) ReDim Preserve com(i) sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6) 'variable pour le contenu de cell(ligne,6)
J'ai un dossier xls de 41 feuilles Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro de la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je souhaiterais copier ces 38 contenus dans la colonne B à raison de 1 contenu par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la sélection) sur la ligne * sem(i)= i *.
-------------------- Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Bonjour.
Peut-être comme ça (non testé) bien que ne ne voie pas ou tu as l'usage
de "sem" :
Sub CreerTablUn()
Dim sem(), com(), ligne As Long
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
ligne = ActiveCell.Row 'ligne celleule active
Sheets(i + 2).Activate 'va à la feuille i+2
ReDim Preserve sem(i)
ReDim Preserve com(i)
sem(i) = i 'variable pour le numéro de l'onglet
com(i) = Cells(ligne, 6) 'variable pour le contenu de
cell(ligne,6)
J'ai un dossier xls de 41 feuilles
Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le
contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro de
la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je
souhaiterais copier ces 38 contenus dans la colonne B à raison de 1 contenu
par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la
sélection) sur la ligne * sem(i)= i *.
--------------------
Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet
com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Bonjour. Peut-être comme ça (non testé) bien que ne ne voie pas ou tu as l'usage de "sem" :
Sub CreerTablUn()
Dim sem(), com(), ligne As Long ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38 ligne = ActiveCell.Row 'ligne celleule active Sheets(i + 2).Activate 'va à la feuille i+2 ReDim Preserve sem(i) ReDim Preserve com(i) sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6) 'variable pour le contenu de cell(ligne,6)
J'ai un dossier xls de 41 feuilles Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro de la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je souhaiterais copier ces 38 contenus dans la colonne B à raison de 1 contenu par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la sélection) sur la ligne * sem(i)= i *.
-------------------- Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Dim sem(), com(), ligne As Long ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38 ligne = ActiveCell.Row 'ligne celleule active Sheets(i + 2).Activate 'va à la feuille i+2 ReDim Preserve sem(i) ReDim Preserve com(i) sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6) 'variable pour le contenu de cell(ligne,6)
Bonjour. Peut-être comme ça (non testé) bien que ne ne voie pas ou tu as l'usage de "sem" :
Sub CreerTablUn()
Dim sem(), com(), ligne As Long ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38 ligne = ActiveCell.Row 'ligne celleule active Sheets(i + 2).Activate 'va à la feuille i+2 ReDim Preserve sem(i) ReDim Preserve com(i) sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6) 'variable pour le contenu de cell(ligne,6)
J'ai un dossier xls de 41 feuilles Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro de la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je souhaiterais copier ces 38 contenus dans la colonne B à raison de 1 contenu par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la sélection) sur la ligne * sem(i)= i *.
-------------------- Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Dim sem(), com(), ligne As Long
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
ligne = ActiveCell.Row 'ligne celleule active
Sheets(i + 2).Activate 'va à la feuille i+2
ReDim Preserve sem(i)
ReDim Preserve com(i)
sem(i) = i 'variable pour le numéro de l'onglet
com(i) = Cells(ligne, 6) 'variable pour le contenu de
cell(ligne,6)
Bonjour.
Peut-être comme ça (non testé) bien que ne ne voie pas ou tu as l'usage de
"sem" :
Sub CreerTablUn()
Dim sem(), com(), ligne As Long
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
ligne = ActiveCell.Row 'ligne celleule active
Sheets(i + 2).Activate 'va à la feuille i+2
ReDim Preserve sem(i)
ReDim Preserve com(i)
sem(i) = i 'variable pour le numéro de l'onglet
com(i) = Cells(ligne, 6) 'variable pour le contenu de cell(ligne,6)
J'ai un dossier xls de 41 feuilles
Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le
contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro de
la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je
souhaiterais copier ces 38 contenus dans la colonne B à raison de 1 contenu
par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la
sélection) sur la ligne * sem(i)= i *.
--------------------
Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet
com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Dim sem(), com(), ligne As Long ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38 ligne = ActiveCell.Row 'ligne celleule active Sheets(i + 2).Activate 'va à la feuille i+2 ReDim Preserve sem(i) ReDim Preserve com(i) sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6) 'variable pour le contenu de cell(ligne,6)
Bonjour. Peut-être comme ça (non testé) bien que ne ne voie pas ou tu as l'usage de "sem" :
Sub CreerTablUn()
Dim sem(), com(), ligne As Long ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38 ligne = ActiveCell.Row 'ligne celleule active Sheets(i + 2).Activate 'va à la feuille i+2 ReDim Preserve sem(i) ReDim Preserve com(i) sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6) 'variable pour le contenu de cell(ligne,6)
J'ai un dossier xls de 41 feuilles Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro de la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je souhaiterais copier ces 38 contenus dans la colonne B à raison de 1 contenu par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la sélection) sur la ligne * sem(i)= i *.
-------------------- Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Avant de lancer la macro, assure toi que tu es sur la bonne feuille et que c'est la bonne cellule qui est sélectionnée.
'---------------------------------------- Sub test() Dim xlWh As XlSheetType xlWh = xlWorksheet Dim F As Worksheet, Wk As Workbook, X As Long
X = ActiveCell.Row
Application.ScreenUpdating = False Application.EnableEvents = False 'Ajouter un classeur avec seulement une feuille Set Wk = Workbooks.Add(xlWh) Set F = Wk.ActiveSheet F.Name = "Sommaire"
With ThisWorkbook For A = 3 To 3 b = b + 1 F.Range("B" & b) = .Worksheets(A).Range("F" & X) Next .Activate End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '----------------------------------------
"Pierre F." a écrit dans le message de groupe de discussion : 18e2b$4b5b298c$55da27a5$ Bonjour à toutes et tous;
J'ai un dossier xls de 41 feuilles Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro de la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je souhaiterais copier ces 38 contenus dans la colonne B à raison de 1 contenu par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la sélection) sur la ligne * sem(i)= i *.
-------------------- Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Avant de lancer la macro, assure toi que tu es sur la bonne
feuille et que c'est la bonne cellule qui est sélectionnée.
'----------------------------------------
Sub test()
Dim xlWh As XlSheetType
xlWh = xlWorksheet
Dim F As Worksheet, Wk As Workbook, X As Long
X = ActiveCell.Row
Application.ScreenUpdating = False
Application.EnableEvents = False
'Ajouter un classeur avec seulement une feuille
Set Wk = Workbooks.Add(xlWh)
Set F = Wk.ActiveSheet
F.Name = "Sommaire"
With ThisWorkbook
For A = 3 To 3
b = b + 1
F.Range("B" & b) = .Worksheets(A).Range("F" & X)
Next
.Activate
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'----------------------------------------
"Pierre F." <pfornerodNO@SPAMhotmail.ch> a écrit dans le message de groupe de discussion :
18e2b$4b5b298c$55da27a5$28491@news.hispeed.ch...
Bonjour à toutes et tous;
J'ai un dossier xls de 41 feuilles
Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le
contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro
de la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je
souhaiterais copier ces 38 contenus dans la colonne B à raison de 1
contenu par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la
sélection) sur la ligne * sem(i)= i *.
--------------------
Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet
com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Avant de lancer la macro, assure toi que tu es sur la bonne feuille et que c'est la bonne cellule qui est sélectionnée.
'---------------------------------------- Sub test() Dim xlWh As XlSheetType xlWh = xlWorksheet Dim F As Worksheet, Wk As Workbook, X As Long
X = ActiveCell.Row
Application.ScreenUpdating = False Application.EnableEvents = False 'Ajouter un classeur avec seulement une feuille Set Wk = Workbooks.Add(xlWh) Set F = Wk.ActiveSheet F.Name = "Sommaire"
With ThisWorkbook For A = 3 To 3 b = b + 1 F.Range("B" & b) = .Worksheets(A).Range("F" & X) Next .Activate End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '----------------------------------------
"Pierre F." a écrit dans le message de groupe de discussion : 18e2b$4b5b298c$55da27a5$ Bonjour à toutes et tous;
J'ai un dossier xls de 41 feuilles Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro de la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je souhaiterais copier ces 38 contenus dans la colonne B à raison de 1 contenu par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la sélection) sur la ligne * sem(i)= i *.
-------------------- Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Tu devrais protéger ton classeur (pas les feuilles) afin d'empêcher de modifier l'ordre des feuilles, la macro ne serait probablement plus d'un bon usage.
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Essaie ceci :
Avant de lancer la macro, assure toi que tu es sur la bonne feuille et que c'est la bonne cellule qui est sélectionnée.
'---------------------------------------- Sub test() Dim xlWh As XlSheetType xlWh = xlWorksheet Dim F As Worksheet, Wk As Workbook, X As Long
X = ActiveCell.Row
Application.ScreenUpdating = False Application.EnableEvents = False 'Ajouter un classeur avec seulement une feuille Set Wk = Workbooks.Add(xlWh) Set F = Wk.ActiveSheet F.Name = "Sommaire"
With ThisWorkbook For A = 3 To 3 b = b + 1 F.Range("B" & b) = .Worksheets(A).Range("F" & X) Next .Activate End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '----------------------------------------
"Pierre F." a écrit dans le message de groupe de discussion : 18e2b$4b5b298c$55da27a5$ Bonjour à toutes et tous;
J'ai un dossier xls de 41 feuilles Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro de la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je souhaiterais copier ces 38 contenus dans la colonne B à raison de 1 contenu par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la sélection) sur la ligne * sem(i)= i *.
-------------------- Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Tu devrais protéger ton classeur (pas les feuilles) afin d'empêcher
de modifier l'ordre des feuilles, la macro ne serait probablement
plus d'un bon usage.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
unowFTFnKHA.3636@TK2MSFTNGP06.phx.gbl...
Bonjour,
Essaie ceci :
Avant de lancer la macro, assure toi que tu es sur la bonne
feuille et que c'est la bonne cellule qui est sélectionnée.
'----------------------------------------
Sub test()
Dim xlWh As XlSheetType
xlWh = xlWorksheet
Dim F As Worksheet, Wk As Workbook, X As Long
X = ActiveCell.Row
Application.ScreenUpdating = False
Application.EnableEvents = False
'Ajouter un classeur avec seulement une feuille
Set Wk = Workbooks.Add(xlWh)
Set F = Wk.ActiveSheet
F.Name = "Sommaire"
With ThisWorkbook
For A = 3 To 3
b = b + 1
F.Range("B" & b) = .Worksheets(A).Range("F" & X)
Next
.Activate
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
'----------------------------------------
"Pierre F." <pfornerodNO@SPAMhotmail.ch> a écrit dans le message de groupe de discussion :
18e2b$4b5b298c$55da27a5$28491@news.hispeed.ch...
Bonjour à toutes et tous;
J'ai un dossier xls de 41 feuilles
Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le
contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro
de la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je
souhaiterais copier ces 38 contenus dans la colonne B à raison de 1
contenu par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la
sélection) sur la ligne * sem(i)= i *.
--------------------
Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet
com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Tu devrais protéger ton classeur (pas les feuilles) afin d'empêcher de modifier l'ordre des feuilles, la macro ne serait probablement plus d'un bon usage.
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Essaie ceci :
Avant de lancer la macro, assure toi que tu es sur la bonne feuille et que c'est la bonne cellule qui est sélectionnée.
'---------------------------------------- Sub test() Dim xlWh As XlSheetType xlWh = xlWorksheet Dim F As Worksheet, Wk As Workbook, X As Long
X = ActiveCell.Row
Application.ScreenUpdating = False Application.EnableEvents = False 'Ajouter un classeur avec seulement une feuille Set Wk = Workbooks.Add(xlWh) Set F = Wk.ActiveSheet F.Name = "Sommaire"
With ThisWorkbook For A = 3 To 3 b = b + 1 F.Range("B" & b) = .Worksheets(A).Range("F" & X) Next .Activate End With Application.ScreenUpdating = True Application.EnableEvents = True End Sub '----------------------------------------
"Pierre F." a écrit dans le message de groupe de discussion : 18e2b$4b5b298c$55da27a5$ Bonjour à toutes et tous;
J'ai un dossier xls de 41 feuilles Je souhaiterais récupérer par macro sur chacune des feuilles 3 à 41 le contenu de la cellule (X, 6), c'est à dire la ligne X (X étant le numéro de la ligne de la cellule active) et la colonne F.
Puis, dans un autre fichier (ou une nouvelle feuille, c'est égal), je souhaiterais copier ces 38 contenus dans la colonne B à raison de 1 contenu par ligne
J'ai commencé une macro mais elle bogue... (L'indice n'appartient pas à la sélection) sur la ligne * sem(i)= i *.
-------------------- Sub CreerTablUn()
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
Sheets(i+2).Activate 'va à la feuille i+2
sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6 'variable pour le contenu de cell(ligne,6)
Sub CreerTablUn() Dim sem(), com(), ligne As Long ligne = ActiveCell.Row 'ligne celleule active For i = 1 To 38 ligne = ActiveCell.Row 'ligne celleule active Sheets(i + 2).Activate 'va à la feuille i+2 ReDim Preserve sem(i) ReDim Preserve com(i) sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6) 'variable pour le contenu de cell(lign e,6) Next i ... End Sub
Mille mercis; ça marche!; c'est les Dim et Redim qui me manquaient
Cordialement, Pierre F.
Daniel.C a écrit :
Oups. J'ai posté ton propre code :
Sub CreerTablUn()
Dim sem(), com(), ligne As Long
ligne = ActiveCell.Row 'ligne celleule active
For i = 1 To 38
ligne = ActiveCell.Row 'ligne celleule active
Sheets(i + 2).Activate 'va à la feuille i+2
ReDim Preserve sem(i)
ReDim Preserve com(i)
sem(i) = i 'variable pour le numéro de l'onglet
com(i) = Cells(ligne, 6) 'variable pour le contenu de cell(lign e,6)
Next i
...
End Sub
Mille mercis; ça marche!; c'est les Dim et Redim qui me manquaient
Sub CreerTablUn() Dim sem(), com(), ligne As Long ligne = ActiveCell.Row 'ligne celleule active For i = 1 To 38 ligne = ActiveCell.Row 'ligne celleule active Sheets(i + 2).Activate 'va à la feuille i+2 ReDim Preserve sem(i) ReDim Preserve com(i) sem(i) = i 'variable pour le numéro de l'onglet com(i) = Cells(ligne, 6) 'variable pour le contenu de cell(lign e,6) Next i ... End Sub
Mille mercis; ça marche!; c'est les Dim et Redim qui me manquaient
Cordialement, Pierre F.
Pierre F.
michdenis a écrit :
Tu devrais protéger ton classeur (pas les feuilles) afin d'empêcher de modifier l'ordre des feuilles, la macro ne serait probablement plus d'un bon usage.
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Essaie ceci :
Avant de lancer la macro, assure toi que tu es sur la bonne feuille et que c'est la bonne cellule qui est sélectionnée.
Merci pour les conseils et la macro; c'est super rapide!
En jouant sur les deux réponses (la tienne et celle de Daniel), je peux bien avancer dans mon projet.
Bon dimanche
Cordialement, Pierre F.
michdenis a écrit :
Tu devrais protéger ton classeur (pas les feuilles) afin d'empêcher
de modifier l'ordre des feuilles, la macro ne serait probablement
plus d'un bon usage.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
unowFTFnKHA.3636@TK2MSFTNGP06.phx.gbl...
Bonjour,
Essaie ceci :
Avant de lancer la macro, assure toi que tu es sur la bonne
feuille et que c'est la bonne cellule qui est sélectionnée.
Merci pour les conseils et la macro; c'est super rapide!
En jouant sur les deux réponses (la tienne et celle de Daniel), je peux
bien avancer dans mon projet.
Tu devrais protéger ton classeur (pas les feuilles) afin d'empêcher de modifier l'ordre des feuilles, la macro ne serait probablement plus d'un bon usage.
"michdenis" a écrit dans le message de groupe de discussion :
Bonjour,
Essaie ceci :
Avant de lancer la macro, assure toi que tu es sur la bonne feuille et que c'est la bonne cellule qui est sélectionnée.
Merci pour les conseils et la macro; c'est super rapide!
En jouant sur les deux réponses (la tienne et celle de Daniel), je peux bien avancer dans mon projet.