insérer plusieurs cellules plusieurs fois Résolu/Fermé

Question

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

ccm81 · Answer

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

zonzon972 · Answer

Merci beaucoup ccm81, ça fonctionne !!!!!!!!!!

ccm81 · Answer

De rien,

peux tu mettre le problème à résolu, en haut à droite dans ton message initial

Bonne journée

Insérer plusieurs cellules plusieurs fois

3 réponses

Discussions similaires