Excel : Copier x fois une cellule vers le bas

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
l
leunamme
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 6 février 2020
Version d'Excel : 365

Message par leunamme » 6 février 2020, 14:10

bonjour,

N'ayant aucune connaissances en VBA, je sollicite votre aide sur le sujet suivant :
Dans Feuil1 je souhaiterais recopier la même cellule (disons A3) vers le bas X fois où X est une valeur figurant dans une cellule fixe de Feuil2 (disons C19)

En vous remerciant à l'avance de votre retour
U
U. Milité
Membre impliqué
Membre impliqué
Messages : 2'030
Appréciations reçues : 143
Inscrit le : 30 novembre 2016
Version d'Excel : Office 365

Message par U. Milité » 6 février 2020, 15:21

Bonjour et :bv3:

Et au cas où une solution sans vba existerait, tu es preneur ... ou pas ?
j
jpr33ave
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 6 février 2020
Version d'Excel : 2016 FR

Message par jpr33ave » 6 février 2020, 16:14

Bonjour
Tu saisies du texte (alphanum) en A3 et un nombre en C19, puis tu peux essayer le code suivant dans une macro

Sub aa()

Dim vNbFois As Integer
vNbFois = Range("C19").Value

Range("A3").Select
For x = 1 To vNbFois
ActiveCell.Offset(0 + x, 0) = Range("A3").Value
Next
End Sub

Continues à apprendre
l
leunamme
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 6 février 2020
Version d'Excel : 365

Message par leunamme » 6 février 2020, 16:15

Carrément !
l
leunamme
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 6 février 2020
Version d'Excel : 365

Message par leunamme » 6 février 2020, 16:37

@U.Milité

Bien sûr je suis preneur !

Cordialement,
l
leunamme
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 6 février 2020
Version d'Excel : 365

Message par leunamme » 6 février 2020, 17:17

jpr33ave a écrit :
6 février 2020, 16:14
Bonjour
Tu saisies du texte (alphanum) en A3 et un nombre en C19, puis tu peux essayer le code suivant dans une macro

Sub aa()

Dim vNbFois As Integer
vNbFois = Range("C19").Value

Range("A3").Select
For x = 1 To vNbFois
ActiveCell.Offset(0 + x, 0) = Range("A3").Value
Next
End Sub

Continues à apprendre
Merci bcp pour ton retour.
En fait en A3 se trouve une formule et pas du texte
Et c'est cette formule que je souhaiterais copier et coller en formule x fois vers le bas
Par ailleurs C19 se trouve dans une autre feuille, comment puis-je spécifier dans le code le nom de le feuille ?
Désolé de ne pas avoir spécifier dès le début de ma demande
t
tulipe_4
Passionné d'Excel
Passionné d'Excel
Messages : 8'789
Appréciations reçues : 262
Inscrit le : 1 janvier 2011
Version d'Excel : 2000 2007

Message par tulipe_4 » 6 février 2020, 17:31

bonjour
sans vba ,mais ..................
duplic.xlsx
(8.86 Kio) Téléchargé 8 fois
cordialement
c'est en cherchant qu'on trouve
l
leunamme
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 6 février 2020
Version d'Excel : 365

Message par leunamme » 6 février 2020, 17:52

tulipe_4 a écrit :
6 février 2020, 17:31
bonjour
sans vba ,mais ..................
duplic.xlsx
cordialement
Ah oui !
puissante et simple cette formule
Merci mille fois
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message