[VBA] Ranger des réponses dans un tableau Excel Fermé

Question

Bonjour, 

Pour un projet, j'ai différents userforms avec différents choix possibles. Les réponses que l'utilisateur saisira devront se ranger provisoirement dans un tableau Excel (dans la colonne A par exemple). 

Comment faire ? J'aimerai généraliser cette procédure en la déclarant dans Modules en nommant cette procédure XXXXX par exemple.

J'ai réussi à sortir ça dans Modules 

'affichage historique dans colonne A
Sub test1(u As Object)
If CommandButton1.Value = 1 Then Sheets("Feuil1").Range("A65536").End(xlUp)(2).Value = u.Name
retour = 0
End Sub

(CommandButton1 = Valider)

Mais je ne sais pas comment l'implanter dans le code de mes UF pour que cela s'exécute à chaque fois que l'utilisateur cliquera sur Valider sur un UF.

Merci d'avance pour votre aide

winflow · Answer

Bonjour,

Il faut rajouter une fonction évènement sur ton bouton dans ton UF (affiche ton UF, clique droit sur ton bouton Code). Et là tu appel ta fonction qui se trouve dans ton module.

thesentry · Answer

Bonjour,

Comment l'appeler ? 

Test1 Me ?

Sur mon bouton "Valider", j'ai mis

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then 
Call historique
End If
If CheckBox2.Value = True Then 
Call historique
End If
If CheckBox3.Value = True Then 
Call historique
End If
End Sub

mais ça ne fonctionne pas et je pense que c'est normal

winflow · Answer

non tu mets juste le nom de la fonction.

thesentry · Answer

Ben ça ne marche pas.

En oubliant le module,

Si je veux ranger dans le tableau la chaine de caractères correspondant à la case sélectionner par l'utilisateur, comment je fais ?

J'ai tenté ça mais ça ne marche pas :

If CheckBox1.Value = True Then
x = "Raison 1"
x = Range(Range("A1"), Range("A65000").End(xlUp)).Interior.ColorIndex = 35
End If

Raison 1 c'est le contenu du premier choix sur mon UF. Je ne sais pas comment le récupérer directement, sans avoir à passer par x = "LECONTENU" puis x = Range....

thesentry · Answer

Personne ?