Insertion ligne avec une formule NB.SI
Résolu/Fermé
DridriR
Messages postés
2
Date d'inscription
mardi 6 octobre 2015
Statut
Membre
Dernière intervention
18 octobre 2015
-
6 oct. 2015 à 19:36
DridriR Messages postés 2 Date d'inscription mardi 6 octobre 2015 Statut Membre Dernière intervention 18 octobre 2015 - 18 oct. 2015 à 21:51
DridriR Messages postés 2 Date d'inscription mardi 6 octobre 2015 Statut Membre Dernière intervention 18 octobre 2015 - 18 oct. 2015 à 21:51
A voir également:
- Insertion ligne avec une formule NB.SI
- Formule excel - Guide
- Formule de politesse mail anglais - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Apparaitre hors ligne whatsapp - Guide
- Aller à la ligne excel - Guide
1 réponse
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
7 oct. 2015 à 08:08
7 oct. 2015 à 08:08
Bonjour
Essayez ceci
Cdlt
Essayez ceci
Option Compare Text
Sub SAUTDELIGNE()
Application.ScreenUpdating = False
' SAUTDELIGNE Macro
Dim cellule As Variant
'se positionne au bas de la colonne et remonte
For i = Range("a65536").End(xlUp).Row To 2 Step -1
'selectionne la ligne lors du changement de valeur et ajoute une ligne en dessous
If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then Rows(i + 1).EntireRow.Insert Shift:=x1Down
Next i
[A2].Select
Derlig = Range("a65536").End(xlUp).Row
Cpt = 0
For i = 2 To Derlig + 1
If Cells(i, 1) <> "" Then
Cpt = Cpt + 1
GoTo Suivant
End If
Formule = "=COUNTIF(R[-" & Cpt & "]C[2]:R[-1]C[2],""yes"")*R3C15"
Cells(i, 4).FormulaR1C1 = Formule
Cpt = 0
Suivant:
Next i
End Sub
Cdlt

18 oct. 2015 à 21:51
Merci beaucoup pour votre aide.
C'est exactement ça !