Bonjour,
J'ai, dans un classeur, 100 feuilles (01 à 100) ayant la même arcitecture.
Je souhaiterais lister verticalement dans une feuille supplémentaire, le
contenu d'une cellule ayant la même position dans chacune des feuilles.
Par exemple la cellule B20 de chacune des feuilles du classeur.
Il y a bien sûr la solution de construire manuellement la liste avec des
formules de liaison, mais je souhaiterais une solution VBA plus maligne.
Merci à toutes et tous,
Michel,
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
michdenis
Bonjour Michel,
Essaie ceci :
'----------------------------------- Sub BoucleResults()
Dim Sh As Worksheet, F As Worksheet Dim B As Integer, N As String
On Error Resume Next N = ActiveSheet.Name Application.ScreenUpdating = False Application.DisplayAlerts = False Worksheets("Résultats").Delete On Error GoTo 0 Application.DisplayAlerts = True
Set Sh = Worksheets.Add(after:=Worksheets(Worksheets.Count)) Sh.Name = "Résultats" With Sh For Each F In Worksheets If F.Name <> "Résultats" Then B = B + 1 .Range("A" & B) = F.Range("B20") End If Next End With Worksheets(N).Select Set Workseheet = Nothing: Set F = Nothing End Sub '-----------------------------------
Salutations!
"michel-hirard" a écrit dans le message de news:cg9sv1$32d$ Bonjour, J'ai, dans un classeur, 100 feuilles (01 à 100) ayant la même arcitecture. Je souhaiterais lister verticalement dans une feuille supplémentaire, le contenu d'une cellule ayant la même position dans chacune des feuilles. Par exemple la cellule B20 de chacune des feuilles du classeur. Il y a bien sûr la solution de construire manuellement la liste avec des formules de liaison, mais je souhaiterais une solution VBA plus maligne. Merci à toutes et tous, Michel,
Bonjour Michel,
Essaie ceci :
'-----------------------------------
Sub BoucleResults()
Dim Sh As Worksheet, F As Worksheet
Dim B As Integer, N As String
On Error Resume Next
N = ActiveSheet.Name
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets("Résultats").Delete
On Error GoTo 0
Application.DisplayAlerts = True
Set Sh = Worksheets.Add(after:=Worksheets(Worksheets.Count))
Sh.Name = "Résultats"
With Sh
For Each F In Worksheets
If F.Name <> "Résultats" Then
B = B + 1
.Range("A" & B) = F.Range("B20")
End If
Next
End With
Worksheets(N).Select
Set Workseheet = Nothing: Set F = Nothing
End Sub
'-----------------------------------
Salutations!
"michel-hirard" <michel-hirard@wanadoo.fr> a écrit dans le message de news:cg9sv1$32d$1@news-reader5.wanadoo.fr...
Bonjour,
J'ai, dans un classeur, 100 feuilles (01 à 100) ayant la même arcitecture.
Je souhaiterais lister verticalement dans une feuille supplémentaire, le
contenu d'une cellule ayant la même position dans chacune des feuilles.
Par exemple la cellule B20 de chacune des feuilles du classeur.
Il y a bien sûr la solution de construire manuellement la liste avec des
formules de liaison, mais je souhaiterais une solution VBA plus maligne.
Merci à toutes et tous,
Michel,
'----------------------------------- Sub BoucleResults()
Dim Sh As Worksheet, F As Worksheet Dim B As Integer, N As String
On Error Resume Next N = ActiveSheet.Name Application.ScreenUpdating = False Application.DisplayAlerts = False Worksheets("Résultats").Delete On Error GoTo 0 Application.DisplayAlerts = True
Set Sh = Worksheets.Add(after:=Worksheets(Worksheets.Count)) Sh.Name = "Résultats" With Sh For Each F In Worksheets If F.Name <> "Résultats" Then B = B + 1 .Range("A" & B) = F.Range("B20") End If Next End With Worksheets(N).Select Set Workseheet = Nothing: Set F = Nothing End Sub '-----------------------------------
Salutations!
"michel-hirard" a écrit dans le message de news:cg9sv1$32d$ Bonjour, J'ai, dans un classeur, 100 feuilles (01 à 100) ayant la même arcitecture. Je souhaiterais lister verticalement dans une feuille supplémentaire, le contenu d'une cellule ayant la même position dans chacune des feuilles. Par exemple la cellule B20 de chacune des feuilles du classeur. Il y a bien sûr la solution de construire manuellement la liste avec des formules de liaison, mais je souhaiterais une solution VBA plus maligne. Merci à toutes et tous, Michel,
michel-hirard
Merci Denis, ça c'est une manip de pro et du premier coup encore!... Salut à toi, Michel,
"michdenis" a écrit dans le message de news:
Bonjour Michel,
Essaie ceci :
'----------------------------------- Sub BoucleResults()
Dim Sh As Worksheet, F As Worksheet Dim B As Integer, N As String
On Error Resume Next N = ActiveSheet.Name Application.ScreenUpdating = False Application.DisplayAlerts = False Worksheets("Résultats").Delete On Error GoTo 0 Application.DisplayAlerts = True
Set Sh = Worksheets.Add(after:=Worksheets(Worksheets.Count)) Sh.Name = "Résultats" With Sh For Each F In Worksheets If F.Name <> "Résultats" Then B = B + 1 .Range("A" & B) = F.Range("B20") End If Next End With Worksheets(N).Select Set Workseheet = Nothing: Set F = Nothing End Sub '-----------------------------------
Salutations!
"michel-hirard" a écrit dans le message de news:cg9sv1$32d$
Bonjour, J'ai, dans un classeur, 100 feuilles (01 à 100) ayant la même arcitecture. Je souhaiterais lister verticalement dans une feuille supplémentaire, le contenu d'une cellule ayant la même position dans chacune des feuilles. Par exemple la cellule B20 de chacune des feuilles du classeur. Il y a bien sûr la solution de construire manuellement la liste avec des formules de liaison, mais je souhaiterais une solution VBA plus maligne. Merci à toutes et tous, Michel,
Merci Denis, ça c'est une manip de pro
et du premier coup encore!...
Salut à toi,
Michel,
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:udljIAEiEHA.3016@tk2msftngp13.phx.gbl...
Bonjour Michel,
Essaie ceci :
'-----------------------------------
Sub BoucleResults()
Dim Sh As Worksheet, F As Worksheet
Dim B As Integer, N As String
On Error Resume Next
N = ActiveSheet.Name
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets("Résultats").Delete
On Error GoTo 0
Application.DisplayAlerts = True
Set Sh = Worksheets.Add(after:=Worksheets(Worksheets.Count))
Sh.Name = "Résultats"
With Sh
For Each F In Worksheets
If F.Name <> "Résultats" Then
B = B + 1
.Range("A" & B) = F.Range("B20")
End If
Next
End With
Worksheets(N).Select
Set Workseheet = Nothing: Set F = Nothing
End Sub
'-----------------------------------
Salutations!
"michel-hirard" <michel-hirard@wanadoo.fr> a écrit dans le message de
news:cg9sv1$32d$1@news-reader5.wanadoo.fr...
Bonjour,
J'ai, dans un classeur, 100 feuilles (01 à 100) ayant la même arcitecture.
Je souhaiterais lister verticalement dans une feuille supplémentaire, le
contenu d'une cellule ayant la même position dans chacune des feuilles.
Par exemple la cellule B20 de chacune des feuilles du classeur.
Il y a bien sûr la solution de construire manuellement la liste avec des
formules de liaison, mais je souhaiterais une solution VBA plus maligne.
Merci à toutes et tous,
Michel,
Merci Denis, ça c'est une manip de pro et du premier coup encore!... Salut à toi, Michel,
"michdenis" a écrit dans le message de news:
Bonjour Michel,
Essaie ceci :
'----------------------------------- Sub BoucleResults()
Dim Sh As Worksheet, F As Worksheet Dim B As Integer, N As String
On Error Resume Next N = ActiveSheet.Name Application.ScreenUpdating = False Application.DisplayAlerts = False Worksheets("Résultats").Delete On Error GoTo 0 Application.DisplayAlerts = True
Set Sh = Worksheets.Add(after:=Worksheets(Worksheets.Count)) Sh.Name = "Résultats" With Sh For Each F In Worksheets If F.Name <> "Résultats" Then B = B + 1 .Range("A" & B) = F.Range("B20") End If Next End With Worksheets(N).Select Set Workseheet = Nothing: Set F = Nothing End Sub '-----------------------------------
Salutations!
"michel-hirard" a écrit dans le message de news:cg9sv1$32d$
Bonjour, J'ai, dans un classeur, 100 feuilles (01 à 100) ayant la même arcitecture. Je souhaiterais lister verticalement dans une feuille supplémentaire, le contenu d'une cellule ayant la même position dans chacune des feuilles. Par exemple la cellule B20 de chacune des feuilles du classeur. Il y a bien sûr la solution de construire manuellement la liste avec des formules de liaison, mais je souhaiterais une solution VBA plus maligne. Merci à toutes et tous, Michel,
