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