aide étirement de céllule

[nathan2202]

Bonjour,

Dans la page "registre clients", j'ai une ligne ou on es sencé marqué une date... qui ce trouve en céllule :
1er ligne : W11
2eme ligne : W12
ect... jusque W1010 (ce qui donne 1000 lignes (1000clients..))

la céllule A3 de ma page "abonnement" à cette formule ='Regitre clients'!W11
(qui doit recopier la date qui es marqué dans la page "registre clients W11)

donc ... les céllule de la page "abonnement" A3, A31, A59, A87 ect... ( +28 a chaque fois) pendant 1000 fois (car j'ai 1000 clients..)

doit logiquement recopié la date de la page 'registre clients" donc :

"Abonnement" A3 doit recopier "registre clients" W11
"Abonnement" A31 doit recopier "registre clients" W12
"Abonnement" A59 doit recopier "registre clients" W13

J'aimerais crée une formule qui va crée automatiquement tout celà pour ne pas le faire un par un jusque le 1000éme....

quelqu'un aurais une idée ?

Merci beaucoup.

programme en question :

 

[nathan2202]

Re : aide étirement de céllule

??? quelqu'un peux m'aidé ? merci

 

[Celeborn61]

Re : aide étirement de céllule

Salut,

Sub MiseEnPlaceFormule()

' Créé par Celeborn61

For Index = 0 To 999
Sheets("Abonnement").Cells(3 + Index * 28, 1).Formula = "='Regitre clients'!w" & 8 + Index
Next Index
End Sub

 

[nathan2202]

Re : aide étirement de céllule

merci mais soit je ne le mais pas a la bonne place ou alors sa ne vas pas...

je l'ai coler soit dans shabonement (abonement)
ou
thisWorkBook

aucun des deux ne mache..

peux tu regardé svp ? merci

telechargé mon programme en question :

 

[Celeborn61]

Re : aide étirement de céllule

Salut,

Pour moi, ça fonctionne bien, dans un module.

J'ai changé l'index de ligne, 11 en place de 8 après le w", je ne devais pas avoir les yeux en face des trous, désolé.

 

[Denis132]

Re : aide étirement de céllule

Bonjour Nathan, Celeborn

Autre façon sans vba.