[VBA] remplir un tableau via un InputBox Résolu

Question

Bonjour, 

Bonjour, 

Je suis débutant en VBA et j’ai développé une application relativement simple qui consiste à saisir des informations via un formulaire sous la forme d’InputBox. Ces informations ont pour vocation de remplir un tableau, ainsi à chaque saisie l’objectif serait de générer une nouvelle ligne dans le tableau.

Comment procéder pour que lorsque l’on lance la macro, Excel détecte la première ligne vide et y fasse figurer les données saisies ?

Merci d’avance !

mabrouklepoux · Answer

Bonjour, 
il manque quelques infos à mon gout ...
ton inputbix est dans un formulaire, ou directement sur un onglet?
le tableau est ou ?
dans un autre onglet (c'est donc une simple feuille excel) ou lui aussi, dans un formulaire ?

fragi · Answer

Alors :
Il s'agit d'un formulaire et le tableau est en effet sur un autre onglet (simple feuille excel)

fragi · Answer

En fait ce qui me pose problème c'est le fait de déterminer la première ligne vide du tableau et de "l'activer" pour y faire figurer les données saisies ?

Une suggestion svp ?!?

syberio · Answer

bonjour,

voici une solution à ton probleme:

Utilise ce code pour chercher la derniere cellule vide: C une boucle: tant que la cellule n'est pas vide, il continu la recherche et s'arret lorsque la cellule est vide.

' selection de la case de départ
Range("B15").Select
' boucle de recherche
Do While IsEmpty(ActiveCell) = False
Selection.Offset(1, 0).Select
Loop

En esperant t'avoir aidé

Syberio

eriiic · Answer

Bonjour,

ou en partant du bas de la feuille pour s'affranchir des éventuelles cellules vides.

1ère cellule vide suivant la dernière cellule occupée de la colonne B:
[B65536].End(xlUp).Offset(1, 0).Select

eric

fragi · Answer

Bonjour, 

Merci beaucoup je vais essayer et je vous tiens au courant !

fragi · Answer

Salut,

Merci beaucoup, cela fonctionne parfaitement pour déterminer la première ligne vide du tableau !

Encore une petite question : quelle est la typologie pour indiquer les coordonnées de différentes cellule de la ligne « active », du genre :

Range(« ligne active » ;2) = UserForm1.TextBox.1.Value
Range(« ligne active » ;3) = UserForm1.TextBox.2.Value

??

Encore merci !

syberio · Answer

bonjour,



Essaye avec la commamande activrow

ou bien tu peut utiliser la méthode OFFSET a partir de ta cellule active

 ActiveCell.Offset(1, 0).Select   ( apres ta boucle la cellule vide est activé, alors avec cette commande, tu te déplace a partir de cette derniere.)


il te rest a adapter


Syberio

fragi · Answer

La classe !

MERCI BEAUCOUP ! ! !

[VBA] remplir un tableau via un InputBox

9 réponses

Discussions similaires

Newsletters