XL 2016 Visual Basic: copie format et valeur d'un ensemble de cellule d'un feuille à une autre

fouad.b. · 14 Avril 2020

Bonjour à toutes et tous,

Je suis nouveau sur le forum et sollicite votre aide.
J'aimerais pouvoir lier 2 feuilles en copiant de manière automatique le contenu, format et images de quelques colonnes vers une seconde feuille.

Par exemple dans le fichier test en PJ, je souhaiterais lier le contenue de toutes les colonnes A à D de la feuille "base de donnee A" avec les mêmes colonnes de la feuille "base de donnee B" (image comprise).
Et faire en sorte qu'en modifiant la feuille "base de donnee A", la feuille "base de donnee B" suive, même si j'ajoute ou enlève une ligne.

Merci d'avance pour votre aide, par ce que là ... je galère

laurent3372 · 14 Avril 2020

L'enregistreur de macro fait ça très bien:

VB:

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("Tableau1[[#All],[id]:[photo]]").Select
    Selection.Copy
    Sheets("base de donnees B").Select
    ActiveSheet.Paste Link:=True
End Sub

Les photos ne sont pas copiées.

laurent3372 · 14 Avril 2020

L'enregistreur de macro fait ça très bien:

VB:

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("Tableau1[[#All],[id]:[photo]]").Select
    Selection.Copy
    Sheets("base de donnees B").Select
    ActiveSheet.Paste Link:=True
End Sub

Les photos ne sont pas copiées.

fouad.b. · 15 Avril 2020

parfait, ça fonctionne comme je voulais.
Pour les photos, j'ai pu trouver une alternative dans la construction de ma BD.

merci Laurent !

XL 2016 Visual Basic: copie format et valeur d'un ensemble de cellule d'un feuille à une autre

fouad.b.

XLDnaute Nouveau

Pièces jointes

laurent3372

laurent3372

XLDnaute Impliqué

fouad.b.

XLDnaute Nouveau

Discussions similaires