Recopier une valeur en fonction du nombre inscrit dans une cellule

[Fred59240]

Bonjour la communauté,

Je me retourne vers vous car j'e n'arrive pas à solutionner la recopie implicite d'une cellule.

J'explique :

En cellule A1, j'ai le chiffre 24
En cellule A2, j'ai une formule de calcul avec le montant : 20.

Je voudrais trouver une formule qui permettrait que la valeur de la cellule A2 soit recopiée 23 fois sur la droite, B2, C2, D2, etc... soit 24 fois avec la cellule A2.

Si vous pouviez m'aider, sans l'aide de VBA, ce serait génial.

Merci à vous - Fred

 

[Lone-wolf]

Bonsoir Fred

Sans fichier pas pouvoir t'aider. Et ta demande implique le VBA.

Je voudrais trouver une formule qui permettrait que la valeur de la cellule A2 soit recopiée 23 fois sur la droite, B2, C2, D2, etc... soit 24 fois avec la cellule A2.

Et ça ce n'est pas claire. Qu'est-ce que tu veux au juste? (Et juste une chose pas deux).

 

[Fred59240]

OK merci pour ta réponse

Voici le fichier, si tu peux faire quelque chose.

Fred

 

[Staple1600]

Bonsoir le fil, le forum

Une façon de faire

Sub Macro1()
Cells(2, 1).Resize(, Cells(1, 1)).FillRight
End Sub

 

[Florian53]

Bonsoir Fred59240,

a tester :

 

[Staple1600]

Bonsoir à toi aussi Florian53 😉
(voir message#4 - dans le même minute- )

 

[Florian53]

Bonsoir le fil, le forum

Une façon de faire

Sub Macro1()
Cells(2, 1).Resize(, Cells(1, 1)).FillRight
End Sub

Bonsoir Staple1600,

Ta solution est encore plus simple 😉

 

[Staple1600]

Re

@Florian53
Oui mais la tienne semble ne pas impliquer de VBA (vu l'extension de ton fichier) 😉

Ce qui dans ce cas correspond mieux à la demande initiale 😉

 

[Florian53]

Re,

Erreur d'extension de fichier 😕😕😕

J'ai fais du VBA aussi mais beaucoup plus long que ton code 😳

Sub test()
Dim i, n As Integer
Sheets("Feuil1").Activate

i = Range("A1")

For n = 1 To i - 1
Cells(2, 1 + n) = Range("A2")
Next n

End Sub

 

[Staple1600]

Re

Une solution plus automatisée
(en passant par une procédure événementielle)
A mettre dans le code la feuille(pas dans un module standard)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$1" Then
X = [A2]
Rows(2).ClearContents
[A2].Resize(, [A1]) = X
End If
End Sub

 

[Lone-wolf]

Bonsoir tout le monde 🙂

Sub test()
Application.ScreenUpdating = False
For col = 2 To 24  'Colonnes B à X soit 23
Cells(2, col) = [A2]
Next col
End Sub

 

[Staple1600]

Re

@Lone-wolf [bonsoir]
Pourquoi la boucle? (Et quid si valeur change en A1?)
(voir message#4)

 

[Lone-wolf]

Re

Je voudrais trouver une formule qui permettrait que la valeur de la cellule A2 soit recopiée 23 fois sur la droite

Et bien, à chaqu'un ces goûts.

 

[Fred59240]

Bonjour tout le monde,

Je vais regarder vos différentes solutions pour l'adapter à mon fichier.

Merci pour vos réponses super rapides