Discussion :

[ouskel'n'or]

Pour le moment, j'ai ça

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
Private Sub UserForm_Initialize()
Dim fl1 As Worksheet, fl2 As Worksheet, Plage As Range, i as integer, cell as range
Set fl1 = Worksheets("Feuil1")
Set fl2 = Worksheets("Feuil2")
Set Plage = fl1.Range("A1:A5")
    For i = 1 To 2 'Nbre de plages
        For Each cell In Plage
             ComboBox1.AddItem cell.Value
        Next
        Set Plage = fl2.Range("B1:B10")
    Next
    Set Plage = Nothing
    Set fl1 = Nothing
    Set fl2 = Nothing
End Sub

Est-il possible (j'ai un trou) d'affecter directement les deux plages dans un seul range ?
Marci

[Invité]

Bonjour

Je ne pense pas, car range étant lié à une feuille, il ne peut prendre que des plages de celtte feuille.

Starec

[illight]

Moi je dirai oui si c'est sur une meme feuille, mais si c'est sur 2 feuilles différentes je pense pas

[ouskel'n'or]

Vous avez sans doute raison

[illight]

T'a fait un test quand meme ? en écrivant par exemple :

Code :

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

Set Plage = fl1.Range("A1:A5") & fl2.Range("B1:B10")

Sinon t'a essaéyé un truc du genre (une idée toute con qui me traverse complètement absurde) :

Code :

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

Set Plage = Range(fl1.cells(1,1),fl1.cells(5,1))

Si cela est faisable, tu pourrait peut etre t'arranger en faisant une bidouille mais j'y crois pas trop.. Le problème c'est que tes plages aussi ne sont pas le smemes et de même taille

[AlainTech]

Je viens de faire le test avec Union.
Dans la même feuille:

Code :

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

  Set rRange = Union(Sheets(1).Range([A1], [A10]), Sheets(1).Range([B1], [B10]))

c'est accepté.

Dans 2 feuilles différentes:

Code :

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

  Set rRange = Union(Sheets(1).Range([A1], [A10]), Sheets(2).Range([B1], [B10]))

je me fais jeter

[illight]

C'est bizarre quand meme ça que ça marche pas en VBA. Car quand on le fait a la mano, on peut sélectionner plusieurs feuilles et ainsi faire des modifications sur cellules, et ça le smodifie sur les 2 feuilles en meme temps..Mais par macro c'est pas possible

[AlainTech]

Si les plages sont les mêmes sur les 2 feuilles, on peut le faire par macro.
Il faut créer une instance de l'Array des feuilles et travailler sur les cellules de cette instance.

[ouskel'n'or]

Ne te creuse pas la cervelle, illight
Dans

Set Plage = fl1.Range("A1:A5") & fl2.Range("B1:B10")

On ne peut pas utiliser &. Il s'agit d'ajouter des range, non des string.
Quant à

Set rRange = Union(Sheets(1).Range([A1], [A10]), Sheets(2).Range([B1], [B10]))

c'était une bonne idée mais ça ne fonctionne pas
J'ai essayé de forcer le destin en sélectionnant les plages avec Application.inputBox mais Excel, il m'a dit "NIET !"
Contraint et forcé, je me vois donc dans l'obligation de délester
Merci à tous les deux