Bonjour le forum,
Je n'ai pas réussi à trouver la réponse à mes problèmes.
J'ai un fichier avec plusieurs feuilles que j'aimerai mettre à jour. C'est un fichier annuel que j'alimente tous les mois avec le nombre de produits vendus. Ainsi, le mois suivant, de nouvelles colonnes doivent se mettre à jour automatiquement. J'ai essayé de faire plusieurs macros mais sans succès... Les voici !
Pour ici, ce sont les cellules de AL28 à AL36 qui prennent la valeur de départ et doivent s'étaler en colonne AM et etc selon le nombre indiqué.
Sub MAJ_Tableaux1()
Dim nbrLignes As Integer
nbrLignes = InputBox("Nombre de produits?")
nbrLignes = Int(nbrLignes)
With ThisWorkbook.Worksheets("Résumé")
.Range("AL28").AutoFill.Range ("AM28:28" & (nbrLignes + 2)), Type:=xlFillDefault
End With
End Sub
Sub MAJ_Tableaux()
Dim nbrLignes As Integer
nbrLignes = InputBox("Nombre de produits?")
nbrLignes = Int(nbrLignes)
Selection.AutoFill Destination:=Range("AM28:28" & (nbrLignes + 2)), Type:=xlFillDefault
End Sub
Je ne sais pas si j'ai été assez claire, si besoin posez moi des questions.
En vous remerciant beaucoup
L'apprentie VBA