Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA : insertion d'un nombre de lignes variable

VBA : insertion d'un nombre de lignes variable

4 réponses
Avatar
Domi
Bonjour à tous,
Dans une plage A7:A50, il y a des refs. En face de chaque ref, sur la
colonne I, il y a un nombre.
Je voudrais insérer sous chaque cellule non vide de la plage A7:A50 (ref
présente) un nombre de lignes vides = au nombre qui figure en face de la ref
(dans la colonne I)
Quelqu'un pourrait-il m'indiquer comment faire cela par VBA ?
Merci
Domi
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir,
ceci peut-être
'----------
Sub jj()
Application.ScreenUpdating = False
For Each c In [i7:i50]
If c.Offset(0, -8) <> "" And c <> "" Then
Rows(c.Row + 1 & ":" & c.Row + c).Insert
End If
Next
End Sub
'-------------
voir ici:
http://cjoint.com/?iBucIPjCGW


--
Salutations
JJ


"Domi" a écrit dans le message de news:

Bonjour à tous,
Dans une plage A7:A50, il y a des refs. En face de chaque ref, sur la
colonne I, il y a un nombre.
Je voudrais insérer sous chaque cellule non vide de la plage A7:A50 (ref
présente) un nombre de lignes vides = au nombre qui figure en face de la
ref (dans la colonne I)
Quelqu'un pourrait-il m'indiquer comment faire cela par VBA ?
Merci
Domi



Avatar
Domi
J'achète !
Merci beaucoup ;o)
Domi

"Jacky" a écrit dans le message de news:

Bonsoir,
ceci peut-être
'----------
Sub jj()
Application.ScreenUpdating = False
For Each c In [i7:i50]
If c.Offset(0, -8) <> "" And c <> "" Then
Rows(c.Row + 1 & ":" & c.Row + c).Insert
End If
Next
End Sub
'-------------
voir ici:
http://cjoint.com/?iBucIPjCGW


--
Salutations
JJ


"Domi" a écrit dans le message de news:

Bonjour à tous,
Dans une plage A7:A50, il y a des refs. En face de chaque ref, sur la
colonne I, il y a un nombre.
Je voudrais insérer sous chaque cellule non vide de la plage A7:A50 (ref
présente) un nombre de lignes vides = au nombre qui figure en face de la
ref (dans la colonne I)
Quelqu'un pourrait-il m'indiquer comment faire cela par VBA ?
Merci
Domi








Avatar
Jacky
> J'achète !



T'as de la chance, c'était en promo.
;o))

--
Salutations
JJ


"Domi" a écrit dans le message de news:
ePvW%
J'achète !
Merci beaucoup ;o)
Domi

"Jacky" a écrit dans le message de news:

Bonsoir,
ceci peut-être
'----------
Sub jj()
Application.ScreenUpdating = False
For Each c In [i7:i50]
If c.Offset(0, -8) <> "" And c <> "" Then
Rows(c.Row + 1 & ":" & c.Row + c).Insert
End If
Next
End Sub
'-------------
voir ici:
http://cjoint.com/?iBucIPjCGW


--
Salutations
JJ


"Domi" a écrit dans le message de news:

Bonjour à tous,
Dans une plage A7:A50, il y a des refs. En face de chaque ref, sur la
colonne I, il y a un nombre.
Je voudrais insérer sous chaque cellule non vide de la plage A7:A50 (ref
présente) un nombre de lignes vides = au nombre qui figure en face de la
ref (dans la colonne I)
Quelqu'un pourrait-il m'indiquer comment faire cela par VBA ?
Merci
Domi












Avatar
Jacky
Re..
Au prix fort se sera...
'------------
Sub jj()
Application.ScreenUpdating = False
For i = 50 To 7 Step -1
If Cells(i, 1) <> "" And Cells(i, 9) <> "" Then
Rows(i + 1 & ":" & i + Cells(i, 9)).Insert
End If
Next
End Sub
'-----------
Qui ne prend pas en compte inutilement les cellule insérées, donc plus
rapide
--
Salutations
JJ


"Domi" a écrit dans le message de news:
ePvW%
J'achète !
Merci beaucoup ;o)
Domi

"Jacky" a écrit dans le message de news:

Bonsoir,
ceci peut-être
'----------
Sub jj()
Application.ScreenUpdating = False
For Each c In [i7:i50]
If c.Offset(0, -8) <> "" And c <> "" Then
Rows(c.Row + 1 & ":" & c.Row + c).Insert
End If
Next
End Sub
'-------------
voir ici:
http://cjoint.com/?iBucIPjCGW


--
Salutations
JJ


"Domi" a écrit dans le message de news:

Bonjour à tous,
Dans une plage A7:A50, il y a des refs. En face de chaque ref, sur la
colonne I, il y a un nombre.
Je voudrais insérer sous chaque cellule non vide de la plage A7:A50 (ref
présente) un nombre de lignes vides = au nombre qui figure en face de la
ref (dans la colonne I)
Quelqu'un pourrait-il m'indiquer comment faire cela par VBA ?
Merci
Domi