Formule pour copier x fois une cellule

R@chid

XLDnaute Barbatruc

Supporter XLD

• 17 Août 2013

• #2

Re : Formule pour copier x fois une cellule

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

Code:

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

@ tirer vers la droite
@ + +

 

Vote positif 0 Vote négatif

K

keyrouan

XLDnaute Nouveau

• 17 Août 2013

• #3

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.

 

Vote positif 0 Vote négatif

K

keyrouan

XLDnaute Nouveau

• 18 Août 2013

• #4

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.

 

Dernière édition: 18 Août 2013

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Août 2013

• #5

Re : Formule pour copier x fois une cellule

Bonjour à tous,

Avec deux "InputBox" à renseigner :

VB:

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

 

Pièces jointes

• JC Essai.xls

  82 KB · Affichages: 50
• JC Essai.xls

  82 KB · Affichages: 45
• JC Essai.xls

  82 KB · Affichages: 64

Vote positif 0 Vote négatif