Microsoft 365 Récupérer la valeur d'une cellule dans un userform

[FCMLE44]

Bonjour

Dans un userform Montants, je souhaite dans une textbox (texbox13) y insérer la valeur de la cellule I2 de la feuille 2

J'ai donc fait cela

Private Sub TextBox13_Change()
Sheets("Feuil2").Range("I2") = Montants.TexBox13
End Sub

Private Sub UserForm_Initialize()
    Me.TexBox13 = Sheets("Feuil2").Range("I2")
    ComboBox2.List = Worksheets("Feuil2").Range("I2:I10").Value
End Sub

Le code bloque au niveau de cette partie

    Me.TexBox13 = Sheets("Feuil2").Range("I2")

Quelqu'un aurait il une idée ? Merci

 

[FCMLE44]

Yes j'ai réussi
Par contre il doit y avoir quelquechose qui me manque car dans la partie droite d mon userform "Eléments composant le Net", je n'ai pas le menu déroulant comme à gauche

Option Explicit

Private Sub UserForm_Initialize()
  Dim chn$, dlg As Byte, i As Byte: chn = "Paramètres"
  With Worksheets(chn)
    Lib01 = .[Y2]: chn = chn & "!": dlg = .Cells(Rows.Count, 1).End(3).Row
    For i = 2 To 9
      Controls("Lib0" & i).RowSource = "=" & chn & "Y3:Y13" & dlg
    Next i
  End With
End Sub

Private Sub Lib01_Change(): [B83] = Lib01: End Sub
Private Sub Lib02_Change(): [B84] = Lib02: End Sub
Private Sub Lib03_Change(): [B85] = Lib03: End Sub
Private Sub Lib04_Change(): [B86] = Lib04: End Sub
Private Sub Lib05_Change(): [B87] = Lib05: End Sub
Private Sub Lib06_Change(): [B88] = Lib06: End Sub
Private Sub Lib07_Change(): [B89] = Lib07: End Sub
Private Sub Lib08_Change(): [B90] = Lib08: End Sub
Private Sub Lib09_Change(): [B91] = Lib09: End Sub
Private Sub Lib11_Change(): [B94] = Lib11: End Sub
Private Sub Lib12_Change(): [B95] = Lib12: End Sub

Est ce que cela ne viendrait pas de cà ?

 For i = 2 To 9

Quelqu'un aurait il une idée ?

Merci

 

[soan]

Bonjour @FCMLE44,

J'suis vraiment désolé d't'avoir laissé tomber ces derniers temps, mais j'ai été très pris
par des affaires personnelles et autres démarches administratives ; mais j'suis prêt à
continuer cet exo, maint'nant ; si toi-même tu es trop débordé en c'moment, alors
j'pourrai attendre que tu aies plus de temps.

soan

 

[soan]

Bonjour FCM,

Hier, j'ai attendu que tu reviennes sur ce sujet, le matin puis l'après-midi ; à 16 h30,
j'me suis déconnecté du réseau, donc j'ai manqué ton passage à 17 h 11 (même si
t'as écris aucun nouveau post) ; j'attends qu'tu reviennes dans cette conversation,
car pour la suite de cet exo (si ça t'intéresse toujours), je vais avoir besoin d'échanger
avec toi sur plusieurs choses ; en attendant, pour compenser le fait qu'j'ai pas eu
le temps de te répondre un très long moment, je t'offre ces 3 jolies chansons :

Migdalor : youtu.be/m2F15PCulxQ

Mardef : youtu.be/dN6Itp0tAtA

La'yla : youtu.be/MB8NQrV_3Ic

si t'as un cœur d'artichaut, et qu'tu tombes amoureux des 3 chanteuses en même temps,
j'ai absolument aucun remède pour ça !!!

soan

 

[soan]

@FCMLE44

ajout à mon post précédent : j'ai oublié de préciser que j'ai trouvé
une solution à ton exo (enfin, je crois ; ce sera à toi de tester).

soan

 

[soan]

@FCMLE44 : suite à ton MP, je viens d'y répondre. A+

 

[FCMLE44]

Jai résussi avec un peu de réflexion

Voilà ce que ca donne

Private Sub UserForm_Initialize()
Dim chn$, dlg As Byte, i As Byte: chn = "Paramètres"
    With Worksheets(chn)
        Lib01 = .[Y2]: chn = chn & "!": dlg = .Cells(Rows.Count, 1).End(3).Row
        For i = 2 To 12
            If i < 10 Then
                Controls("Lib0" & i).RowSource = "=" & chn & "Y3:Y" & dlg
            Else
                Controls("Lib" & i).RowSource = "=" & chn & "Y3:Y" & dlg
            End If
        Next i
    End With
End Sub

Private Sub Lib01_Change(): [B83] = Lib01: End Sub
Private Sub Lib02_Change(): [B84] = Lib02: End Sub
Private Sub Lib03_Change(): [B85] = Lib03: End Sub
Private Sub Lib04_Change(): [B86] = Lib04: End Sub
Private Sub Lib05_Change(): [B87] = Lib05: End Sub
Private Sub Lib06_Change(): [B88] = Lib06: End Sub
Private Sub Lib07_Change(): [B89] = Lib07: End Sub
Private Sub Lib08_Change(): [B90] = Lib08: End Sub
Private Sub Lib09_Change(): [B91] = Lib09: End Sub
Private Sub Lib10_Change(): [B94] = Lib10: End Sub
Private Sub Lib11_Change(): [B95] = Lib11: End Sub
Private Sub Lib12_Change(): [B96] = Lib12: End Sub

 

[soan]

j'ai fait quelque chose de très bien, et beaucoup plus complet
que ce que tu as fait !

soan

 

[FCMLE44]

Ca marche aussi
Pour les montants, j'ai fait cela

Private Sub Mnt01_Change()
Range("E83").Value = SomVersées.Mnt01.Value
End Sub

Private Sub Mnt02_Change()
Range("E84").Value = SomVersées.Mnt02.Value
End Sub

Private Sub Mnt03_Change()
Range("E85").Value = SomVersées.Mnt03.Value
End Sub

Private Sub Mnt04_Change()
Range("E86").Value = SomVersées.Mnt04.Value
End Sub

Private Sub Mnt05_Change()
Range("E87").Value = SomVersées.Mnt05.Value
End Sub

Private Sub Mnt06_Change()
Range("E88").Value = SomVersées.Mnt06.Value
End Sub

Private Sub Mnt07_Change()
Range("E89").Value = SomVersées.Mnt07.Value
End Sub

Private Sub Mnt08_Change()
Range("E90").Value = SomVersées.Mnt08.Value
End Sub

Private Sub Mnt09_Change()
Range("E91").Value = SomVersées.Mnt09.Value
End Sub

Private Sub Mnt10_Change()
Range("E94").Value = SomVersées.Mnt10.Value
End Sub

Private Sub Mnt11_Change()
Range("E95").Value = SomVersées.Mnt11.Value
End Sub

Private Sub Mnt12_Change()
Range("E96").Value = SomVersées.Mnt12.Value
End Sub

Et ca fonctionne
Ce sujet est donc terminé

Par contre, j'en ai encore plein d'autres car cela fait partie d'un gros projet

 

[soan]

tu as réussi à afficher le UserForm ?

soan

 

[soan]

pour les montants aussi, j'ai fait plus complet.

essaye le fichier joint de mon post #22.

soan

 

[FCMLE44]

Oui en modifiant le nom d'accès du Userform
En effet dan mon userform prépacourriers, il renvoyait vers Montants. J'ai dons mis SomVersées

Par contre il me met les données en B1 de la feuille courriers

Merci

 

[soan]

non, je parle du fichier "TEST v5.xlsm" ; il est dans mon post #22.

soan

 

[FCMLE44]

Il devrait se mettre en B83

 

[FCMLE44]

Oui je suis dessus

 

[soan]

va sur la feuille "Courriers" ; clique sur le bouton nommé "Bouton 1",
et dis-moi ce qui se passe.

soan