copier avec rappel d'une feuille

[fabrice]

salut voila j'aimerais savoir comment faire pour copier cette fonction
=si(t(Feuil9!C3)="";"z";t(Feuil9!C3))

dans les cellules de dessous de maniere que ce soit les feuilles qui s'incremente plutot que les cellules c'est a dire que j'obtienne ca

=si(t(Feuil10!C3)="";"z";t(Feuil10!C3)) et ainsi de suite au lieu de

=si(t(Feuil9!c4)="";"z";t(Feuil9!C4))


merci d'avance

 

[nanor]

voici une solution.
Cela me semble du bricolage mais bon.

nanor

 

[fabrice]

meric a toi mais j'avais deja en bricolant reussi a obtenir ce resulat le probleme et que je n'aobtient que du texte a la fin dans la cellule (ce n'est pas reconnu comme une formules

 

[Mytå]

Bonsoir le forum

fabrice un debut de macro tu selectionnes la cellule ou commencer

la valeur exemple C3
la premiere feuille a valider
le nombre de cellule a remplir

te reste juste a aller inscrire un = devant les valeurs de chaque cellules remplit, pas trouver comment inserer le = par defaut.

Peut-etre que quelqu'un saura

Sub copier_vers_bas()
a = ActiveCell.Row
b = ActiveCell.Column
cellule = InputBox("Entrez la cellule à copier")
If cellule = "" Then Exit Sub
feuille = InputBox("Entrez le numéro de la première feuille")
If feuille = "" Then Exit Sub
nombre = InputBox("Entrez le nombre de cellule à remplir")
If nombre = "" Then Exit Sub
For i = feuille To feuille + nombre
valeur = "SI(T(Feuil" & i & "!" & cellule & ")=" & Chr(34) & Chr(34) & ";" & Chr(34) & "z" & Chr(34) & ";T(Feuil" & i & "!" & cellule & "))"
Cells(a, b).Formula = valeur
a = a + 1
Next i
End Sub

A suivre Mytå

 

[fabrice]

rien compris merci quand meme