Chez moi aussi, mais il y a de nombreux lien non résolus ( pointants vers "compta frais Math.xlsb" ).
Bonsoir fanch55. Si il y a autant de Liste de validation, c'est que le classeur n'est pas complet, j'ai supprimé énorméments de feuille dont je n'ai pas besoin. En fait j'ai repris un encien classeur est et voulu l'améliorer en y incorporant un USER pour remplir le classeur. J'ai omis de vider le surplus dans le gestionnaire de noms. Pour faire plus simple, avec ce même classeur, j'ai un USER comportant des onglets correspondant à chaque mois qui serviras à remplir des montant dans la collonne "C" tout en pouvant si le cas est demandé, de pouvoir modifier les saises des montants. Je vous joins un fichier avec les feuilles qui sont pour le moment utilisée. J'ai vidé le gestionnaire des noms, car dans le fichier joins il n'y a plus de liste déroulante ni de ComboBox. Je vous souhaite une bonne soirée.
Bonsoir, je vous remercie pour votre intervention. Je n'ai pas tout saisie la théorie que vosu m'avez fourni, mais je vais essayer de comprendre votre code et la manière de votre réflection. Je l'admet refaire une feuille depuis un UserForm n'est pas intéressant, mais cela me permet de pouvoir comprendre et de pouvoir aboutir à un autre projet dont je pourrai avoir besoin dans un future proche.
Private Sub CmbB_Mois_Change()
With UserForm1
With .MltPge_Gestion
With .Pages(1)
With .CmbB_Mois
If .ListIndex = 0 Then Exit Sub
StrMois = .List(.ListIndex, 0)
Set Ws_Source = ThisWorkbook.Worksheets(StrMois)
End With
With .Frm_1
With .Tbx_Solde
T = Split(.Tag, "-")
Lgn = CInt(T(0)): Col = CInt(T(1))
.Text = Format(Ws_Source.Cells(Lgn, Col).Value, "### ##0.00")
End With
End With 'Frm_1
With .Frm_2
With .Tbx_CP2
T = Split(.Tag, "-")
Lgn = CInt(T(0)): Col = CInt(T(1))
.Text = Format(Ws_Source.Cells(Lgn, Col).Value, "### ##0.00")
End With
With .Tbx_CP3
T = Split(.Tag, "-")
Lgn = CInt(T(0)): Col = CInt(T(1))
.Text = Format(Ws_Source.Cells(Lgn, Col).Value, "### ##0.00")
End With
With .Tbx_CP4
T = Split(.Tag, "-")
Lgn = CInt(T(0)): Col = CInt(T(1))
.Text = Format(Ws_Source.Cells(Lgn, Col).Value, "### ##0.00")
End With
With .Tbx_CP5
T = Split(.Tag, "-")
Lgn = CInt(T(0)): Col = CInt(T(1))
.Text = Format(Ws_Source.Cells(Lgn, Col).Value, "### ##0.00")
End With
End With 'Frm_2'Les variables sont définies en tête de Module
With .Frm_2
For i = 2 To 5 4 'on Boucle
Set Ctl_TxtB = .Controls("Tbx_CP" & i) 'On définit le Control
With Ctl_TxtB 4avec ce control
T = Split(.Tag, "-")'On récupére le contenu du .Tag dans un Tableau en le décomposant avec la fonction Split
Lgn = CInt(T(0)): Col = CInt(T(1)) 'On définit les deux variables en fonction des Données du Tableau
.Text = Format(Ws_Source.Cells(Lgn, Col).Value, "### ##0.00") 'On colle la valeur de la Cellule Source en la formatant
End With
Next i
End With 'Frm_2Merci Jean-Marie, tu dis rien de compliqué cela vaut pour toi mais en ce qui me concerne cela va être bien compliqué. Mais comme je l'ai exprimé dans mon denier mess je vais essayer de comprendre ton code ainsi que la présentation et je verrai si ma persévérence payera.
Bonjour Jean-Marie, merci pour ton fichier, tu as toujours autant de bonnes idées, mais je les aurai eu aussi si j'était aussi doué que toi ;O)
