Discussion :

[aninie78]

Bonjour,
Je souhaite créer une macro sous VBA avec Excel 2010.
Le principe c'est de cliquer sur la cellule Check, on récupère le numéro de la ligne et colonne et on ouvre un formulaire pour de 4 Boutons de pourcentage (0, 25, 50 et 100%) et une zone de saisie pour le temps de formation pratique.
En fonction du bouton appuyé, on vient recopier dans la cellule de destination le pourcentage et le temps de formation cumulé.

Listes des compétences		Check		PROGRESSION	TEMPS Formation Minutes
Compétences n°1			26/02/2016	25%		25
Compétences n°2					0%	
Compétences n°3					0%	
Compétences n°4					0%	
Compétences n°5					0%

Le but est d'éviter de créer une formulaire pour chaque compétences mais d'utiliser le même formulaire.

Etant débutante en VBA, je sais pas si je peux créer une variable générique pour l'utiliser à chaque appel du formulaire. J'utilise cette fonction pour appeler le formulaire (quand j'appuie sur la colonne 2) :

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 If Target.Column = 2 Then UserForm1.Show
 
End Sub

Merci d'avance de votre aide

[Daniel.C]

Bonjour,

Simplement, dans l'initialisation du userform (Private Sub UserForm_Activate), utilise "Target.Row" et "Target.Column" pour récupérer la ligne et la colonne.
Si ce n'est pas clair, n'hésite pas à demander des précisions.

[aninie78]

Merci pour votre réponse mais je ne comprends pas tout. Je dois les déclarer à quel endroit mes variables globales ?
J'ai fais comme ca mais ca me dit Objet Requis.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Activate()
    Dim Ligne As Integer
    Ligne = Target.Row
    Dim Colonne As Integer
    Colonne = Target.Column + 2
End Sub
 
Private Sub CommandButton1_Click() 'Bouton 100% par exemple
 
Range.Cells(Ligne, Colonne).Value = "100%"
 
Unload UserForm1
End Sub

[Daniel.C]

Oups, au temps pour moi.

Les variables globales sont en tête d'un module standard :

Code :

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

1
2
 
Public Ligne As Long, Colonne As Integer

La macro événementielle :

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 Then
        Ligne = Target.Row
        Colonne = Target.Column
        UserForm1.Show
    End If
End Sub

Le code dans le userform :

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
    Cells(Ligne, Colonne).Value = "100%"
    Unload UserForm1
End Sub

C'est tout.

[aninie78]

Merci beaucoup, ca marche comme je le voulais !!