Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel reproduire une colonne, une ligne???

reproduire une colonne, une ligne???

3 réponses
Avatar
Greg
Bonjour,

Je souhaite qu'excel, à l'ouverture d'un fichier, reproduise la colonne d'un
autre fichier, dont je lui indiquerais le chemin. Un peu comme on le fait
pour une cellule (= telle cellule dans tel classeur), je voudrais imiter
cela pour une colonne ou une ligne. Est-ce possible?

Merci.
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Greg
Bonjour,

Comme je n'ai pas de réponse, j'utiliserai une procédure de débutant:

pour la colonne A de la feuille 1:

D'abord : þuil2!A1

Puis incrémentation vers le bas de la colonne.

Voilà, si ça peut servir à qqn. ou si un expert connaît une procédure moins
basique...

Greg
Avatar
Daniel.C
Bonjour.
Dans le module "thisworkbook", tu mets :

Private Sub Workbook_Open()
Dim Fich As String
Fich = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Workbooks.Open Fich
With ActiveWorkbook.Sheets("Feuil1")
.Range("A1", .Range("A65536").End(xlUp)).Copy
ThisWorkbook.Activate
Sheets(1).Select
Range("A1").Select
ActiveSheet.Paste Link:=True
End With
End Sub

en adaptant les noms de feuille.
Cordialement.
Daniel
"Greg" a écrit dans le message de news:
%
Bonjour,

Comme je n'ai pas de réponse, j'utiliserai une procédure de débutant:

pour la colonne A de la feuille 1:

D'abord : þuil2!A1

Puis incrémentation vers le bas de la colonne.

Voilà, si ça peut servir à qqn. ou si un expert connaît une procédure
moins
basique...

Greg




Avatar
Greg
Merci Daniel! C'est toujours un plaisir d'avoir un coup de main de ta part!

Grégory


"Daniel.C" a écrit dans le message de
news:
Bonjour.
Dans le module "thisworkbook", tu mets :

Private Sub Workbook_Open()
Dim Fich As String
Fich = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
Workbooks.Open Fich
With ActiveWorkbook.Sheets("Feuil1")
.Range("A1", .Range("A65536").End(xlUp)).Copy
ThisWorkbook.Activate
Sheets(1).Select
Range("A1").Select
ActiveSheet.Paste Link:=True
End With
End Sub

en adaptant les noms de feuille.
Cordialement.
Daniel
"Greg" a écrit dans le message de news:
%
Bonjour,

Comme je n'ai pas de réponse, j'utiliserai une procédure de débutant:

pour la colonne A de la feuille 1:

D'abord : þuil2!A1

Puis incrémentation vers le bas de la colonne.

Voilà, si ça peut servir à qqn. ou si un expert connaît une procédure
moins
basique...

Greg