copier avec rappel d'une feuille

  • Initiateur de la discussion fabrice
  • Date de début
F

fabrice

Guest
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
 
M

Mytå

Guest
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å
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib