OVH Cloud OVH Cloud

macro

1 réponse
Avatar
yan
bonsoir a toutes et tous
Petite question qui vous semblera peut-être "bête"
Jusqu'a présent j'écrivais mes macros dans un module et grâce au réponse
faites sur ce groupes j'ai vu que l'on pouvait les écrire dans les feuilles.
J'ai dans des feuilles une fiche de renseignement (une fiche par feuille) et
je récupère dans chaque feuille les données pour les mettre dans un tableau
Alors j'ai fait ceci
Sub recup()
For x = 3 To Sheets.Count
Sheets(x).Activate ' recupere les données de la feuille(x)
a = [E4]
b = [E5]
a = a & " " & b
c = [E6]
d = [D7]
e = [D8]
Sheets(2).Activate 'ecrit les données dans la feuille(2)
Cells(x, 1) = a
Cells(x, 2) = c
Cells(x, 3) = d
Cells(x, 4) = e

ceci marche dans un module pas dans une feuille!!
Ma question : l'écriture d'un code dans une feuille est-elle réservé a la
feuille?
Merci
A+
yannick


Next
End Sub

1 réponse

Avatar
j
si tu es dans un onglet et que tu veux appeler une adresse dans un autre, il
faut que tu précises l'adresse complete :
sheets(x).range("e4) au lieu de [e4]

http://jacxl.free.fr



"yan" a écrit dans le message de news:
41b893ed$0$30118$
bonsoir a toutes et tous
Petite question qui vous semblera peut-être "bête"
Jusqu'a présent j'écrivais mes macros dans un module et grâce au réponse
faites sur ce groupes j'ai vu que l'on pouvait les écrire dans les
feuilles.

J'ai dans des feuilles une fiche de renseignement (une fiche par feuille)
et

je récupère dans chaque feuille les données pour les mettre dans un
tableau

Alors j'ai fait ceci
Sub recup()
For x = 3 To Sheets.Count
Sheets(x).Activate ' recupere les données de la feuille(x)
a = [E4]
b = [E5]
a = a & " " & b
c = [E6]
d = [D7]
e = [D8]
Sheets(2).Activate 'ecrit les données dans la feuille(2)
Cells(x, 1) = a
Cells(x, 2) = c
Cells(x, 3) = d
Cells(x, 4) = e

ceci marche dans un module pas dans une feuille!!
Ma question : l'écriture d'un code dans une feuille est-elle réservé a la
feuille?
Merci
A+
yannick


Next
End Sub