Recupérer valeur Textbox / Insertion ligne

Résolu/Fermé
Fonkymatt
Messages postés
2
Date d'inscription
mardi 27 avril 2010
Statut
Membre
Dernière intervention
28 avril 2010
- 27 avril 2010 à 11:18
zebulon2503
Messages postés
1228
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
11 février 2016
- 28 avril 2010 à 09:08
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 :) .

1 réponse

zebulon2503
Messages postés
1228
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
11 février 2016
107
28 avril 2010 à 08:24
Salut

Tu peux faire une boucle:

Dans NombredeLignes tu enregistres la valeur entrée dans Textbox donc tu peux faire un compteur :
If NombredeLignes >0 then
    For i=1 to NombredeLignes
        ActiveCell.EntireRow.Insert Shift:=xlDown
    Next i
End If

2
Fonkymatt
Messages postés
2
Date d'inscription
mardi 27 avril 2010
Statut
Membre
Dernière intervention
28 avril 2010

28 avril 2010 à 09:02
Salut zebulon2503

J'arrive au bureau et je test ta formule et je suis bien content car celà fonctionne.

La solution du compteur était la bonne

Je te remercie pour ton aide, car elle m'a été précieuse.
0
zebulon2503
Messages postés
1228
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
11 février 2016
107
28 avril 2010 à 09:08
De rien :-)
Bonne journée
0