Excel: Copier cellule sur une meme colonne
Fermé
nonorocker
-
29 mars 2011 à 09:27
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 - 29 mars 2011 à 10:19
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 - 29 mars 2011 à 10:19
A voir également:
- Excel: Copier cellule sur une meme colonne
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
3 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
29 mars 2011 à 10:05
29 mars 2011 à 10:05
Bonjour,
Ce n'est possible qu'avec une macro, voici un code simple :
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
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 394
29 mars 2011 à 10:00
29 mars 2011 à 10:00
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
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
g
Messages postés
1262
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
572
Modifié par g le 29/03/2011 à 10:32
Modifié par g le 29/03/2011 à 10:32
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.
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.