Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Recopier une liste de valeurs dans des cellules

Recopier une liste de valeurs dans des cellules

6 réponses
Avatar
FL
Bonjour à tous,
J'ai trois variables a, b, c
je voudrai recopier ces 3 variables dans 3 cellules de la manière suivante
Range("A1:A3") = je ne sais quel code (a,b,c)
Cela existe-t-il ?

Nota : je ne veux pas passer par
Range("A1")=a: Range("A2")=b: Range("A3")=c

Avec mes remerciements
FL
Signaler un problème avec ce contenu

6 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
AV
Sub zzz()
a = 10: b = 20: c = 30
x = Array(a, b, c)
Range("A1:A3") = Application.Transpose(x)
End Sub

AV
Avatar
FL
Merci infiniment AV
j'avais essayé
Range("A1:A3") = Array(a,b,c) et cela ne marchait pas.
Merci.
FL

"AV" a écrit dans le message de news:

Sub zzz()
a = 10: b = 20: c = 30
x = Array(a, b, c)
Range("A1:A3") = Application.Transpose(x)
End Sub

AV



Avatar
FL
Bonsoir,
En fait, cela marche si je veux recopier a, b, c sur A1, A2, A3
mais cela ne marche pas si je veux recopier sur A1,B1,C1

Sub zzz()
a = 10: b = 20: c = 30
x = Array(a, b, c)
Range("A1:C1") = Application.Transpose(x)
End Sub
cette sub recopie 10 sur les 3 cellules...

Si tu es encore dans le coin ou si un autre a la solution ?
Encore merci pour ton aide.

Cordialement
FL

"AV" a écrit dans le message de news:

Sub zzz()
a = 10: b = 20: c = 30
x = Array(a, b, c)
Range("A1:A3") = Application.Transpose(x)
End Sub

AV



Avatar
FL
Encore merci,
Ne pas tenir compte de mon message précédent, j'ai patiné un peu mais j'ai
retrouvé l'équilibre.
En fait il faut faire tout simplement =x au lieu de application.transpose(x)
pour recopier en ligne.

Sub zzz()
a = 10: b = 20: c = 30
x = Array(a, b, c)
Range("A1:C1") = x
End Sub

Cordialement
FL

"AV" a écrit dans le message de news:

Sub zzz()
a = 10: b = 20: c = 30
x = Array(a, b, c)
Range("A1:A3") = Application.Transpose(x)
End Sub

AV



Avatar
garnote
Bonsoir,

Essaie ceci :

Sub Placer()
a = 100: b = 200: c = 300
x = Array(a, b, c)
[a1:a3] = Application.Transpose(x)
[a1:c1] = x
End Sub

Serge


"FL" a écrit dans le message de news:
44f0b88b$0$25931$
Bonsoir,
En fait, cela marche si je veux recopier a, b, c sur A1, A2, A3
mais cela ne marche pas si je veux recopier sur A1,B1,C1

Sub zzz()
a = 10: b = 20: c = 30
x = Array(a, b, c)
Range("A1:C1") = Application.Transpose(x)
End Sub
cette sub recopie 10 sur les 3 cellules...

Si tu es encore dans le coin ou si un autre a la solution ?
Encore merci pour ton aide.

Cordialement
FL

"AV" a écrit dans le message de news:

Sub zzz()
a = 10: b = 20: c = 30
x = Array(a, b, c)
Range("A1:A3") = Application.Transpose(x)
End Sub

AV







Avatar
FL
Merci Serge
C'est super.
FL
"garnote" a écrit dans le message de news:
ZZ5Ig.99315$
Bonsoir,

Essaie ceci :

Sub Placer()
a = 100: b = 200: c = 300
x = Array(a, b, c)
[a1:a3] = Application.Transpose(x)
[a1:c1] = x
End Sub

Serge


"FL" a écrit dans le message de news:
44f0b88b$0$25931$
Bonsoir,
En fait, cela marche si je veux recopier a, b, c sur A1, A2, A3
mais cela ne marche pas si je veux recopier sur A1,B1,C1

Sub zzz()
a = 10: b = 20: c = 30
x = Array(a, b, c)
Range("A1:C1") = Application.Transpose(x)
End Sub
cette sub recopie 10 sur les 3 cellules...

Si tu es encore dans le coin ou si un autre a la solution ?
Encore merci pour ton aide.

Cordialement
FL

"AV" a écrit dans le message de news:

Sub zzz()
a = 10: b = 20: c = 30
x = Array(a, b, c)
Range("A1:A3") = Application.Transpose(x)
End Sub

AV