Recupérer valeur Textbox / Insertion ligne
Résolu
Fonkymatt
Messages postés
3
Statut
Membre
-
zebulon2503 Messages postés 1229 Date d'inscription Statut Membre Dernière intervention -
zebulon2503 Messages postés 1229 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis débutant en VBA Excel en ce qui concerne les macros.
Je dispose d'un fichier Excel (2003) avec une feuille comprenant une base de données.
Je souhaiterai créer une macro (je pense toute simple) qui ajoute un nombre de lignes définit en remplissant une textbox.
Pour le moment je suis arrivé à ce niveau de l'établissement cette macro :
Sub Macro3()
Titre$ = "Création de la liste des effectifs pour cette tâche"
Message$ = "Nombre de lignes à ajouter"
NombredeLignes$ = InputBox$(Message$, Titre$)
If NombredeLignes$ > 0 Then
ActiveCell(2).EntireRow.Insert Shift
End If
End Sub
Une Textbox apparait et me demande de renseigner le nombre de lignes souhaité. Si cette valeur est >0, une ligne est insérée sous la ligne active.
Il me reste à parvenir à prendre en compte la valeur entrée dans la textbox pour que s'insère le nombre de ligne correspondant.
Je bloque à ce niveau depuis quelque temps aussi je fais appel à vos connaissances.
Je vous remercie d'avance pour ce que vous pourrez me conseiller car cette petite fonction m'aiderait bien dans mon travail :) .
Je suis débutant en VBA Excel en ce qui concerne les macros.
Je dispose d'un fichier Excel (2003) avec une feuille comprenant une base de données.
Je souhaiterai créer une macro (je pense toute simple) qui ajoute un nombre de lignes définit en remplissant une textbox.
Pour le moment je suis arrivé à ce niveau de l'établissement cette macro :
Sub Macro3()
Titre$ = "Création de la liste des effectifs pour cette tâche"
Message$ = "Nombre de lignes à ajouter"
NombredeLignes$ = InputBox$(Message$, Titre$)
If NombredeLignes$ > 0 Then
ActiveCell(2).EntireRow.Insert Shift
End If
End Sub
Une Textbox apparait et me demande de renseigner le nombre de lignes souhaité. Si cette valeur est >0, une ligne est insérée sous la ligne active.
Il me reste à parvenir à prendre en compte la valeur entrée dans la textbox pour que s'insère le nombre de ligne correspondant.
Je bloque à ce niveau depuis quelque temps aussi je fais appel à vos connaissances.
Je vous remercie d'avance pour ce que vous pourrez me conseiller car cette petite fonction m'aiderait bien dans mon travail :) .
