Discussion :

[Bernard67]

Bonsoir le forum,
Je viens vers vous apres lecture du forum, (car + je lis et moins c'est clair dans mon esprit) pour avoir un peu d'aide au demarrage pour la construction de mon 1er userform.
J'ai 3 onglets,
"Source" ou doivent etre copies les données
"Listes modifiables" ou sont les données des listes
et 1 onglet"Formulaire" ou doit etre 1 ou plusieurs formulaires pour rentrer les données dans l'onglet "source" et pour modifier ou supprimer des données dans cet onglet.
Un petit coup de main pour le demarrage serait sympa.
Merci

[fring]

Bonsoir,

Ce lien ci n'est pas mal

[Qwazerty]

SAlut
Un petit exemple rapide
A++
Qwaz

[Bernard67]

Bonjour a tous,
Je vous remercie pour le lien.
Je me lance dès aujourd'hui !!!
Je pense que je ne manquerai pas de revenir vers vous.
Merci et bonne journée !!

[Bernard67]

Bonjour le forum,
Le formulaire de saisie et de validation est fait. Le resultat me parait bon. Mais j'ai un probleme avec la fonction UPPER pour mise en majuscules

Nom_prenomconverti = Application.WorksheetFunction.Upper(Me.Nom_prenom.Text)

Voici le code :

Code :

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

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 Private Sub cmdValider_Click()
    If Me.Annee.Text = "" Then
        MsgBox "Vous devez entrer une année."
        Me.Annee.SetFocus
        Exit Sub
    End If
    If Me.Mois.Text = "" Then
        MsgBox "Vous devez entrer un mois."
        Me.Mois.SetFocus
        Exit Sub
    End If
    If Me.Service.Text = "" Then
        MsgBox "Vous devez entrer un service."
        Me.Service.SetFocus
        Exit Sub
    End If
    If Me.Nom_prenom.Text = "" Then
        MsgBox "Vous devez entrer un nom et un prénom."
        Me.Nom_prenom.SetFocus
        Exit Sub
    End If
    If Me.delai.Text = "" Then
        MsgBox "Vous devez entrer un nom."
        Me.delai.SetFocus
        Exit Sub
    End If
    If Me.Lieu.Text = "" Then
        MsgBox "Vous devez entrer un lieu."
        Me.Lieu.SetFocus
        Exit Sub
    End If
    If Me.Projet.Text = "" Then
        MsgBox "Vous devez entrer un projet."
        Me.Projet.SetFocus
        Exit Sub
    End If
    If Me.Nature_tache.Text = "" Then
        MsgBox "Vous devez entrer une nature de tâche."
        Me.Nature_tache.SetFocus
        Exit Sub
    End If
    If Me.Entite_facturer.Text = "" Then
        MsgBox "Vous devez entrer une entité à facturer."
        Me.Entite_facturer.SetFocus
        Exit Sub
    End If
    If Me.Duree_jours.Text = "" Then
        MsgBox "Vous devez entrer un nombre de jours."
        Me.Duree_jours.SetFocus
        Exit Sub
    End If
 
' Conversion du nom et prénom en NOMPROPRE
 
    Nom_prenomconverti = Application.WorksheetFunction.Upper(Me.Nom_prenom.Text)
 
'Copie des valeurs du formulaire vers l'onglet "Source"
    Sheets("Source").Range("A65536").End(xlUp).Offset(1, 0).Value = Annee
    Sheets("Source").Range("B65536").End(xlUp).Offset(1, 0).Value = Mois
    Sheets("Source").Range("C65536").End(xlUp).Offset(1, 0).Value = Service
    Sheets("Source").Range("D65536").End(xlUp).Offset(1, 0).Value = Nom_prenom
    Sheets("Source").Range("E65536").End(xlUp).Offset(1, 0).Value = delai
    Sheets("Source").Range("F65536").End(xlUp).Offset(1, 0).Value = Lieu
    Sheets("Source").Range("G65536").End(xlUp).Offset(1, 0).Value = Projet
    Sheets("Source").Range("H65536").End(xlUp).Offset(1, 0).Value = Nature_tache
    Sheets("Source").Range("I65536").End(xlUp).Offset(1, 0).Value = Entite_facturer
    Sheets("Source").Range("J65536").End(xlUp).Offset(1, 0).Value = Duree_jours
 
    Unload Me
 
End Sub

[Qwazerty]

SAlut
Plusieurschose,
la 1er pense au balises code.
2eme l'utilisation de "Me." est complètement facultative
3eme chose pour la mise en majuscule utilise UCase

Code :

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

Mastring = Ucase(Mastring)

Pour l'avoir en minuscule c'est LCase

A++
Qwaz