Comment faire en sorte que les mêmes textbox d'un Userform insèrent les données ?

Version imprimable

27/07/2022, 20h08
morobaboumar

Comment faire en sorte que les mêmes textbox d'un Userform insèrent les données ?

Bonsoir membres du forum,
Je reviens avec une nouvelle discussion qui est la suite de celle ci https://www.developpez.net/forums/d2...euilles-excel/
Intitulée Comment faire en sorte que 2 textbox d'un UserForm insèrent les données
dans deux cellules selon la feuille active d'un classeur ?
Cordialement.
27/07/2022, 20h37
Jean-Philippe André

Bonjour,

peux tu êtr eplus explicite sur ton besoin stp ? Les mêmes textboxes que ?
27/07/2022, 21h56
morobaboumar

Bonsoir Jean Philippe André,
Heureux d'être avec vous !

Citation:

peux tu être plus explicite sur ton besoin stp ? Les mêmes textboxes que ?

J'ai un classeur avec un Userform contenant deux zones de texte dont l'un de type numérique et
l'autre textbox de type Date/Heure et un bouton de commande Enregistrer qui au clique insére
les données des textbox dans les 2 cellules
correspondantes.
Et cela, pour chaque feuille active.
Le Userform capable d'envoyer les données sur chaque page active.
Cordialement.
27/07/2022, 22h53
Jean-Philippe André

D'accord, et sur cet objectif, quelle est l'étape sur laquelle tu as des soucis pr.sentement ?

2 pièce(s) jointe(s)

Bonjour Jean-Philippe André,
je voudrais programmer ce code de sorte qu'il puis réaliser l'objectif signalé au départ.

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
 
Private Sub CmdButtonENREGISTRER_Click() ' Enregistrer
 
    If Me.Montant_Mobile = "" Then
        MsgBox "Vous n'avez pas renseigné le montant a Partager", vbInformation, "Saisie manquante"
        Me.Montant_Mobile.SetFocus
        Exit Sub
    End If
    Dim rep As Byte
    rep = MsgBox("Voulez vous enregistrer cette fiche", vbOKCancel)
    If rep <> 1 Then Exit Sub
    If Me.Date_Mobile Like "##/##/####" And IsDate(Date_Mobile.Value) Then
 
        Worksheets("PARTAGE GLOBAL").Range("G5").Value = CDbl(Montant_Mobile.Value)        ''  << ici
        Worksheets("PARTAGE GLOBAL").Range("G4").Value = CDate(Date_Mobile.Value)     ''  << ici
    Else
 
        MsgBox "Attention, saisissez une date de réception en respectant le format JJ/MM/AAAA.", vbExclamation, "Saisie manquante"
        Date_Mobile.SetFocus
        Exit Sub
 
        '__________________________________________________________________________
        With ThisWorkbook.Worksheets("PARTAGE GLOBAL").Range("G5")
            .Value = Montant_Mobile.Value
            .NumberFormat = "#,##0"
        End With
    End If
    '__________________________________________________________________________
 
 
End Sub

Pièce jointe 623007

Cordialement.

28/07/2022, 09h02
Philippe Tulliez

Bonjour,
Pour écrire dans une cellule d'une feuille paticulière, il faut préciser la parentalité complète soit pour la cellule B4 de la feuille nommée Data du classeur où se trouve le code VBA

Code:

ThisWorkbook.Worksheets("Data").Range("B4").Value = 100

S"il s'agit d'écrire dans la cellule B4 de la feuille active, il suffit d'utiliser l'objet ActiveSheet soit

Code:

ActiveSheet.Range("B4").Value = 100

A lire éventuellement mon billet Excel VBA - La parentalité d’un objet

Bonjour Philllipe Tulliez,
Que pensez vous de ceci ?

Code:

1
2
3
4
5
6
7
        Worksheets("PARTAGE GLOBAL").Range("G5").Value = CDbl(Montant_Mobile.Value)       
        Worksheets("PARTAGE GLOBAL").Range("G4").Value = CDate(Date_Mobile.Value) 
 
'à la place juste les ranges  : 
 
Range("G5").Value = CDbl(Montant_Mobile.Value)  
Range("G4").Value = CDate(Date_Mobile.Value)

Cordialement.

28/07/2022, 15h20
Philippe Tulliez

Bonjour,
Je doute que cela corresponde à ma réponse par rapport à votre demande qui était d'écrire dans la feuille active mais si celle-ci se nomme "PARTAGE GLOBAL" cela a dû fonctionner
Mais au lieu de demander ce que l'on en pense, avez-vous seulement essayé le code que vous publiez et qu'en pensez-vous ?

Je me demande finalement si vous n'êtes pas un "Troll" qui nous même en bateau depuis quelques temps.
28/07/2022, 17h10
morobaboumar

Bonsoir Philippe Tulliez,
Je ne recherche pas à offenser qui que soit.
Je vous respecter et je serai tout le temps.
Soyez patient avec moi car je ne suis qu'un apprenant.
J'ai exploré votre œuvre https://www.developpez.net/forums/bl...alite-d-objet/ très impressionnante.
C'est maintenant que découvre l'une des meilleures programmations. Vous me donnez une formation commando,
j'espère pouvoir tenir le coup. Vraiment merci infiniment.

Cordialement.
28/07/2022, 17h21
Philippe Tulliez

Bonjour,
Merci d'avoir apprécié mon article mais il est parfaitement inutile de chaque fois faire une copie d'écran de ce que vous consultez. Avez-vous vraiment lu les règles de ce forum ?
Vous semblez vraiment ignorer tout ce que l'on vous dit.

Je crois que je vais arrêter ici de répondre à vos questions car je perds mon temps

Remerciement

Message compris et enregistrés.

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
  Dim sht As Worksheet
  'Set sht = ThisWorkbook.Sheets("PARTAGE GLOBAL")
  'Set sht = ThisWorkbook.ActiveSheet
  Set sht = Sheets("PARTAGE GLOBAL")
  Set sht = ActiveSheet
  With sht
  .Protect UserInterfaceOnly:=True, Password:="oumar"
  End With
  Set sht = Nothing
End Sub

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
 
Private Sub CmdButtonENREGISTRER_Click() ' Enregistrer
 
    If Me.Montant_Mobile = "" Then
        MsgBox "Vous n'avez pas renseigné le montant a Partager", vbInformation, "Saisie manquante"
        Me.Montant_Mobile.SetFocus
        Exit Sub
    End If
    Dim rep As Byte
    rep = MsgBox("Voulez vous enregistrer cette fiche", vbOKCancel)
    If rep <> 1 Then Exit Sub
    If Me.Date_Mobile Like "##/##/####" And IsDate(Date_Mobile.Value) Then
 
        'Worksheets("PARTAGE GLOBAL").Range("G5").Value = CDbl(Montant_Mobile.Value)        ''  << ici
        'Worksheets("PARTAGE GLOBAL").Range("G4").Value = CDate(Date_Mobile.Value)     ''  << ici
   Range("G5").Value = CDbl(Montant_Mobile.Value)
    Range("G4").Value = CDate(Date_Mobile.Value)
 
    Else
 
        MsgBox "Attention, saisissez une date de réception en respectant le format JJ/MM/AAAA.", vbExclamation, "Saisie manquante"
        Date_Mobile.SetFocus
        Exit Sub
 
        '__________________________________________________________________________
        With ThisWorkbook.Worksheets("PARTAGE GLOBAL").Range("G5")
            .Value = Montant_Mobile.Value
            .NumberFormat = "#,##0"
        End With
    End If
    '__________________________________________________________________________
 
 
End Sub

Cordialement.