Discussion :

[djank]

Bonjour,
voici mon problème, je chercha à récupérer l'adresse de la dernière ligne utilisées d'un tableau. Ce tableau est présent sur la "Feuil1" ainsi qu'un bouton pour appeler la UserForm.
La Feuil2 est vide. J'ai un "UserForm" que j'ai nomé "UserFormTest" il est composé de 3 TextBox :
"TextBox_Nom"; TextBox_Prenom et TextBox_email ainsi que de 2 "CommandButton" nommés : "Valider" et "Annuler".


Voici le code :
-------------------------------------------------------------------------------------
UserFormTest:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub Annuler_Click()
 
    Unload UserFormTest
 
End Sub
 
Private Sub TextBox_email_Change()
 
End Sub
 
Private Sub TextBox_Nom_Change()
 
End Sub
 
Private Sub TextBox_Prenom_Change()
 
End Sub
 
Private Sub Valider_Click()
 
    Worksheets(1).Activate
    UsedRange.Cells(UsedRange.Cells.Count).Select
 
End Sub

-------------------------------------------------------------------------------------
Module1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub LancerFormulaire()
 
    UserFormTest.Show
 
End Sub

-------------------------------------------------------------------------------------

Lorsque j'appuie sur le bouton présent sur la "Feuil1" la UserForm apparaît si je clique sur le bouton Annuler elle disparaît, tout va bien. Cela se gâte avec l'appuie sur le bouton Valider : j'obtiens "Erreur d'exécution '424': Objet requis, et la ligne : UsedRange.Cells(UsedRange.Cells.Count).Select est surlignée.

j'avoue que je n'arrive pas à me dépatouiller de ce problème, votre aide serait la bienvenue.
D'avance merci pour votre aide

[ARTURO83]

Bonjour,

Je dirai plutôt ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Valider_Click()
    Worksheets(1).Activate
    ActiveSheet.UsedRange.Select
End Sub

Cdlt

[djank]

Merci ARTURO83.
ça fonctionne.

Je ne comprends pas pourquoi mon code ne fonctionne pas

[Pierre Fauconnier]

Salut.

Dommage de sélectionner une feuille pour déterminer la plage utilisée dedans...

Tu parles d'un tableau. Pourrais-tu mettre une copie d'écran de ta feuille, que l'on puisse se faire une idée? Est-ce un tableau structuré? Il est en lien avec un userform? Si oui, tu pourrais peut-être t'inspirer de ma contribution sur le sujet.

[djank]

Bonjour Pierre Fauconnier,

merci pour ta réponse.
Voici une copie d'écran de ma feuille :


alors, non, ce n'est pas un tableau structuré, mais j'ai pris note de tes recommandations.



Et oui il est en lien avec un UserForm:




J'avance pas à pas, et j'essaie de comprendre mes erreurs. Merci pour ton aide.

[Pierre Fauconnier]

Il faut vraiment passer à des tableaux structurés pour cela, et abandonner les "vieilles" méthodes, notamment à coup de UsedRange, qui est très contraignant sur le plan de la structure de la feuille. Si tu as une simple ligne de total sous tes données, ça fout déjà le boxon.

Les tableaux structurés offrent une souplesse d'utilisation ainsi qu'une sécurité d'utilisation car ils permettent de découpler ton code de la position des données dans le classeur.

Avec une configuration reprenant un tableau structuré (voir mon tuto à ce sujet) et un userform contenant les textbox tboName et tboFirstname, tu pourrais utiliser une fonction générique qui reçoit le usf, le nom du tableau et un tableau qui apparie les contrôles du userform et les colonnes du tableau structuré. J'ai développé un truc similaire en réponse à cette question sur le forum et j'ai écrit un billet de blog là-dessus. C'était pour transférer un formulaire de type "feuille de calcul", mais le principe est le même^*.



Voici la fonction générique qui peut servir pour tout transfert de données entre un usf et un tableau structuré:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function AddDataFromUsf(usf As MSForms.UserForm, Tablename As String, map)
  Dim r As Long
  Dim i As Long
  Dim t As ListObject
 
  Set t = Range(Tablename).ListObject
  r = t.ListRows.Add.Index
  For i = LBound(map) To UBound(map) Step 2
    t.ListColumns(map(i + 1)).DataBodyRange(r).Value = usf.Controls(map(i)).Value
  Next
End Function

Tu l'appelles par exemple sur le click du bouton "Valider" du userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub btnValidate_Click()
  AddDataFromUsf Me, "t_Contacts", VBA.Array("tboFirstname", "Prénom", "tboName", "Nom")
End Sub

Dans cet autre billet, j'explique la manoeuvre inverse, à savoir passer des données d'un tableau à un formulaire feuille de calcul.



^* L'avantage d'un formulaire "feuille de calcul", c'est que tu n'as pas à gérer les types de données, puisque c'est un transfert de cellule à cellule. Ici, c'est un peu différent si tu as des dates ou des valeurs numériques qui seraient "mal" saisies. Mais le principe est là.

[djank]

Pierre Fauconnier

merci pour toutes ces explications, et bravo pour tout votre travail.