options pour la macro lignes suplémentaires

[tchaudre]

Bonjour à tous,

Merci à tous les animateurs de ce forum qui nous permettent d'avancer !

Mon problème est le suivant :

il concerne une macro déjà existante que j'ai trouvé sur le forum

Je souhaiterais pouvoir renseigner à partir d'Excel (dans le bouton lignesup par ex) le nombre de lignes à insérer et l'intervalle avec lequel faire cette insertion.

Le vba n'est pas mon point fort, j'ai juste fait quelques programmes pour mes calculettes quand j'étais à l'école donc je l'avoue avant de repasser des heures à essayer, j'essaye la solution de simplicité. Merci pour votre aide

Je joint le fichier surzone que j'ai modifié pour montrer ce que je veux

 

[skoobi]

Re : options pour la macro lignes suplémentaires

Bonjour tchaudre, bienvenue sur XLD,

je te propose ce code:

Sub test()
Application.ScreenUpdating = False
lig = 6
fin = [A65536].End(xlUp).Row
Do Until lig > fin
  Rows(lig & ":" & lig + 1).Insert
  lig = lig + 7
  fin = [A65536].End(xlUp).Row
Loop
Application.ScreenUpdating = True
End Sub

 

[pierrejean]

Re : options pour la macro lignes suplémentaires

bonjour tchaudre

Salut Skoobi

Ma version

Sub lignsupp()
supp = 2
pas = 5
rep = pas
tableau = Range("A1:D" & Range("D65536").End(xlUp).Row)
Cells.ClearContents
For n = 1 To UBound(tableau, 1)
ligne = ligne + 1
  For m = 1 To UBound(tableau, 2)
    Cells(ligne, m) = tableau(n, m)
  Next m
 If n = rep Then
 ligne = ligne + supp
 rep = rep + pas
 End If
Next n
End Sub

 

[tchaudre]

Re : options pour la macro lignes suplémentaires

Merci à vous deux pour vos réponses si rapides

Ma préférence va pour la version de Pierrejean. J'ai une dernière petite faveur SVP : je voudrais créer un bouton me permettant de renseigner les variables supp et pas directement à partir d'excel.
C'est juste un petit luxe car le principal est fait et me fera gagner bcp de temps; encore merci à vous deux !

 

[pierrejean]

Re : options pour la macro lignes suplémentaires

Re

modif de la macro pour entrer les variables pas et supp

Sub lignsupp()
pas = CInt(InputBox("Quel pas ?"))
supp = CInt(InputBox("Nombre de lignes supplementaires"))
rep = pas
tableau = Range("A1:D" & Range("D65536").End(xlUp).Row)
Cells.ClearContents
For n = 1 To UBound(tableau, 1)
ligne = ligne + 1
  For m = 1 To UBound(tableau, 2)
    Cells(ligne, m) = tableau(n, m)
  Next m
 If n = rep Then
 ligne = ligne + supp
 rep = rep + pas
 End If
Next n
End Sub

 

[tchaudre]

Re : options pour la macro lignes suplémentaires

Bonjour,

Désolé, je n'ai pas eu trop de temps pour venir voir vos réponses !

Mais je suis vraiment très satisfait du résultat que vous m'avez proposé.
D'une part il répond exactement à ma demande et en plus, avec sa simplicité, il me donne envie de me servir plus souvent de macros que je pourrais à mon tour créer.

Merci encore pour vos réponses.

Pour abuser de votre sympathie je me demandais si vous n'auriez pas quelques brèves réponses concernant un autre sujet mais peut-être sera-t-il préférables d'ouvrir une autre discussion ?
Je travaille dans l'imprimerie numérique et plus précisément dans les données variables (code barres, identification, traçabilité ...). J'utilise Excel four faire mes bases de données et ça fini par ramer... gros fichier 500 000 lignes sur 20 colones avec un peu de calculs. Que demande Excel comme config PC pour mieux tourner (ram ou process ou ?)?