Insérer plusieurs cellules plusieurs fois

Résolu/Fermé
Signaler
Messages postés
3
Date d'inscription
vendredi 20 décembre 2013
Statut
Membre
Dernière intervention
20 décembre 2013
-
Messages postés
10192
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
4 décembre 2021
-
Bonjour ,
j'essaye d'insérer plusieurs cellules , et cela plusieurs fois de suite .

En clair je voudrais insérer 14 cellules ou lignes entre chaque lignes pour environ 6000 lignes , donc vous imaginez bien que si je le fais manuellement en faisant la manipulation habituelle , je n'ai pas fini avant l'année prochaine ...

je vous remercie de votre aide , et cela contribuerait grandement à m'éviter une migraine qui commence à poindre .

Coridalement

3 réponses

Messages postés
10192
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
4 décembre 2021
2 256
Bonjour

Via une macro
' insere nbli avnt les lignes de lideb à lifin
Const lideb = 2
Const lifi = 5
Const nbli = 4

Public Sub InsereNlignes()
Dim li As Long, nl As Long
Application.ScreenUpdating = False
For li = lifi To lideb Step -1
  For nl = 1 To nbli
    ActiveSheet.Cells(li, 1).EntireRow.Insert
  Next nl
Next li
Application.ScreenUpdating = True
End Sub

Cdlmnt
Messages postés
3
Date d'inscription
vendredi 20 décembre 2013
Statut
Membre
Dernière intervention
20 décembre 2013

Merci beaucoup ccm81, ça fonctionne !!!!!!!!!!
Messages postés
10192
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
4 décembre 2021
2 256
De rien,

peux tu mettre le problème à résolu, en haut à droite dans ton message initial

Bonne journée