Discussion :

[sylvestre09]

Bonjour a tous,

je suis debutant en VBA j'aimerai avoir votre aide si c'est possible !!

en fait j'ai un userform avec plusieurs combobox ce que je voudrais c'est que si j'entre une donnée dans l'un l'autre (combobox) se remplie automatiquement et vice versa: il s'agit d'une liste de clients dans le premier combobox et d'un radical client pour l'autre! plus explicitement l'utilisateur pourra avoir le choix entre saisir le nom du client et il aura le radical systematiquement ou bien saisir le radical et il aura le nom du client! alors pour remplir mes combobox voilà le code que j'utilise :

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
Private Sub Remplir_CP()
'------------------
'INIT COMBO ContrePartie
'------------------
Dim plage_CP_fin As Integer
 
'On se positionne sur la feuille
Sheets("Code").Select
[B2].Select
'Parcourir les cellules jusqu'à la dernière non vide
While ActiveCell.Value <> ""
plage_CP_fin = ActiveCell.Row
ActiveCell.Offset(1, 0).Activate
Wend
'Définition de l'étiquette
Range("B2:B" & plage_CP_fin).Name = "plage_CP"
 
'Réinitialise et Affiche la combobox
ComboCP.RowSource = "plage_CP"
End Sub

pareils pour le combobox du radical !!
merci d'avance !!!

[casefayere]

Bonjour,

Commences déjà comme ça, sans les select et activate :

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Activate()
dim j as long
With Sheets("code")
    j = .Range("B" & .Rows.Count).End(xlUp).Row
    ComboCP.RowSource = "Code!B2:B" & j
End With
.......

et adaptes pour l'autre combo car sans connaitre l'organisation de ton fichier, je ne peux t'aider plus que ça

PS : attention ! ma procédure est à mettre dans le code de l'USF

N'hésites pas à demander des précisions.

Je reviens vers toi avec un code plus complet :

A adapter :
tout dans la même feuille
j'ai les noms en colonne B
j'ai les "radical client" en colonne C
j'ai donné des noms au hasard à tes combos
enfin je remplis au départ tes combo avec un tableau
code de l'USF :

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
35
36
37
38
39
40
41
42
43
44
45
46
Dim nom As String, j As Long, Plage As Range, combo As Object, x As Long
Private Sub Commandfermer_Click()
Unload Me
End Sub
 
Private Sub UserForm_Activate()
Dim tabl
With Sheets("code")
    j = .Range("B" & .Rows.Count).End(xlUp).Row
    ReDim tabl(1 To j - 1)
    tabl = .Range("B2:B" & j - 1)
    Combocp.List() = tabl
    ReDim tabl(1 To j - 1)
    tabl = .Range("C2:C" & j - 1)
    Comboradical.List() = tabl
End With
 
End Sub
Private Sub Combocp_Click()
Comboradical.Clear
nom = UCase(Combocp)
With Sheets("code")
  Set Plage = .Range("B2", "B" & j)
  Set combo = Me.Controls(Comboradical.Name): x = 2
  maj
End With
End Sub
Private Sub Comboradical_Click()
Combocp.Clear
nom = UCase(Comboradical)
With Sheets("code")
  Set Plage = .Range("C2:C" & j)
  Set combo = Me.Controls(Combocp.Name): x = 0
  maj
End With
End Sub
 
Sub maj()
For Each cel In Plage
  If UCase(cel) = nom Then
    With combo
      .AddItem cel(1, x)
    End With
  End If
Next cel
End Sub

tout ce code peut être amélioré

[sylvestre09]

slt Dominique merci pour ton aide c'est très gentil ! très sincérement je n'ai pas compris grand chose peux-tu rajouter des commentaire pour que je puisse saisir les démarches

[casefayere]

Bonsoir à tou(te)s, sylvestre09

Je viens de regarder ton fichier et penses que beaucoup d'améliorations sont à apporter.
Mais il faut que j'y regarde tranquillment, le temps de comprendre ton but. Je suis dessus en ce moment et te présenterai l'avancement des travaux.

ouh ! tes "select", quelle perte de temps, alors patience !

Bonne soirée

En ayant élagué ton code (on pourra faire mieux), dis-moi si le principe de mon fichier joint te va, avec l'essai sur les combos à l'origine de ta demande

Bonsoir

[sylvestre09]

merci beaucoup Dominique tu as vraiment assuré j'ai une dérnière question (c'est exagéré mais bon :p) est ce que c'est possible de faire la mm chose dans les 2 sens c-a-d quand on mets le radical on à le nom de la banque ?? Encore Merciiiiiiii

[casefayere]

Bonjour à tou(te)s, sylvestre09

est ce que c'est possible de faire la mm chose dans les 2 sens c-a-d quand on mets le radical on à le nom de la banque ??

là, je n'ai pas le temps mais si tu analyses le code tu devrais pouvoir adapter,

Si tu rencontres des problèmes, n'hesites pas, mais pour moi réponse plus tard

[sylvestre09]

slt Dom en fait là ca marche dans les 2 sens !! sauf que quand j'ai changer la liste des clients (car pour chaque client il peut y avoir plusieurs radicaux du coup je suis obligé de tout mettre) et donc quand j'entre le nom du client il prend directement le premier radical qu'il trouve en face du nom ( je suppose que c'est tout a fait normal) par contre quand je commence par entrer le radical en premier temps j'arrive pas a entrer le bon radical (il me met le bon nom mais dans la case radical il prend le premier radical dans la liste aussi et en plus il garde ce que j'entre comme valeur j'ai donc 12 chiffres dans le combobox alors que le radical se compose de 6 chiffres uniquement) peux-tu me dire d'ou ca provient et comment detourner ce probléme car par la suite je doit remplir un tableau a partir de ce combobox et je doit avoir les bonnes valeurs
Merci infiniment

[casefayere]

Bonjour ou bonsoir (suivant l'heure de la lecture du post)
sylvestre09,

j'avoue que je ne comprends pas ton dernier post :

...quand j'ai changer (*changé) la liste des clients ...

Je ne suis pas dans ta tête et ne me repère qu'aux libellés spécifiés sur ton fichier, en résumé, c'est quoi, un client ? dans quelle colonne ?,

..il garde ce que j'entre comme valeur j'ai donc 12 chiffres dans le combobox ...

fais-tu des saisies dans tes combos ? perso, je pensais que tu te contentais de cliquer dans ceux-ci.

J'aimerai que tu ré-exposes ton problème avec les termes existants sur ton fichier
a +

PS : j'ai remarqué une erreur dans ce code que j'ai rectifié :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Remplir_Comm()
'------------------
'INIT COMBO Commercial
'------------------
With Sheets("code")
    j = .Range("G" & .Rows.Count).End(xlUp).Row
    ReDim tabl(1 To j)
    tabl = .Range("G2:G" & j)
    ComboComm.List() = tabl 'j'ai corrigé ici
End With
End Sub

[sylvestre09]

Bonjour Dom excuse-moi pour les fautes d'orthographe !
tu as raison j'ai du mal à m'exprimer sur ce sujet ! voilà le souci : je prend un exemple quand on tape le nom AB Bank on a le premier radical dans la feuille 'code' qui correspond a ce client là (pour le mm client y'en à plusieurs radicaux) quand on commence par taper le radical pour avoir le nom du client tu verras ce qui va se passer !!

[casefayere]

Bonjour le forum, sylvestre09,

1 - T'en fais pas pour ma remarque sur les fautes d'ortographe, c'est une taquinerie, j'en fais aussi quand je suis concentré sur un problème

2 -Je ne comprends toujours pas (je devine mais n'en suis pas sur), alors réponds bien à mes questions :
- Qu'appelles-tu un client ? les contreparties ?
- Expliques-moi cette remarque :

(car pour chaque client il peut y avoir plusieurs radicaux du coup je suis obligé de tout mettre)

, c'est quoi "tout" ? mettre ou ?
- dois-tu saisir manuellement dans tes combos ? sinon ne préfèrerais-tu pas utiliser des listbox ?
- ton bouton de validation n'est ps encore renseigné alors je ne connais pas la finalité de ton USF
-

quand on commence par taper le radical pour avoir le nom du client tu verras ce qui va se passer !!

perso je ne tape pas mais me contente de cliquer sur un radical et bien sur avec mon code "find" le combo "contrepartie" prend la première occurence trouvée, ça on pourra le changer quan j'aurais compris la finalité

Et oui, pour t'aider, il faut que tu expliques en détail le but de L'USF, peut-être d'autres abonnés se joindront à moi pour t'aider

Bon courag et bonne journée

[sylvestre09]

re bonjour :
1 les clients ou contrepartie c'est ce qui figure dans la colonne B de la feuille Code
pour chaque client il y'a un radical voir plusieurs radicaux comme tu peux le constater dans le fichier ! je dois tout mettre ca veux dire que je ne peux faire un filtre elaborer et laisser pour chaque client un seul radical !
2 je prend un exemple clair :
ANZ BANKING GROUP LTD 090054
ANZ BANKING GROUP LTD 090335
ANZ BANKING GROUP LTD 090532
ANZ BANKING GROUP LTD 090533
ANZ BANKING GROUP LTD 090534
ANZ BANKING GROUP LTD 090537
ANZ BANKING GROUP LTD 090550
ANZ BANKING GROUP LTD 090551
ANZ BANKING GROUP LTD 090557
ANZ BANKING GROUP LTD 090679
ANZ BANKING GROUP LTD 092614
ANZ BANKING GROUP LTD 099453
ANZ NATIONAL BANK LTD 090803
pour le mm client on a 13 radicaux alors si tu cliques sur le radical 090803 il va t'affiché ANZ BANKING GROUP LTD 090054
il prend automatiquement le premier radical mm si tu souhaites prendre le dernier et que t'as cliqué dessus !!!
3 Le but c'est de remplir le tableau dans la feuille Recap à partir du userform ( ce n'est que le commencement dérriere je dois accorder des references a chaque opération saisie date + 001 date +002 ... ensuite les trier par mois ensuite creer des pages selon la devise et dans chaque page un tableau de prêt et un tableau d'emprunt ...) tu vois très bien que ce n'est pas facile du coup je veux m'assurer qu'au moins la saisie des opérations sois "parfaite"
4 encore un grand merci pour le temps que tu me consacres chwi vrmt très reconnaissant !!
j'éspère que c'est plus clair maintenant

[casefayere]

c'est déjà plus clair et j'insiste pour passer par des listbox vu que tu sélectionnes dans tes combo mais n'introduis pas de nouvelles données, je vais me pencher dessus, j'ai déjà fait un truc dans ce style. J'enverrai le fichier avec la proposition donc..... pas tout de suite.

Bonsoir le forum, sylvestre

en pièce jointe, une autre façon de voir ton fichier en espèrant que ça corresponde à tes souhaits

Bonne soirée

[sylvestre09]

Bonjour Dom,
Merci bcp pour le fichier ! je vais voir si c'est pas trop compliqué pour les utilisateurs !!!
aller bonne journée !!

[sylvestre09]

Slt Dom j'éspère que tu vas bien ! en fait j'ai besoin de ton aide ! voilà le soucis : je veux accorder à chaque opération saisie une reference qui est égale à la valeur existante dans la colonne A (caché) & la date du jour cellule (A3) et puis dans la colonne H je dois calculer la difference entre la colonne I et D mais je veux automatiser ces calculs c'est a dire a chaque fois que je valide dans mom userforms il me fais le calcul automatiquement !!

[casefayere]

Bonjour sylvestre,

Apparemment, tu n'as pas choisi de garder ma dernière proposition mais je e peux pas trop le dire car j'ai un message d'erreur en ouvrant ton fichier, quel controle as-tu ajouté depuis ?
J'aurais du mal à t'aider si je n'ai pas accès à tout ton fichier.

à bientôt

[sylvestre09]

wi en effet , ta derniere proposition a paru trop compliqué pour les utilisateurs du coup j'ai opter pour la premiére !! sinon ce que j'ai ajouté c'est quelques textbox et j'ai alimenter mon tableau (feuille Recap) a partir du userform !! j'avance lentement car je bosse sur plusieurs projets a la fois (mais d'ici une semaine je dois me pencher uniquement sur celui là) donc voilà pour l'instant je dois finir avec la feuille recap pour pouvoir avancer ce qu'il me faut donc c'est d'accorder des references (uniques) pour chaque opération saisie et puis je dois calculer le delai ! ce que j'ai fait dans le fichier est manuelle je veux que ca soit automatique a chaque validation dans le useform !! j'éspere que j'ai été assez clair

[casefayere]

Re,
je te joins une proposition en remplaçant tes dates par des DtPickers, j'ai ensuite arrangé un peu ton code sauf cette partie (ce n'est pas mon rayon)

Code :

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

1
2
3
4
5
6
7
If RadioPret.Value = True Then
  TypeOperation = Trim(RadioPret.Caption)' voir avec WorksheetFunction.MIRR selectionnes MIRR et tapes F1
End If
If RadioEmprunt.Value = True Then
  TypeOperation = Trim(RadioEmprunt.Caption)'voir avec WorksheetFunction.MIRR
 
End If

j'espère que ton application accepte les DtPickers sinon il faudra ajouter la référence,
Dis-moi si ça te va pour le reste

[sylvestre09]

Bonjour Dom, non en fait j'arrive pas a utiliser "Dtpickers" sur mon ordi donc j'ai recopier la derniére partie ( a partir de With Sheets("Recap")) dans mon fichier de base.
ca bloque à ce niveau finalement :

Code :

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

.Range("H" & num) = .Range("I" & num) - .Range("D" & num)

erreur d'execution 13 incompatibilité de type !

j'ai essayé de contourner en ajoutant :

Code :

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

1
2
3
4
5
6
.Range("I" & num).NumberFormat = "dd-mmm-YYYY"
  .Range("I" & num).Value = txtEcheance.Value
 .Range("D" & num).NumberFormat = "dd-mmm-YYYY"
  .Range("D" & num).Value = txtValeur.Value
.Range("H" & num).NumberFormat = "dd-mmm-YYYY"
  .Range("H" & num) = .Range("I" & num) - .Range("D" & num)

mais ca ne marche pas quand mm !!
dernierment : le format des reference était le suivant =TEXTE(A3;"aammjj")&A4
j'ai beau cherché mais je n'arrive pas a le modifier dans ton code :s

[casefayere]

Bonjour Sylvestre,

Pas le temps de voir ça ce matin, je serais là début d'aprèes-midi ou ce soir

[sylvestre09]

OK Dom, prends ton temps j'ai reussi a trouver la solution pour la colonne H

Code :

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

.Range("H" & num) = .Range("I" & num) - .Range("D" & num)

j'ai ajouter

Code :

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

1
2
.Range("D" & num).Value =CDate(txtValeur.Value)
.Range("I" & num).Value = CDate(txtEcheance.Value)

par contre pour la reference aucune idée en vue !! aller bonne aprém ! a+