Sujet Précédent Sujet Suivant

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

Fermé
thesentry Messages postés 874 Date d'inscription dimanche 31 janvier 2010 Statut Membre Dernière intervention 22 février 2020 - Modifié par thesentry le 13/01/2014 à 10:10
thesentry Messages postés 874 Date d'inscription dimanche 31 janvier 2010 Statut Membre Dernière intervention 22 février 2020 - 13 janv. 2014 à 16:12
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 156 Date d'inscription mercredi 7 avril 2010 Statut Membre Dernière intervention 17 mars 2015 22
13 janv. 2014 à 10:11
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 874 Date d'inscription dimanche 31 janvier 2010 Statut Membre Dernière intervention 22 février 2020 16
Modifié par thesentry le 13/01/2014 à 11:00
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 156 Date d'inscription mercredi 7 avril 2010 Statut Membre Dernière intervention 17 mars 2015 22
13 janv. 2014 à 10:58
non tu mets juste le nom de la fonction.
0
Réponse 4 / 5
thesentry Messages postés 874 Date d'inscription dimanche 31 janvier 2010 Statut Membre Dernière intervention 22 février 2020 16
Modifié par thesentry le 13/01/2014 à 11:50
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 874 Date d'inscription dimanche 31 janvier 2010 Statut Membre Dernière intervention 22 février 2020 16
13 janv. 2014 à 16:12
Personne ?
0