Excel: Copier cellule sur une meme colonne
nonorocker
-
g Messages postés 1285 Statut Membre -
g Messages postés 1285 Statut Membre -
Bonjour,
je souhaite copier une cellule (toujours la meme) de plusieurs feuilles de calcul (environ 50)dans une colonne de la premiere feuille avec excel.
Il existe sans doute une maniere facile de faire cela mais je ne trouve pas.
Merci d'avance
je souhaite copier une cellule (toujours la meme) de plusieurs feuilles de calcul (environ 50)dans une colonne de la premiere feuille avec excel.
Il existe sans doute une maniere facile de faire cela mais je ne trouve pas.
Merci d'avance
3 réponses
-
Bonjour,
Ce n'est possible qu'avec une macro, voici un code simple :
Option Explicit Sub CopierCellulesVersColonne() Dim wsh As Worksheet 'Feuille explorée Dim rng As Range 'Cellule de destination Dim adr As String 'Adresse des cellules à lire ' Définir la première cellule de destination Set rng = Worksheets(1).Range("C2") ' Définir l'adresse des cellules à lire adr = "B2" ' Explorer le classeur entier ... For Each wsh In Worksheets ' ... sauf la première feuille If wsh.Index <> 1 Then ' Copier la valeur rng.Value = wsh.Range(adr).Value ' Passer à la cellule de destination suivante Set rng = rng.Offset(1) End If Next wsh End Sub -
Bonjour
une manière simple peut être pas
il faudra toujours avoir le nom des feuilles quelque part:
faites en la liste en colonne A (ou ailleurs,colonne éventuellement cachée à adapter)
en colonne B:
=INDIRECT("'"&A1&"'!adresse cellule")
adresse cellule étant l'adresse de la cellule à éditer
attention aux signes
tirer sur la hauteur.
crdlmnt
-
Bonjour,
Pour:
Feuilles nommées Feuil1, Feuil2, Feuil3, etc....
Cellule identique D1
=INDIRECT("Feuil"&(LIGNE())&"!$D$1")
à dérouler vers le bas depuis la première rangée.
ou
=INDIRECT("Feuil"&(LIGNE()-1)&"!$D$1")
à dérouler vers le bas depuis la deuxième rangée.
Bonne journée.
PS: Je viens de voir la solution de Patrice33740 qui est plus performante et incontournable si les feuilles ne sont pas nommées par défaut.