Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insertion automatique ligne avec bouton

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion lecromg
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lecromg

Guest
Bonjour,

je suis débutant et je suis confronté à un pb qui doit être très simple pour la plupart d'entre vous.
Je souhaite créer un bouton afin de créer automatiquement une ligne vierge en dessous conservant ma liste de choix existante et si possible en incrémentant une cellule.
L'idéal serait que ce bouton se déplace automatiquement sur la dernière ligne.

Ci-joint mon fichier avec les précisions utiles notés en rouge.


Mille merci.



PS: je ne sais pas pourquoi mon fichier demande si je veux activer les macros à l'ouverture car je n'en ai pas.
 

Pièces jointes

Trier par date Trier par votes
Re : Insertion automatique ligne avec bouton

Salut,

Essaye ce bout de code :
Code: 
Sub ajout_ligne()
Range("F2").End(xlDown).Select
nbre = ActiveCell.Value
ligne = ActiveCell.Row

Rows(ligne).Copy
Rows(ligne + 1).Insert Shift:=xlDown
Cells(ligne + 1, 6).Value = nbre + 1

End Sub

C'est déjà un premier pas...
Après il y a les formats qui ne tomberont peut-être pas toujours comme tu as besoin, à voir...

Bye

ShocK
 
Vote positif 0 Vote négatif
Re : Insertion automatique ligne avec bouton

Merci Shock, ca m'aide bien déjà.

Par contre je ne peux récupérer mes données sur la feuille Données_metre de mes nouvelles lignes insérees.

Par contre, étant donné que les boutons en bout de ligne (qui activent ma macro) se "multiplient", je voudrais en profiter pour que lorsque je clique sur ce boutont "insertion ligne", l'insertion se fasse la ligne en dessous et non pas après la dernière ligne. Et le top serait que toute l'incrémentation soit mise à jour.

Est-il possible aussi que la nouvelle ligne soit vierge de données sauf ma colonne F bien sûre.

J'ai remis mon fichier avec des explications plus précises.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Insertion automatique ligne avec bouton

Salut lecromg,

désolé je n'ai pas beaucoup le temps en ce moment...
à 1ère vue, il faudrait une macro par bouton?!, à moins de ne faire qu'un bouton, et de faire notre macro en fonction de la ligne sélectionnée...
ou plutôt, la possibilité de saisir dans une boite de dialogue "inputbox" le N° de ligne après laquelle on veut rajouter la nouvelle?

Avec un truc du genre :

Code: 
Sub ajout_ligne()
Range("F2").End(xlDown).Select
lgn = ActiveCell.Row
ligne = InputBox("Avant quelle ligne voulez-vous insérer la nouvelle?", "N° Ligne")
nbre = Cells(ligne, 6).Value

Rows(ligne).Copy
Rows(ligne + 1).Insert Shift:=xlDown
For i = 1 To (lgn - nbre - 1)
Cells(ligne + i, 6).Value = nbre + i
Next i
End Sub
 
Vote positif 0 Vote négatif
Re : Insertion automatique ligne avec bouton

Merci beaucoup, ca marche bien sur ma feuille principal.


Le seul hic est que ma basse de données sur la feuille Données_metre ne prend pas en compte les nouvelles lignes. Ai-je fais quelque chose de travers concernant ces bases de données?

Mais merci toujours, ca m'aide en partie.
 
Vote positif 0 Vote négatif
Re : Insertion automatique ligne avec bouton

Salut,

C'est normal, on fait un copier-coller, donc les références suivent...et après tu as 1 "saut" dans la feuille Données_metre :
Tu as par ex. en ligne 20 des références à la ligne 20 de Bornier, puis en ligne 21 tu as des réf. à la lg 22 de Bornier.

J'ai trouvé une parade...mais je ne suis pas sûr que ça marche dans tous les cas :
Code: 
Sub ajout_ligne()
Range("F2").End(xlDown).Select
lgn = ActiveCell.Row
ligne = InputBox("Avant quelle ligne voulez-vous insérer la nouvelle?", "N° Ligne")
nbre = Cells(ligne, 6).Value

Rows(ligne).Copy
Rows(ligne + 1).Insert Shift:=xlDown
For i = 1 To (lgn - nbre - 1)
Cells(ligne + i, 6).Value = nbre + i
Next i
With Sheets("Données_metre")
    .Range(.Cells(ligne, 1), .Cells(ligne, 10)).Copy
    .Range(.Cells(ligne + 1, 1), .Cells(300, 10)).PasteSpecial (xlPasteFormulas)
End With
End Sub

A essayer donc, bonne chance

Bye
ShocK
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Résolu(e)
Microsoft 365 VBA Insertion ligne dans feuille protégée
Réponses
10
Affichages
881
Nathan027
N
S
  • Résolu(e)
XL 2019 Couper coller une ligne d'une feuille1 vers feuille2 grâce à un bouton ou case à cocher
Réponses
6
Affichages
1 K
sylvanu
L
  • Résolu(e)
XL 2019 insertion automatique d'une date qui reste fixe
Réponses
10
Affichages
923
laurent70
L
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
1 K
Corentin26270
C
A
  • Question Question
XL 2013 VBA avec bouton pour effacer les filtre et revenir à la dernière ligne d'un tableau
Réponses
9
Affichages
1 K
mapomme
2
  • Résolu(e)
XL 2010 Macro Excel déplacement automatique du bouton qui lance la Macro
Réponses
4
Affichages
735
2Kerpat
2
B
  • Question Question
XL 2016 Comment figer une formule dans une nouvelle ligne insérée.
Réponses
1
Affichages
490
Lolote83
L
O
  • Question Question
XL 2019 Création de dossier avec bouton
Réponses
11
Affichages
1 K
kiki29
L
  • Question Question
XL 2016 Insertion d'un ligne avec coloration et ajout automatique d'un lien hypertexte
Réponses
2
Affichages
596
job75
B
  • Question Question
XL 2019 Mail d'alerte automatique contenant tableau si condition remplie
Réponses
2
Affichages
947
fanch55
L
  • Résolu(e)
Microsoft 365 VBA double clic et saisie de cellule avec texte et horaire
Réponses
4
Affichages
687
Le novice
L
C
  • Question Question
XL 2016 VBA - Insertion de lignes automatique sous condition et copier formats et formules dans la nouvelle ligne
Réponses
10
Affichages
2 K
clochette
C
S
  • Question Question
XL 2019 Besoin d'aide pour macro VBA avec condition pour dupliquer ligne selon si présence d'une cellule
Réponses
4
Affichages
940
samsoun
S
R
  • Résolu(e)
Microsoft 365 Création automatique de ligne
Réponses
3
Affichages
1 K
AtTheOne
B
  • Résolu(e)
XL 2016 VBA insertion de deux colonnes régulières à partir d'une cellule variable
Réponses
4
Affichages
1 K
fanfan38
M
  • Question Question
Autres Création et remplissage automatique d'un nouvel onglet (en suivant une trame) par ligne du tableau.
Réponses
8
Affichages
3 K
ZZ7367
Z
A
  • Question Question
XL pour MAC outils tableau, création automatique de ligne à partir d'un autre tableau
Réponses
5
Affichages
1 K
axel211
A
L
  • Question Question
XL 2016 Suppression de ligne via une scannette / bouton entrée sortie
Réponses
1
Affichages
737
leader.sebastien
L
C
  • Question Question
Microsoft 365 Lien hypertexte dans même classeur via VBA
Réponses
1
Affichages
1 K
youky(BJ)
G
  • Question Question
Microsoft 365 filtrer / défiltrer insertion de ligne automatique - macro qui ne fonctionne pas ou de manière aléatoire
Réponses
4
Affichages
2 K
Grelune
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…