Recupérer valeur Textbox / Insertion ligne [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
mardi 27 avril 2010
Statut
Membre
Dernière intervention
28 avril 2010
-
Messages postés
1229
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
11 février 2016
-
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

Messages postés
1229
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
11 février 2016
112
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 59496 internautes nous ont dit merci ce mois-ci

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

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.
Messages postés
1229
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
11 février 2016
112
De rien :-)
Bonne journée