Formule vba

Fermé
guismo33
Messages postés
352
Date d'inscription
samedi 7 décembre 2013
Statut
Membre
Dernière intervention
21 mars 2021
- 2 mars 2017 à 20:23
guismo33
Messages postés
352
Date d'inscription
samedi 7 décembre 2013
Statut
Membre
Dernière intervention
21 mars 2021
- 3 mars 2017 à 12:53
bonjour a tous,

dans une feuil j'ai 30 lignes numeroté 1 à 30, sur chaque ligne des infos,
peut ont copier les informations de chaque ligne sur 30 feuils.
ex: infos ligne 1 sur feuil1 , ligne 2 sur feuil2
en sachant que les infos a copier sont au même endroit.


merci a tous

1 réponse

michel_m
Messages postés
16574
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
3 août 2022
3 278
3 mars 2017 à 07:43
Bonjour

DOUBLON

https://forums.commentcamarche.net/forum/affich-34408487-formule

si un bénévole taillable et corvéable à merci ne te répond pas de suite, tu encombres le forum en créant un doublon ?

0
guismo33
Messages postés
352
Date d'inscription
samedi 7 décembre 2013
Statut
Membre
Dernière intervention
21 mars 2021
2
3 mars 2017 à 12:53
Bonjour michel,

non ce n'est pas un doublon, dans la formule précédente je prend l'infos sur 1 ligne
et l’intégré dans une feuil.
ma demande , avec la même formule , j'ai 30 lignes et donc 30 feuils N° de 1 à 30
de prendre l'info ligne 1 et mettre dans feuil1, prendre l'info ligne 2 et mettre dans feuil 2
pour ne pas copier la formule 30 fois.

merci a toi
Sub Macro1()
Dim lig As Long

With Sheets("DD")
lig = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(lig, "A").Value = Date
For j = 15 To 23
If ActiveSheet.Cells(5, j) <= 3 Then
.Cells(lig, j - 13) = ActiveSheet.Cells(5, j)
End If
If ActiveSheet.Cells(5, j) <= 4 Then
.Cells(lig, j - 4) = ActiveSheet.Cells(5, j)
End If

Next j
End With

End Sub


Bien à vous
0