Formule pour copier x fois une cellule

[keyrouan]

Bonjour à tous,

J'aimerai trouver une formule qui me permettrai de copier x fois le nom tout en l’incrémentant et numéroté. Je m'explique En A1 j'ai un nom "Sophie" en B2 une Valeur "4" j'aimerai que la formule copie sur une ligne d'une autre feuille "Sophie 1" "Sophie 2" "Sophie 3" "Sophie 4".

merci d'avance à ceux qui pourront m'aider

 

[R@chid]

Re : Formule pour copier x fois une cellule

Bonsoir,
Si j'ai bien compris,
Feuil2 ==> en A1,

=SI(COLONNE()>Feuil1!$B1;"";Feuil1!$A1&" "&COLONNE())

@ tirer vers la droite
@ + +

 

[keyrouan]

Re : Formule pour copier x fois une cellule

Merci R@chid c'est le principe sauf que j'aimerai que l’incrémentation soit automatisé étant donnée que je vais avoir 200 lignes avec des nombres variables. Merci.

 

[keyrouan]

Re : Formule pour copier x fois une cellule

Re merci c'est tout a fait ca en tirant au plus large ca le fait. encore merci... Comment commencer L’incrémentation dans la colonne D Merci d'avance.

 

[JCGL]

Re : Formule pour copier x fois une cellule

Bonjour à tous,

Avec deux "InputBox" à renseigner :

Option Explicit

Sub Test()
Dim Prénom As String, Nombre&, Col As Byte, X&

Columns(4).ClearContents

Prénom = InputBox("Choisir le Prénom", "Choix", "Sophie")
Nombre = InputBox("Choisir le nombre", "Choix", 10)
'Col = InputBox("Choisir la colonne", "Choix", 4)

For X = 1 To Nombre
'Feuil2.Cells(X + 1, Col) = Prénom & X
Feuil2.Cells(X + 1, 4) = Prénom & X
Next X

End Sub

A+ à tous