Reproduire plusieurs fois une cellule

pascal21

XLDnaute Barbatruc

• 14 Juillet 2010

• #2

Re : Reproduire plusieurs fois une cellule

BONSOIR ET BIENVENUE
alors si j'ai bien compris la question
en c1
tu écris
=$a$1
et tu tire la formule vers le bas (tu mets le curseur sur le coin inf gauche de la cellule) et tu glisse
bonne soirée

 

Vote positif 0 Vote négatif

W

WISEDOME

XLDnaute Junior

• 14 Juillet 2010

• #3

Re : Reproduire plusieurs fois une cellule

Salut Amiel,

Voir fichier joint si j'ai bien compris, sinon prière joindre un exemple.

A+

 

Pièces jointes

• Amiel.xls

  17.5 KB · Affichages: 56
• Amiel.xls

  17.5 KB · Affichages: 60
• Amiel.xls

  17.5 KB · Affichages: 57

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 14 Juillet 2010

• #4

Re : Reproduire plusieurs fois une cellule

Bonsoir,
une possibilité parmi d'autres en C1 : =SI(LIGNE()>$B$1;"";$A$1)
A+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 14 Juillet 2010

• #5

Re : Reproduire plusieurs fois une cellule

Bonjour à tous,

voir solution en pièce jointe

à+
Philippe

 

Pièces jointes

• 111.xls

  17 KB · Affichages: 67
• 111.xls

  17 KB · Affichages: 79
• 111.xls

  17 KB · Affichages: 78

Vote positif 0 Vote négatif

A

amiel

XLDnaute Nouveau

• 14 Juillet 2010

• #6

Re : Reproduire plusieurs fois une cellule

Merci a tous pour avoir répondu si rapidement, je vais pouvoir terminer mon fichier.
Encore Merci

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 14 Juillet 2010

• #7

Re : Reproduire plusieurs fois une cellule

Bonsoir à tous

Un essai avec une procédure évènementielle dans le module de la feuille Feuil1 :

Code:

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
   If Target.Cells(1, 1).Column = 2 Then
      If IsNumeric(Target.Cells(1, 1).Value) And Not IsEmpty(Target.Cells(1, 1).Offset(0, -1)) Then
         For i = 0 To CLng(Target.Cells(1, 1).Value) - 1
            Target.Cells(1, 1).Offset(i, 1).Value = Target.Cells(1, 1).Offset(0, -1).Value
         Next
      End If
   End If
End Sub[/B][/COLOR]

ROGER2327
#3899

Dimanche 1er Tatane 137 (Fête du Père Ubu (Ubu d'été), SPs)
26 Messidor An CCXVIII
2010-W28-3T20:17:31Z

 

Pièces jointes

• Temp.xls

  18 KB · Affichages: 51
• Temp.xls

  18 KB · Affichages: 55
• Temp.xls

  18 KB · Affichages: 57

Vote positif 0 Vote négatif