Insérer une ligne avec condition
Résolu/Fermé
Ecrelinf
Messages postés
36
Date d'inscription
mercredi 12 mars 2014
Statut
Membre
Dernière intervention
26 février 2015
-
17 mars 2014 à 17:56
Ecrelinf Messages postés 36 Date d'inscription mercredi 12 mars 2014 Statut Membre Dernière intervention 26 février 2015 - 19 mars 2014 à 08:44
Ecrelinf Messages postés 36 Date d'inscription mercredi 12 mars 2014 Statut Membre Dernière intervention 26 février 2015 - 19 mars 2014 à 08:44
A voir également:
- Insérer une ligne avec condition
- Insérer une vidéo sur powerpoint - Guide
- Excel cellule couleur si condition texte - Guide
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Partager photos en ligne - Guide
2 réponses
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
18 mars 2014 à 09:35
18 mars 2014 à 09:35
Bonjour,
un exemple:
un exemple:
Sub test()
Dim f As Long
'adaptez le nom de la feuille
With Worksheets("feuil1")
'derniere cellule non vide colonne J
derlig = Range("J" & Rows.Count).End(xlUp).Row
'boucle de fin vers debut-1
For f = derlig To 2 Step -1
If Range("J" & f).Value <> Range("J" & f - 1) Then
Rows(f).Insert Shift:=xlUp
End If
Next f
End With
End Sub
Ecrelinf
Messages postés
36
Date d'inscription
mercredi 12 mars 2014
Statut
Membre
Dernière intervention
26 février 2015
19 mars 2014 à 08:44
19 mars 2014 à 08:44
Nickel merci à toi !!