Bonjour,
Je viens vous demander de l'aide car je suis bloqué.
j'ai une plage que je déclare en tant que range . Je déclare un tableau de meme taille que ma plage. Je fais ensuite une boucle pour attribuer la formule de chaque cellule à celle du tableau que j'ai nommé. Sauf que au lieu de prendre en compte formulaLocal, il m'affiche la valeur de la cellule. Explication avec le code suivant :
l'erreur est sur la ligne en rouge: si je fais msgbox(plage1(i).Formulalocal), il m'affiche la valeur de la cellule A1. Par contre , si je fais Range("A1").Formulalocal = plage1(1), ça fonctionne. Donc je ne sais vraiment pas quoi faire pour que ça marche. Ca doit être une question de syntaxe mais bon, je donne ma langue au chat.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Dim Plage1(1 to 3) as Range Dim Plage2() As String redim Plage2(1 to 3) Plage2(1)= "=RECHERCHERV...." Plage2(2)= "=RECHERCHERV...." Plage2(3)= "=RECHERCHERV...." set plage1(1) = Range("A1") set plage1(2) = Range("A2") set plage1(3) = Range("A3") For i 1 to 3 plage1(i).Formulalocal = plage2(i) next i
Merci pour votre aide
Partager