XL 2016 Bouton automatique

[Sabrinaaaa]

Bonsoir
J’aimerai de l’aide.
Je souhaite grâce à un bouton obtenir la colonne A automatisée dans la ligne A1 nous avons le numéro 1 et en cliquant sur le bouton on obtient ligne 2 et ainsi de suite...
Merci d’avance pour vos réponses
Sabrina

 

[Staple1600]

Bonsoir

Tu peux faire cela sans macro
Saisir 1 en A1
puis 2 en A2
Sélectionner A1:A2 puis recopier vers le bas.

 

[Sabrinaaaa]

Merci pour ta réponse
Malheureusement comme c’est pour le travail, mon boss tient à avoir un bouton qui justement fait ça ...

 

[Staple1600]

Re

Alors si c'est le boss et qu'il fait une fixette sur les boutons
Voici un code VBA qui fait cela

Sub UnPlusUnPlusPlusUnPlusUnPLusUn()
With [A1]
.Value = "1": .Resize(1600).DataSeries 2, -4132, 1, 1
End With
End Sub

NB: Le 1600 c'est juste un clin d'oeil
Mettre à la place le nombre de ton choix (enfin de celui qui aime tripoter les boutons 😉)

 

[Sabrinaaaa]

Mdr i bcp
Oui il me rend dingue avec ses boutons il en veut partout!
Et dis moi tu aurais la même chose mais pour des boutons qui sélectionnent 3 cellules et qui reportent les données d’une Feuille à l’autre?

 

[Staple1600]

Re

Une version interactive

Sub Le_Bouton_Du_Boss()
Je_Compte_Juska = CLng(InputBox("Saisir le dernier nombre de la liste", "BigBoss", 1600))
With [A1]
.Value = "1": .Resize(Je_Compte_Juska).DataSeries 2, -4132, 1, 1
End With
End Sub

 

[Sabrinaaaa]

Il va pas aimé

 

[Staple1600]

Re

Pourquoi
Tu peux modifier le code non?
(en renommant les variables et le nom de la macro)

Une autre macro (pour ta dernière question)

Sub A_QuestionVague_ReponseFloue()
Dim Cel_1 As Range, Cel_2 As Range, Cel_3 As Range
Randomize 1600
Set Cel_1 = Cells(1).Offset(Application.RandBetween(1, 5)): Cel_1 = Application.UserName
Set Cel_2 = Cells(1).Offset(Application.RandBetween(7, 13)): Cel_2 = Date
Set Cel_3 = Cells(1).Offset(Application.RandBetween(15, 21)): Cel_3 = Rnd
MsgBox "Poursuivre le test, boss?", vbExclamation, "Test"
Union(Cel_1, Cel_2, Cel_3).Copy Sheets.Add.Cells(1)
End Sub

PS: Tu as testé les macros que je te propose ou pas ?

 

[Sabrinaaaa]

Merci énormément, je vais les tester ce matin, encore une question:
Si je veux en même temps créer une nouvelle ligne avec un numéro, que cela me crée une feuille portant le même numéro avec un lien sur le numéro de la première feuille qui nous ouvre la deuxième ?
Une autre question:
Est-ce si j’ajoutes trop de fichier plutôt lourd dans les feuilles, Excel les supportera en plus de tout ces codes? Qu’en penses tu ?

(PS dsl j’ai réfléchi pendant la nuit )