XL 2016 Application.Intersect

pierrejean

XLDnaute Barbatruc

• 28 Février 2017

• #2

Bonjour dede
Demande succincte
Réponse itou: Oui

 

Vote positif 0 Vote négatif

D

dede869

XLDnaute Occasionnel

• 28 Février 2017

• #3

Ok on écrit cela comment?

Merci d'avance de ton aide

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Février 2017

• #4

Re

A tester:
Application.Intersect(Range(Combobox1.value), Range(Combobox2.value)).Select

Attention a ce que les Combobox contiennent des string représentatifs de zones du genre "A1:B2"

 

Vote positif 0 Vote négatif

D

dede869

XLDnaute Occasionnel

• 28 Février 2017

• #5

Bonjour je vous envoie mon fichier car ça marche pour le premier mais pas les autre.

Merci

 

Pièces jointes

• Cotisation_test.xlsm

  33.7 KB · Affichages: 29

Vote positif 0 Vote négatif

D

dede869

XLDnaute Occasionnel

• 28 Février 2017

• #6

Bonjour pierrejean, je vient de m’apercevoir que je vous ai induit en erreur car c'est les listbox que j'ai au lieu de combobox, est ce que cela fait une différence?

Merci

dede869

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Mars 2017

• #7

Bonsoir.
Je verrais bien un code à peu près comme ça :

VB:

Option Explicit
Private PlgDon As Range, PlgSel As Range, TSel(), L&

Private Sub UserForm_Initialize()
Set PlgDon = Feuil2.[D3:M134]
End Sub

Private Sub ListBox1_Click()
If ListBox2.ListIndex = -1 Then Exit Sub
ListBox2_Click
End Sub

Private Sub ListBox2_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Set PlgSel = PlgDon.Offset(11 * ListBox1.ListIndex, ListBox2.ListIndex).Resize(11, 1)
TSel = PlgSel.Value
For L = 1 To 11: Me("Textbox" & L + 11).Text = TSel(L, 1): Next L
End Sub

Private Sub CommandButton3_Click()
On Error Resume Next
For L = 1 To 11
   Err.Clear: TSel(L, 1) = CCur(Me("Textbox" & L + 11).Text)
   If Err Then TSel(L, 1) = Empty
   Next L
PlgSel.Value = TSel
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

 

Dernière édition: 1 Mars 2017

Vote positif 0 Vote négatif

D

dede869

XLDnaute Occasionnel

• 1 Mars 2017

• #8

Bonsoir Dranseb,

Merci beaucoup, ça fonctionne a la perfection je travail dessus depuis une semaine.

Merci de ton aide c'est très très apprécier.

 

Vote positif 0 Vote négatif

D

dede869

XLDnaute Occasionnel

• 1 Mars 2017

• #9

Bonjour Dranreb

Si je veut que les textbox 12-13-14-15-17-20-21-22 affiche en format monétaire on procède comment?

merci

dede869

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Mars 2017

• #10

Bonsoir.
Le plus simple serait de renoncer à la boucle en sortie. CCur convertit en Currency, CDbl en Double.
Sinon un Select Case C: Case 12 To 15, 17, 20 To 22 pourrait permettre de la conserver.

 

Vote positif 0 Vote négatif

D

dede869

XLDnaute Occasionnel

• 1 Mars 2017

• #11

Ok merci ça marche.

merci encore

 

Vote positif 0 Vote négatif