Discussion :

[morobaboumar]

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.

[Jean-Philippe André]

Bonjour,

peux tu êtr eplus explicite sur ton besoin stp ? Les mêmes textboxes que ?

[morobaboumar]

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

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.

[Jean-Philippe André]

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

[morobaboumar]

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

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
 
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

Cordialement.

[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 :

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

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 :

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

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

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

[morobaboumar]

Bonjour Philllipe Tulliez,
Que pensez vous de ceci ?

Code :

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

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.

[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.

[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.

[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

[morobaboumar]

Message compris et enregistrés.

Code :

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

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 :

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
 
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.