Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

resolu ; remplir une page d'userform

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion MIRALLE
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

MIRALLE

Guest
bonsoir a tous
je dis merci pour tout le monde
merci et grand respect a toute personne peut me donner d'aide pour que je puisse continuer ce travail
je veux afficher les donnees dans la feuille DATABASE dans unerform1 page1..
tandisque les textboxs jaunes d'usf ( SENIOR ) se remplissent par les donnees dans la feuille "SOURCE" comme indique le fichier ci joint avec deux images
je vous remercie infiniment pour n'importe quelle idee
MIRALLE
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : remplir une page d'userform

Bonsoir MIRALLE,

MIRALLE à dit:
je vous remercie infiniment pour n'importe quelle idee
Cliquez pour agrandir...

En voici.

1) Nommez A le tableau en feuille DATABASE, B le tableau en feuille SOURCE.

2) Renommez toute les TextBoxes avec des noms comme A_2_3 ou B_2_1 correspondant à l'item du tableau :

- la lettre A ou B est bien sûr le nom du tableau

- le 1er chiffre est le numero de ligne dans le tableau (1 => 1ère ligne du tableau)

- le 2ème chiffre est le numéro de colonne dans le tableau (1 => 1ère colonne du tableau) .

Quand ce travail (fastidieux) aura été fait mettez dans le code de l'UserForm :

Code: 
Private Sub UserForm_Initialize()
Dim c As Control
For Each c In Me.Controls
  If c.Name Like "*_*" Then c = Evaluate("INDEX(" & Replace(c.Name, "_", ",") & ")")
Next
End Sub
Bonne nuit.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : remplir une page d'userform

bonsoir job75
grand merci a vous .vous m'avez fais un grand bienfait.merci vous m'avez diriger vers ma bonheur
merci merci merci
svp job75 il me reste un dernier probleme si je veux faire la meme chose dans une deuxieme et troisieme page comment changer dans ce merveilleux code parceque j'ai pas pu donner les meme noms au meme textbox dans les differentes pages.
grand merci encore
MIRALLE
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : remplir une page d'userform

Bonjour MIRALLE, le forum,

MIRALLE à dit:
svp job75 il me reste un dernier probleme si je veux faire la meme chose dans une deuxieme et troisieme page
Cliquez pour agrandir...

1ère solution :

- vous donnez 3 noms à chacun des 2 tableaux :

A => APage1 APage2 APage3

B => BPage1 BPage2 BPage3

- vous nommez les TextBoxes avec les lettres adaptées APage1_1_1 APage2_1_1

- le code de l'UserForm reste le même qu'au post #2.

2ème solution :

- vous ajoutez un chiffre aux noms des TextBoxes A_1_1_1 pour Page1 A_1_1_2 pour Page2 etc

- pour le code :

Code: 
Private Sub UserForm_Initialize()
Dim c As Control, s
For Each c In Me.Controls
  If c.Name Like "*_*" Then
    s = Split(c.Name, "_")
    c = Evaluate("INDEX(" & s(o) & "," & s(1) & "," & s(2) & ")")
  End If
Next
End Sub
Edit : ce code peut fonctionner aussi pour la 1ère solution.

Bonne journée.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : remplir une page d'userform

Re,

Bah voici une 3ème solution, bien plus simple :

- vous nommez vos 2 tableaux A et B

- vous ne modifiez pas les noms des TextBoxes

- pas contre vous donnez à leur propriété Tag les valeurs A,1,1 A,2,1... B,1 B,2...

Si comme ici le tableau B n'a qu'une colonne il est inutile d'indiquer son numéro.

La page n'a plus aucune importance.

Le code devient :

Code: 
Private Sub UserForm_Initialize()
Dim c As Control
For Each c In Controls
  If c.Tag Like "*,*" Then c = Evaluate("INDEX(" & c.Tag & ")")
Next
End Sub
ou plus simplement, si seules les TextBoxes ont leur propriété Tag renseignée :

Code: 
Private Sub UserForm_Initialize()
Dim c As Control
For Each c In Controls
  If c.Tag <> "" Then c = Evaluate("INDEX(" & c.Tag & ")")
Next
End Sub
A+
 
Vote positif 0 Vote négatif
Re : remplir une page d'userform

bonjour job75.vraiment merci beaucoup pour ce plaisir de travail.excellents serie de code
c'est resolu bien comme il faut
merci encore
MIRALLE
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…