[XL-2003] Manipulation Range 3D [Résolu]

[Starbug]

Bonjour à tous.

Voici mon problème, j'ai bien réussi à créer une plage nommées en selectionnant deux feuilles avec la même référence de cellules, j'ai nommée ma plage TEST qui pointe sur l'adresse suivante "Feuil1:Feuil2!$B$700".

Mon problème maintenant est que je n'arrive pas à passer de valeur à cette plage (erreur 1004 etc...) avec VBA en me servant de l'objet Range. je n'ai rien trouver sur le net qui traite ce problème.

Si une âme charitable pouvait m'aider un peu, je l'en remercierai fortement !!

Ludo.

[jfontaine]

Bonjour,

Ci dessous une méthode pour alimenter ces cellules

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Feuille() As String
Dim Adr As String
Dim i As Integer
 
'Liste des onglets
Feuille = Split(Replace(Split(ThisWorkbook.Names("test2").RefersToLocal, "!")(0), "=", ""), ":")
 
'Adresse de destination
Adr = Split(ThisWorkbook.Names("test2").RefersToLocal, "!")(1)
 
'Alimentation des feuilles
For i = 0 To UBound(Feuille)
    Worksheets(Feuille(i)).Range(Adr).Value = 1
Next i

A noter qu'il faudra adapter le code si l'adresse de destination comporte plusieurs cellules

[Ormonth]

Bonjour,

Si ce que tu souhaites est de répliquer le fonctionnement d'une référence D, il faut voir en VBA du côté de la méthode FillAcrossSheets

le code suivant te recopie la valeur de B7 de la feuille 1 sur les 9 suivantes.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MultiCopie()
Dim I As Byte
Dim tabpass(10) As Variant
Dim tabpass2 As Variant
 
For I = 1 To 10 'pas indispensable, mais...
    'de toutes façons la fonction Array demande une liste, en faisant ainsi, j'ai un "moteur" qui me permet de ne changer le nom itérés de mes feuilles qu'une fois
    'si mes feuilles sont "Toto1" à "Toto10", j'ai juste à remplacer "Feuil" ci dessous par "Toto"...
    tabpass(I) = "Feuil" & I
Next I
tabpass2 = Array(tabpass(1), tabpass(2), tabpass(3), tabpass(4), tabpass(5), tabpass(6), tabpass(7), tabpass(8), tabpass(9), tabpass(10))
Sheets(tabpass2).FillAcrossSheets Worksheets("Feuil1").Range("B7")
 
End Sub

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Starbug]

Merci pour vos précieux conseil, problème résolu.