Insertion de lignes avec copie de formules et remise à zéro
Fermé
jenor
Messages postés
51
Date d'inscription
mercredi 10 juin 2015
Statut
Membre
Dernière intervention
24 juillet 2015
-
Modifié par jenor le 22/07/2015 à 14:29
ccm81 Messages postés 10543 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 18 mars 2023 - 24 juil. 2015 à 16:43
ccm81 Messages postés 10543 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 18 mars 2023 - 24 juil. 2015 à 16:43
A voir également:
- Insertion de lignes avec copie de formules et remise à zéro
- Lien copie - Forum Android
- Remise a zero pc - Guide
- Formules excel - Guide
- Copiez la ligne indiquant aux moteurs de recherche de ne pas référencer la page. ✓ - Forum Référencement
- Remise à zéro iphone - Guide
2 réponses
ccm81
Messages postés
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
22 juil. 2015 à 19:15
22 juil. 2015 à 19:15
Bonjour
As tu vraiment besoin de vba ?
E19=SI(A19="";"";SI(B19="A";D19+E18;D19))
devrait aller, du moins si j'ai compris
Cdlmnt
As tu vraiment besoin de vba ?
E19=SI(A19="";"";SI(B19="A";D19+E18;D19))
devrait aller, du moins si j'ai compris
Cdlmnt
ccm81
Messages postés
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
Modifié par ccm81 le 24/07/2015 à 16:45
Modifié par ccm81 le 24/07/2015 à 16:45
Je verrai ceci
Bonjour
Je verrai comme ceci
RQ. Je n'ai pas compris les .ClearContents qui s'appliquent à des cellules déjà vides
http://www.cjoint.com/c/EGyoTDO7V5R
Cdlmnt
Bonjour
Je verrai comme ceci
Private Sub PutFormulas(cas As Byte)
Dim z As Long, i As Long
z = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
Rows(z).Insert
i = z - 1
With ActiveSheet
Select Case cas
Case 1
.Range("F" & z) = .Range("F" & i)
.Range("B" & z) = "A"
Case 2
.Range("B" & z) = "B"
.Range("D" & z) = 0
End Select
.Range("E" & i).AutoFill Destination:=.Range("E" & i & ":E" & z)
End With
End Sub
RQ. Je n'ai pas compris les .ClearContents qui s'appliquent à des cellules déjà vides
http://www.cjoint.com/c/EGyoTDO7V5R
Cdlmnt
Modifié par jenor le 24/07/2015 à 10:57
Voici ma macro d'ailleurs (que j'ai légèrement modifié après qu'elle m'ait été donnée par un internaute) :