Bonjour,
Je débute en VBA...et j'ai un petit souci !!!
Je souhaite insérer automatiquement 4 lignes en dessous de chaque ligne selectionnée... Ci dessous, le code dans lequel il manque qqch pour qu'il fonctionne correctement...Si je selectionne 1 ligne, la macro insere bien 4 lignes en doussous...Mais si je selectionne 2 lignes, la macro en insere 8...Le tableau que je dois modifier contient près de 10000 lignes et si je dois répéter la macro à chaque ligne selectionnée une à une, j'en ai pour des heures...
L'aide de la communauté d'Excel Downloads sera la bienvenue !!!!!
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 07/06/2005 par Ity
'
'
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
End Sub
Je débute en VBA...et j'ai un petit souci !!!
Je souhaite insérer automatiquement 4 lignes en dessous de chaque ligne selectionnée... Ci dessous, le code dans lequel il manque qqch pour qu'il fonctionne correctement...Si je selectionne 1 ligne, la macro insere bien 4 lignes en doussous...Mais si je selectionne 2 lignes, la macro en insere 8...Le tableau que je dois modifier contient près de 10000 lignes et si je dois répéter la macro à chaque ligne selectionnée une à une, j'en ai pour des heures...
L'aide de la communauté d'Excel Downloads sera la bienvenue !!!!!
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 07/06/2005 par Ity
'
'
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
End Sub