Formule vba
Fermé
guismo33
Messages postés
351
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 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 3 mars 2017 à 12:53
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 3 mars 2017 à 12:53
A voir également:
- Formule vba
- Formule excel - Guide
- Formule si et - Guide
- Formule moyenne excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Mise en forme conditionnelle formule si - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
3 mars 2017 à 07:43
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 ?
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 ?
3 mars 2017 à 12:53
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