Excel 2003 insertion ligne automatique via macro

Fermé

metrora - 21 mai 2013 à 14:03
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 18 janv. 2017 à 18:22

Bonjour à tous,

je ne connais pas très bien excel alors autant vous dire que les macros c'est pire... :s

J'aimerai une macro qui me permette quand on appui sur un bouton d'insérer une nouvelle ligne là ou mon curseur se trouve.

je ne peux pas envoyer de fichier la ligne se décompose comme cela :

* Nom de la personne
* nom de la personne - programme 1 (via liste déroulante) - libellé automatique (fonction recherche)
* nom de la personne - programme 2...
* nom de la personne - programme 3...
.................
donc la nouvelle ligne inséré est une ligne programme et dois comporter les infos que je vous ai écrit avec liste et formule.

Quelqun aurai t'il un code vba simple pour faire cela ?

Je vous remercie par avance.

A voir également:

Excel 2003 insertion ligne automatique via macro
Aller à la ligne excel - Guide
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Hors ligne instagram - Guide

3 réponses

Réponse 1 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
21 mai 2013 à 15:21

Essaies :

Option Explicit

Private Sub CommandButton1_Click()
  Call InsertARow
End Sub

Sub InsertARow()
  ActiveCell.EntireRow.Insert Shift:=xlDown
  ActiveCell.Offset(-1, 0).EntireRow.Copy Cells(ActiveCell.Row, 1)
  On Error Resume Next
  ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants, xlNumbers + _
                                                         xlTextValues + _
                                                         xlLogical + _
                                                         xlErrors).ClearContents
End Sub

--
Cordialement
Patrice

Utilisateur anonyme
24 mai 2013 à 08:35

c'est metrora! merci pour ta réponse , mais sa ne marche pas! enfin c'est fort probable que je fasse quelque chose de travers, moi et le vba sa fait plus que 10...

merci quand même.

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié par Patrice33740 le 24/05/2013 à 17:27

1 ) Poses un bouton activeX sur la feuille :
- Affichage / Barres d'outils / Boite à outils Contrôles
- Appuis sur le bouton "Mode création" puis sur le bouton "Bouton de commande"
- Dessine le bouton sur la feuille
2 ) met en place le code :
- Clic droit sur l'onglet de la feuille / Visualiser le code (L'éditeur VBA s'ouvre)
- Copie le code du message ci-dessus et colle le dans l'éditeur VBA
- Appuis sur Alt+F11 pour revenir sur la feuille Excel
- Ré-appuis sur le bouton "Mode création" pour activer le mode normal.
2) Essaies :
Le bouton posé sur la feuille devrait fonctionner.(sélectionne l'emplacement de la ligne à insérer avant d'appuyer sur le bouton).

Patrice

metrora
25 mai 2013 à 21:10

merci ca marche très bien ^^

ROIMYGALE
12 nov. 2014 à 01:52

Bonjour, et merci pour la macro.
EN revanche, serait-il possible de fixer le numéro de ligne qui s'insère, je veux dire, que ce soit toujours un nouvelle ligne qui apparait en 3eme position et non pas à l'endroit sélectionné?
Merci d'avance

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
12 nov. 2014 à 09:48

Bonjour ROIMYGALE,

Pour insérer une ligne en troisième position, tu n'as pas besoin de cette macro il suffit simplement de faire :

Private Sub CommandButton1_Click()
  Rows(3).Insert Shift:=xlDown
End Sub

Patrice

Réponse 2 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
25 mai 2013 à 21:56

De rien, au plaisir de te relire sur le Forum

Réponse 3 / 3

KeanDerr
17 janv. 2017 à 16:52

Bonjour, pour mon fichier la version de Patrice33740 fonctionne bien, par contre j'aimerais que les lignes s'ajoutent sur plusieurs feuilles de mon classeur, au même endroit... Quelqu'un peut m'aider ?

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
18 janv. 2017 à 18:22

Bonjour,

2 questions :
Lequel des codes utiles-tu exactement ?
Sur quelles autres feuilles ?

Patrice

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Discussions similaires

Newsletters