Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel recopie de valeurs

recopie de valeurs

2 réponses
Avatar
Bidou
Bonjour,

Je tente de renseigner un imprimé au moyen d'une base d'adresses clients
mais je n'y arrive pas.
En Feuil1 j'ai ma base qui comprend le nom prénom l'adresse et le code
postal de chaque client

exemple C1 D1 E1 F1
Dupont Benoit 01 rue des lilas 75000
Paris
Martin Jean xxxxx
xxxxx

Je voudrais pour chaque client recopier avec VBA les valeurs des cells C1;
D1; E1; F1; dans la Feuil2 ( où se trouve l'imprimé à remplir) dans les
Cellules L1 ; L2; L3; L4 et ce pour chaque client de manière à pouvoir
tirer un imprimé personnalisé .

Merci pour votre aide.
Signaler un problème avec ce contenu

2 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
anonymousA
bonjour,

le principe pour copier-coller avec transposition est le suivant

Sheets("Feuil1").Range("C1:F1").Copy
Sheets("Feuil2").Range("L1").PasteSpecial Paste:=xlAll, Transpose:=True
Application.CutCopyMode = False

Ensuite, tu peux toujours faire une boucle sur les clients ( for next)

A+


Bonjour,

Je tente de renseigner un imprimé au moyen d'une base d'adresses clients
mais je n'y arrive pas.
En Feuil1 j'ai ma base qui comprend le nom prénom l'adresse et le code
postal de chaque client

exemple C1 D1 E1 F1
Dupont Benoit 01 rue des lilas 75000
Paris
Martin Jean xxxxx
xxxxx

Je voudrais pour chaque client recopier avec VBA les valeurs des cells C1;
D1; E1; F1; dans la Feuil2 ( où se trouve l'imprimé à remplir) dans les
Cellules L1 ; L2; L3; L4 et ce pour chaque client de manière à pouvoir
tirer un imprimé personnalisé .

Merci pour votre aide.





Avatar
Youky
Salut,
avant de lancer la macro mets toi sur un nom de la colonne C
Youky A+

Sheets(2).[L1] = Selection.Value
Sheets(2).[L2] = Selection.Offset(0, 1).Value
Sheets(2).[L3] = Selection.Offset(0, 2).Value
Sheets(2).[L4] = Selection.Offset(0, 3).Value

"Bidou" a écrit dans le message de news:
42db421b$0$1255$
Bonjour,

Je tente de renseigner un imprimé au moyen d'une base d'adresses clients
mais je n'y arrive pas.
En Feuil1 j'ai ma base qui comprend le nom prénom l'adresse et le code
postal de chaque client

exemple C1 D1 E1
F1

Dupont Benoit 01 rue des lilas 75000
Paris
Martin Jean xxxxx
xxxxx

Je voudrais pour chaque client recopier avec VBA les valeurs des cells
C1;

D1; E1; F1; dans la Feuil2 ( où se trouve l'imprimé à remplir) dans les
Cellules L1 ; L2; L3; L4 et ce pour chaque client de manière à
pouvoir

tirer un imprimé personnalisé .

Merci pour votre aide.