Excel: Copier cellule sur une meme colonne

nonorocker -  
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

3 réponses

  1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    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
    
    1
  2. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    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
    0
  3. g Messages postés 1285 Statut Membre 578
     
    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.
    0