Discussion :

[Data Lover]

Bonjour,

Je suis un débutant en VBA ,
je suis entrain de développer en vba un formulaire de masque de saisie qui permettra à l'utilisateur de saisir les informations et que les informations saisies soient stockées dans le fichier excel onglet DATA SOURCE (fichier ci joint) après clicque sur l'onglet validate .

Mon problème est que je sais pas comment afficher un calendrier dans un user forme (formulaire) pour permettre à l'utilisateur de facilement choisir la date du début et la date fin.

Svp quelqu'un pourrait-il m'aider sur ce problème ? ci-joint le fichier en question

Je souhaiterais que lorsque l'utilisateur clique sur la zone de texte au dessous de DATE DEBUT et DATE FIN que le calendrier s'affiche directement .

voici le code que j'ai fait

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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
Option Explicit ' déclaration explicite des variables dans toutes les procédures de ce module
Dim ws As Worksheet ' ws sera utilisé dans  l'ensemble des procédures
 
Private Sub ComboBox2_Change()
 
End Sub
 
' Cette procédure permet de fermer le formulaire
 
Private Sub CommandButton4_Click()
 
  Unload Me ' femeture user forme après click sur le boutton Close du formulaire
 
End Sub
 
 
 
Private Sub TextBox3_Change()
 
End Sub
 
Private Sub TextBox4_Change()
 
End Sub
 
Private Sub UserForm_Initialize()
 
Set ws = Sheets("DATA SOURCE")
Dim ligne  As Integer 'ligne
Dim col As Integer 'colonne
 
  ' dès le lancement du formulaire chargement de la barre de défilement
'remplissage du combobox2  ( la barre de défiliment de la liste du Counter Party )
'utilisation de la méthode additems
 
ComboBox2.AddItem "Socar Trading SA"
ComboBox2.AddItem "Stasco"
ComboBox2.AddItem "ING Bank NV"
ComboBox2.AddItem "Macquarie Bank Limited"
ComboBox2.AddItem "Mitsui Bussan Commodities Ltd."
ComboBox2.AddItem "RWE Supply and Trading GmbH"
ComboBox2.AddItem "Totsa"
ComboBox2.AddItem "Britannic Trading Limited"
ComboBox2.AddItem "Goldman Sachs International"
ComboBox2.AddItem "EDF Trading  Ltd"
 
End Sub
 
 
' ***************************************************
  ' Cette procédure permet de charger               *
  'les données saisies par l'utilisateur  dans      *
  ' l'onglet DATA SOURCE du fichier excel           *
  '  après click sur la commande validate           *
  '**************************************************
 
Private Sub CommandButton3_Click()
   ' commandButton3 = au boutton validate
   '1  déclaration
   Dim i As Integer
   Dim ligne As Integer
   Dim ws As Worksheet
   Set ws = Sheets("DATA SOURCE")
 
     ws.Activate ' activation de la feuille de l'onglet DATA SOURCE
 
 
  ' on utilise xlDown = si pas de cellule vide sinon on utilise xlUp = s'il ya cellule vide ou pour éviter les cellules vides
 
   ' Importation de données saisie dans la collonne A
 
    If IsNumeric(TextBox1.Value) = True Then
 
      Range("A1048576").End(xlUp).Offset(1, 0) = TextBox1.Value    ' saisie des valeurs dans la collonne A, A1048576 est la dernière cellule , l'idée suis partie de la dernière cellule puis de remonter vers le haut A1 pour éviter le bug quand il 'ya des cellules vides
    End If
 
     ' Importation de données saisies dans la collonne B
 
    If IsNumeric(TextBox2.Value) = True Then
 
      Range("B1048576").End(xlUp).Offset(1, 0) = TextBox2.Value    'saisie des valeurs dans la collonne B, B1048576 est la  dernière cellule de la collonne B
    End If
 
    ' Importation de données choisie depuis la liste déroulante (Counter Party)  dans la collonne C
 
    If IsNumeric(ComboBox2.Value) = False Then
      Range("E1048576").End(xlUp).Offset(1, 0) = ComboBox2.Value
    End If
 
    If TextBox3.Value <> " " Then
 
     Range("C1048576").End(xlUp).Offset(1, 0) = TextBox3.Value
    End If
 
    If TextBox4.Value <> " " Then
 
     Range("D1048576").End(xlUp).Offset(1, 0) = TextBox4.Value
    End If
 
    end sub

Projet_Masque_Saisie (3).xlsm

[Menhir]

Ton code est déjà très mal parti.

Quand tu places les données du formulaire dans ta feuille, tu les testes une par une et tu les places dans la première cellule vide de leur colonne.
Ca signifie que tes enregistrements peuvent être décalés.

Je t'explique avec tes deux premières valeurs :

Code :

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

1
2
3
4
5
6
    If IsNumeric(TextBox1.Value) = True Then
       Range("A1048576").End(xlUp).Offset(1, 0) = TextBox1.Value
    End If
    If IsNumeric(TextBox2.Value) = True Then
      Range("B1048576").End(xlUp).Offset(1, 0) = TextBox2.Value    'saisie des valeurs dans la collonne B, B1048576 est la  dernière cellule de la collonne B
    End If

Imaginons un instant que la saisie dans TextBox1 soit numérique et celle de TextBox2 ne le soit pas pour la première saisie.
La valeur de TextBox1 sera placée en A1 et B1 restera vide.

A la seconde saisie, si les deux sont numériques, TextBox1 se placera en A2 et TextBox2 en B1.
Donc, les données de la seconde saisie se retrouveront mélangées entre la ligne 1 et la ligne 2.

Il faut que tu rectifies deux chose dans ton code :

Premièrement, il faut tester l'ensemble de tes valeurs pour savoir si elles sont TOUTES conformes et n'en transférer AUCUNE si UNE SEULE est non conforme.

Deuxièmement, il faut que tu détermines une seule fois la ligne qui sert à l'enregistrement des données (un seul End(xlUp)), placer cette valeur dans une variable et utiliser cette variable pour le transfert des Box vers les cellules.

[Data Lover]

Merci Menhi pour ta réponse .

ok je ferai de telle sorte que les valeurs soient saisie soient numérique et si l'une ne l'est pas aucune donnée ne sera enregistré.

la première ligne est considérée comme entête, donc les données s'enregistre a partir de la deuxième ligne.

Mon problème n'est toujours pas répondu, stp sais tu comment on affiche un calendrier dans un user form (formulaire ) lorsqu'un utilisateur clique sur la zone de texte en bas de date debut et date fin (voir formulaire dans le fichier ci-joint) de choisir les dates début et date fin ?

[Menhir]

la première ligne est considérée comme entête, donc les données s'enregistre a partir de la deuxième ligne.

Peu importe. Même si le premier enregistrement était à la ligne 100, le raisonnement serait le même.
Et ça ne concerne pas seulement les premières saisies mais aussi TOUTES celles qui suivront.

voir formulaire dans le fichier ci-joint

Comme beaucoup de participants actifs de ce forum, je n'ouvre pas les fichiers joints, surtout s'ils peuvent contenir des macros.
Lire ça : https://www.developpez.net/forums/d8...s-discussions/

Mon problème n'est toujours pas répondu

Les UserForm ne sont pas mon meilleur domaine d'expertise. Je n'aime pas les utiliser, je les trouve (c'est juste un avis) moches et souvent peu ergonomiques.
En particulier, je n'en utilise JAMAIS pour faire une simple saisie d'enregistrement dont les données vont simplement être transférées dans une ligne de feuille de calcul. Excel dispose de beaucoup plus d'outils de vérification et de mise en forme pour faciliter et fiabiliser des saisies (tout particulièrement si la valeur saisie est une date).
Bref, les UF, plus je peux m'en passer, mieux je me porte (et mes utilisateurs aussi).
Mais, je le répète, c'est juste mon ressenti et que conçoit que d'autres puissent ne pas le partager.

On ce qui concerne la saisie de date dans un UserForm, c'est toujours compliqué.

Soit on utilise un objet spécialisé de type "calendrier" mais chaque version d'Excel a le sien (ou pas) et donc la procédure n'est pas pérenne et ne permet pas le passage d'une version à l'autre.
Comme tu n'as même pas indiqué la version que tu utilises, il n'est pas possible de dire si ce serait possible dans ton cas.

Soit on utilise une banale TextBox en saisissant la date "à la main".
Mais dans ce cas, il faut prendre de grandes précautions pour ne pas se faire piéger par l'anglophilie de VBA qui inversera jour et mois dans la moitié des cas.

Bref, comme on dit chez nous, tu n'as pas le cul sorti des ronces.
J'espère que d'autres pourront t'apporter une réponse plus exploitable.