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

thesentry Messages postés 1014 Date d'inscription   Statut Membre Dernière intervention   -  
thesentry Messages postés 1014 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

5 réponses

Réponse 1 / 5
winflow Messages postés 157 Date d'inscription   Statut Membre Dernière intervention   22
 
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.
0
Réponse 2 / 5
thesentry Messages postés 1014 Date d'inscription   Statut Membre Dernière intervention   16
 
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
0
Réponse 3 / 5
winflow Messages postés 157 Date d'inscription   Statut Membre Dernière intervention   22
 
non tu mets juste le nom de la fonction.
0
Réponse 4 / 5
thesentry Messages postés 1014 Date d'inscription   Statut Membre Dernière intervention   16
 
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....
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
thesentry Messages postés 1014 Date d'inscription   Statut Membre Dernière intervention   16
 
Personne ?
0