Remplissage grille via UserForm

Version imprimable

Voir 40 message(s) de cette discussion en une page

bonjour, je viens vers vous car je n'arrive pas à trouver la syntaxe VBA pour ce que je souhaite faire:
J'ai un onglet 1 avec en Ordonné les dates et en Abscisses des horaires (9h00-10h00, 10h00-11h00, 14h00-15h00 etc...)

J'ai également une userform qui demande un numéro (de formation afin de les classer par la suite), la date et l'heure de la dite formation.
Je souhaiterai via les données entrées dans la UserForm remplir ma première grille

Par exemple si je mets dans ma Userform le numéro de formation 2 au 03/03/16 de 9h00 à 10h00, je souhaiterai que le numéro de la formation se retrouve à l'intersection de la dite date et de l'horaire associé.

J'ai repris une macro d'un collègue mais elle ne réponds pas du tout à ce que je souhaite faire: la voici

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Remplissage_grille()
Set x = Application.Intersect(Range("TextBox2.Value"), Range("ComboBox1.Value"))            'Détermination du champs d'éxécution de la macro
    Set c = ActiveCell                                             'redéfinition de la cellule active  en objet c (peut être omis)
    n_ligne = c.Row                                                'ligne de la cellule active dans le champs
    n_colon = c.Column                                             'colonne de la cellule active dans le champs
    Set a = Range("B" & n_ligne)                                   'selection de la date de la cellule active
    Set b = Cells(3, n_colon)                                      'selection de l'heure de la cellule active
 
    If Not Range("J4").Offset(1, 0) = "" Then i = Range("J4", Range("J4").End(xlDown)).Count Else i = 1         'i correspond au nombre de créneaux réservés /vaut 1 si aucune réservation
 
 
    If Not x Is Nothing Then                                                                                    'si le changement ne s'effectue pas en dehors de la plage alors
 
            If Not c.Value = "" Then                                                                            'si la contenu de la cellule active n'est pas vide
            Range("J" & i + 4) = c
            'Range("K" & i + 1) =
            Range("L" & i + 4) = a
            Range("M" & i + 4) = b
 
            End If
    End If
 
End Sub

Etant novice en VBA je me permet de compter sur vous....
Merci d'avance
Cl3m_

Bonjour,

Essaie ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Placer()
    Dim Ligne As Long, Colonne As Long
    Dim Valeur
    Dim Horaire As String
    Dim dDate As Date
    Dim Recherche As Range
 
    Valeur = 5
    Horaire = "10h00-11h00"
    dDate = #2/15/2016#     'pour fins de tests
 
    'En assumant que les horaires sont en ligne 2
    Set Recherche = Sheets("Feuil1").Rows(2).Find(Horaire, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then Colonne = Recherche.Column
 
    'En assumant que les dates sont en colonne 1
    Set Recherche = Sheets("Feuil1").Columns(1).Find(dDate, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then Ligne = Recherche.Row
 
    If Ligne > 0 And Colonne > 0 Then
        Sheets("Feuil1").Cells(Ligne, Colonne) = Valeur
    End If
End Sub

08/03/2016, 16h12
cl3m_

Bonjour,
Merci pour ta réponse,
Le problème est que ton code prends a partir d'une liste puis renvoi le numéro à l'intersection des horaires et de la date si je ne me trompe pas. Or mon problème est que je dois prendre les valeurs directement à partir de la Userform quand elle est remplie.
As-tu une idée?

Merci encore pour ta réponse.
Cl3m_
08/03/2016, 16h28
parmi
Je ne connais pas ton fichier ni ton Userform, mais c'est même principe
Code:

1 2 3 4 Valeur = Me.txtValeur.Value Horaire = Me.txtHoraire.Value dDate = Me.txtDate.Value 'ou CDate(Me.TxtDate) ou autre selon...
En autant que tu retrouves les mêmes données dans tes champs du Userform et sur ta feuille...
Mais j'ai peut-être mal compris la problématique (?)
08/03/2016, 16h37
cl3m_

1 pièce(s) jointe(s)

Je me trompe peut être hein! :/
Ci-joint mon fichier:
Onglet1: calendrier
Onglet 2: Liste de formation (avec des numéro)
Onglet 3: Liste de formation (Avec des lettres)

J'ai du faire une distinction avec lettre et chiffre pour les formations car elle sont différentes (techniques et théoriques)

Le principe est que la personne qui fait la formation arrive sur le fichier, appui sur le bouton planification( onglet1), rempli les champs du UserForm, puis ca rempli la liste correspondante, et en plus je voudrais que ca remplisse le calendrier: mettre le numéro/lettre de la formation à l'intersection de la date et de l'horaire pour cette formation. Je me disait donc qu'il était plus simple de prendre les valeurs directement a partir de la UserForm. En plus, serait-il possible que ca me renvoi un message d'erreur si la formation que l'on essaye de planifier tombe sur une formation déjà planifiée? (Je n'arrive pas avec la syntaxe principalement)

Bref je suis pas doué pour le VBA.....

Merci pour ton aide encore une fois.
08/03/2016, 16h59
parmi

Désolé, mais je ne peux ouvrir de fichier avec macros au bureau...

À la fin de CommandButton1_Click, mets

Code:

InscrireCalendrier

Dans un module, mets ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub InscrireCalendrier()
    Dim Ligne As Long, Colonne As Long
    Dim Valeur
    Dim Horaire As String
    Dim dDate As Date
    Dim Recherche As Range
 
    Valeur = UserForm1.TextBox9
    Horaire = UserForm1.ComboBox1.Text
    dDate = UserForm1.TextBox2
 
    'En assumant que les horaires sont en ligne 2
    Set Recherche = Sheets("Calendrier").Rows(3).Find(Horaire, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then Colonne = Recherche.Column
 
    'En assumant que les dates sont en colonne 1
    Set Recherche = Sheets("Calendrier").Columns(2).Find(dDate, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then Ligne = Recherche.Row
 
    If Ligne > 0 And Colonne > 0 Then
        Sheets("Calendrier").Cells(Ligne, Colonne) = Valeur
    End If
End Sub

PS: tu devrais utiliser des noms de contrôles explicites plutôt que les noms par défaut.
Textxbox9 ne veut rien dire.
Tu pourrais l'appeler txtNumero

Bonjour,
Merci pour ta réponse, ton code marche parfaitement, je te remercie pour ton aide.
Je viens de remarquer quelque chose: Quand j'inscris une formation et que j'essaye d'en placer une seconde, la seconde remplace la première, or je souhaiterai qu'elle se mette à la suite.

Je suppose qu'il faut rajouter une ligne dans ce code (CF), mais je n'ai pas la syntaxe ....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
If IsNumeric(TextBox9.Value) = True Then        'Si la case numéro est un nombre alors
         If Not Sheets("numéro").Range("B5").Offset(1, 0) = "" Then Ligne = Range("B5", Range("B5").End(xlDown)).Count Else Ligne = 1
                       With Sheets("numéro")
                           .Range("B" & 4 + Ligne).Value = TextBox9.Value   'numéro
                           .Range("C" & 4 + Ligne).Value = TextBox1.Value   'formation
                           .Range("D" & 4 + Ligne).Value = TextBox4.Value   'description
                           .Range("E" & 4 + Ligne).Value = TextBox3.Value   'standard
                           .Range("F" & 4 + Ligne).Value = TextBox5.Value  'référent
                           .Range("G" & 4 + Ligne).Value = TextBox2.Value  'date prévue
                           .Range("H" & 4 + Ligne).Value = ComboBox1.Value  'horaires
                           .Range("J" & 4 + Ligne).Value = TextBox7.Value  'lieu
                           .Range("K" & 4 + Ligne).Value = ComboBox2.Value  'qualification
                        End With

Code:

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
26
27
28
29
30
31
32
33
With Sheets("numéro")
    Ligne = .Range("B5", .Range("B5").End(xlDown)).Coun
End With
 
If IsNumeric(TextBox9.Value) = True Then        'Si la case numéro est un nombre alors
                       With Sheets("numéro")
                           .Range("B" & 4 + Ligne).Value = TextBox9.Value   'numéro
                           .Range("C" & 4 + Ligne).Value = TextBox1.Value   'formation
                           .Range("D" & 4 + Ligne).Value = TextBox4.Value   'description
                           .Range("E" & 4 + Ligne).Value = TextBox3.Value   'standard
                           .Range("F" & 4 + Ligne).Value = TextBox5.Value  'référent
                           .Range("G" & 4 + Ligne).Value = TextBox2.Value  'date prévue
                           .Range("H" & 4 + Ligne).Value = ComboBox1.Value  'horaires
                           .Range("J" & 4 + Ligne).Value = TextBox7.Value  'lieu
                           .Range("K" & 4 + Ligne).Value = ComboBox2.Value  'qualification
                        End With
 
ElseIf IsNumeric(TextBox9.Value) = False Then  'Sheets("lettre").Activate
                       With Sheets("lettre")
                           .Range("B" & 4 + Ligne).Value = TextBox9.Value   'numéro
                           .Range("C" & 4 + Ligne).Value = TextBox1.Value   'formation
                           .Range("D" & 4 + Ligne).Value = TextBox4.Value   'description
                           .Range("E" & 4 + Ligne).Value = TextBox3.Value   'standard
                           .Range("F" & 4 + Ligne).Value = TextBox5.Value  'référent
                           .Range("G" & 4 + Ligne).Value = TextBox2.Value  'date prévue
                           .Range("H" & 4 + Ligne).Value = ComboBox1.Value  'horaires
                           .Range("J" & 4 + Ligne).Value = TextBox7.Value  'lieu
                           .Range("K" & 4 + Ligne).Value = ComboBox2.Value  'qualification
                        End With
 
End If
'Call Comparaison
InscrireCalendrier

10/03/2016, 13h27
cl3m_

1 pièce(s) jointe(s)

Alors je dois pas être doué avec VBA, car ca ne marche pas..... :(
Ca remplit bien le calendrier mais ca ne remplit plus les listes.
Ci-joint le fichier.

Désolé de t'embêter....

Efface les données plus bas dans les 2 feuille (numéro et lettre) et remplace ton code du CommandButton_Click par ceci.

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub CommandButton1_Click()
 
    If TextBox9.Value = "" Then 'si le numéro de formation est vide alors
        MsgBox ("entrez numéro formation")
    ElseIf TextBox1.Value = "" Then    'si l'intitulé de formation est vide alors
        MsgBox ("entrez un intitulé de formation")
    ElseIf TextBox2.Value = "" Then 'si la date de formation est vide alors
        MsgBox ("entrez une date")
    ElseIf ComboBox1.Value = "" Then  'si l'horaire de la formation est vide alors
        MsgBox ("entrez un horaire")
    ElseIf ComboBox2.Value = "" Then  'si la qualification de la formation est vide alors
        MsgBox ("entrez la qualification de la formation")
    End If
 
    If IsNumeric(TextBox9.Value) = True Then 'Si la case numéro est un nombre alors
        With Sheets("numéro")
             Ligne = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
            .Range("B" & Ligne).Value = TextBox9.Value  'numéro
            .Range("C" & Ligne).Value = TextBox1.Value  'formation
            .Range("D" & Ligne).Value = TextBox4.Value 'description
            .Range("E" & Ligne).Value = TextBox3.Value  'standard
            .Range("F" & Ligne).Value = TextBox5.Value 'référent
            .Range("G" & Ligne).Value = TextBox2.Value  'date prévue
            .Range("H" & Ligne).Value = ComboBox1.Value  'horaires
            .Range("J" & Ligne).Value = TextBox7.Value  'lieu
            .Range("K" & Ligne).Value = ComboBox2.Value  'qualification
        End With
 
    ElseIf IsNumeric(TextBox9.Value) = False Then 'Sheets("lettre").Activate
        With Sheets("lettre")
            Ligne = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
            .Range("B" & Ligne).Value = TextBox9.Value 'numéro
            .Range("C" &  Ligne).Value = TextBox1.Value 'formation
            .Range("D" & Ligne).Value = TextBox4.Value 'description
            .Range("E" & Ligne).Value = TextBox3.Value 'standard
            .Range("F" & Ligne).Value = TextBox5.Value 'référent
            .Range("G" & Ligne).Value = TextBox2.Value 'date prévue
            .Range("H" & Ligne).Value = ComboBox1.Value 'horaires
            .Range("J" & Ligne).Value = TextBox7.Value 'lieu
            .Range("K" & Ligne).Value = ComboBox2.Value 'qualification
        End With
 
    End If
 
    Call InscrireCalendrier
    UserForm1.Hide
 
End Sub

10/03/2016, 15h43
cl3m_

Merci pour ta réponse,
Alors ce qui est bizzar c'est que quand je test avec une lettre ca fonctionne mais avec un chiffre pas du tout....
10/03/2016, 17h37
parmi

As-tu bien effacé les lignes jusqu'en bas complètement dans les 2 feuilles lettre et numéro ?
10/03/2016, 18h17
cl3m_

Ah effectivement il y en avait beaucoup plus bas des précedents test que j'ai fais.

Merci encore pour ta précieuse aide!!!!
Puis-je revenir vers toi en cas de problème sur la suite de mon projet?

Merci encore!
10/03/2016, 18h29
parmi

Si c'est toujours en relation avec cette partie, oui.
Sinon, je te suggère d'ouvrir un nouveau message... ;)
10/03/2016, 18h45
cl3m_

Dans un sens oui, maintenant je cherche à faire en sorte que quand un numéro (chiffre ou lettre) à déjà été utilisé, une msgbox s'ouvre (afin de ne pas avoir deux formations avec le même "intitulé"), ainsi que quand une formation et planifiée sur un créneau déjà existant (dans la page calendrier)

Qu'en penses tu?
Merci encore pour ton aide.

Pour valider l'entrée du numéro, ajoute les dernières lignes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
    Dim Recherche As Range
    
    If TextBox9.Value = "" Then 'si le numéro de formation est vide alors
        MsgBox ("entrez numéro formation")
    ElseIf TextBox1.Value = "" Then    'si l'intitulé de formation est vide alors
        MsgBox ("entrez un intitulé de formation")
    ElseIf TextBox2.Value = "" Then 'si la date de formation est vide alors
        MsgBox ("entrez une date")
    ElseIf ComboBox1.Value = "" Then  'si l'horaire de la formation est vide alors
        MsgBox ("entrez un horaire")
    ElseIf ComboBox2.Value = "" Then  'si la qualification de la formation est vide alors
        MsgBox ("entrez la qualification de la formation")
    End If
    
    If DéjàEntrée(TextBox9.Value) Then
        MsgBox "Le numéro a déjà été utilisé", vbInformation, "Erreur de numéro"
        Exit Sub
    End If

Et ajoute une Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function DéjàEntrée(Donnée As String) As Boolean
    Dim Recherche As Range
    Dim Sh As Worksheet
 
    If IsNumeric(Donnée) Then
        Set Sh = Sheets("numéro")
    Else
        Set Sh = Sheets("lettre")
    End If
    Set Recherche = Sh.Columns("B").Find(Donnée, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then
        DéjàEntrée = True
    End If
End Function

14/03/2016, 08h39
cl3m_

Ca marche du tonnerre!!!! Merci encore pour ton aide,
Si je puis me permettre une dernière question...
Comment faire pour empêcher l'utilisateur de planifier une formation sur un créneau qui est déjà bloquer par une autre formation?

Merci encore pour tes réponses!!!
14/03/2016, 10h35
parmi

Utilise le même principe que le message précédent.
Cette fois, tu regardes dans les créneaux pour trouver la plage, puis si la cellule est remplie, tu retournes VRAI.

Donc quand tu valides, si la Function est vraie, tu mets un message et tu sors de la Sub pour permettre un changement de créneau.

Donc si j'ai bien compris on a dans la user form en plus:

Code:

1
2
3
If  Conflit(TextBox2.Value)&(ComboBox1.Value) Then                                                 'textbox2=Date, combobox1= horaire
        MsgBox "Le créneau que vous souhaitez reserver est déjà pris", vbInformation, "Plage horaire"
        Exit Sub

Et en plus une autre fonction dans un autre module:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function Conflit(Donnée As String) As Boolean
    Dim Recherche As Range
    Dim Sh As Worksheet
 
 
    Set Sh = Sheets("calendrier")
 
    Set Recherche = Sh.Columns("C:F").Find(Donnée, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then
        Conflit= True
    End If
End Function

Merci encore!

Voir 40 message(s) de cette discussion en une page