XL 2016 Application.Intersect

[dede869]

Bonjour a vous, j'ai trouver cette formule,

Application.Intersect(Range("Test"), Range("Sample")).Select

Est il possible que le range ("Test") peut etre changer par la sélection que je fait dans un combobox1 et la mème chose pour l'autre par combobox2 .

Merci

 

[pierrejean]

Bonjour dede
Demande succincte
Réponse itou: Oui

 

[dede869]

Ok on écrit cela comment?

Merci d'avance de ton aide

 

[pierrejean]

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"

 

[dede869]

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

Merci

 

[dede869]

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

 

[Dranreb]

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

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

 

[dede869]

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.

 

[dede869]

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

 

[Dranreb]

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.

 

[dede869]

Ok merci ça marche.

merci encore