Excel 2003 insertion ligne automatique via macro Fermé

Question

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.

Patrice33740 · Accepted Answer

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

Patrice33740 · Answer

De rien, au plaisir de te relire sur le Forum

KeanDerr · Answer

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 ?

Excel 2003 insertion ligne automatique via macro

3 réponses

Discussions similaires