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
sabatier
bonjour daniel que je te dise tout de suite : poser une question de la sorte (ni bonjour, ni merci, ni m.... n'encline pas à la sollicitude... ceci dit, tu peux essayer cette proc :
Sub EntrelarderUneLigneVierge() Application.ScreenUpdating = False Sheets("Feuil1").Activate ligneDébut = Val(InputBox("N° de la première ligne à supprimer") - 1) ligneFin = Val(InputBox("N° de la dernière ligne à supprimer")) For lig = ligneDébut To ligneFin Step 2 Rows(lig + 2).Insert shift:=xlShiftDown Next lig End Sub
HTH jps
LAURENT Daniel a écrit:
comment incrementé 1 ligne viege toute les 2 ligne d'un tableau
bonjour daniel
que je te dise tout de suite : poser une question de la sorte (ni
bonjour, ni merci, ni m.... n'encline pas à la sollicitude...
ceci dit, tu peux essayer cette proc :
Sub EntrelarderUneLigneVierge()
Application.ScreenUpdating = False
Sheets("Feuil1").Activate
ligneDébut = Val(InputBox("N° de la première ligne à supprimer") - 1)
ligneFin = Val(InputBox("N° de la dernière ligne à supprimer"))
For lig = ligneDébut To ligneFin Step 2
Rows(lig + 2).Insert shift:=xlShiftDown
Next lig
End Sub
HTH
jps
LAURENT Daniel a écrit:
comment incrementé 1 ligne viege toute les 2 ligne d'un tableau
bonjour daniel que je te dise tout de suite : poser une question de la sorte (ni bonjour, ni merci, ni m.... n'encline pas à la sollicitude... ceci dit, tu peux essayer cette proc :
Sub EntrelarderUneLigneVierge() Application.ScreenUpdating = False Sheets("Feuil1").Activate ligneDébut = Val(InputBox("N° de la première ligne à supprimer") - 1) ligneFin = Val(InputBox("N° de la dernière ligne à supprimer")) For lig = ligneDébut To ligneFin Step 2 Rows(lig + 2).Insert shift:=xlShiftDown Next lig End Sub
HTH jps
LAURENT Daniel a écrit:
comment incrementé 1 ligne viege toute les 2 ligne d'un tableau
LAURENT Daniel
Mille excuse , je n'ai pas encore l'abitude merci encore cela fonctionne et encore mes escuse pour cet oubli de salutations "sabatier" a écrit dans le message de news:
bonjour daniel que je te dise tout de suite : poser une question de la sorte (ni bonjour, ni merci, ni m.... n'encline pas à la sollicitude... ceci dit, tu peux essayer cette proc :
Sub EntrelarderUneLigneVierge() Application.ScreenUpdating = False Sheets("Feuil1").Activate ligneDébut = Val(InputBox("N° de la première ligne à supprimer") - 1) ligneFin = Val(InputBox("N° de la dernière ligne à supprimer")) For lig = ligneDébut To ligneFin Step 2 Rows(lig + 2).Insert shift:=xlShiftDown Next lig End Sub
HTH jps
LAURENT Daniel a écrit:
comment incrementé 1 ligne viege toute les 2 ligne d'un tableau
Mille excuse , je n'ai pas encore l'abitude
merci encore cela fonctionne
et encore mes escuse pour cet oubli de salutations
"sabatier" <biscotteUnScudJjpsabatdelaile@wanadoo.fr> a écrit dans le
message de news:409BB416.8080909@wanadoo.fr...
bonjour daniel
que je te dise tout de suite : poser une question de la sorte (ni
bonjour, ni merci, ni m.... n'encline pas à la sollicitude...
ceci dit, tu peux essayer cette proc :
Sub EntrelarderUneLigneVierge()
Application.ScreenUpdating = False
Sheets("Feuil1").Activate
ligneDébut = Val(InputBox("N° de la première ligne à supprimer") - 1)
ligneFin = Val(InputBox("N° de la dernière ligne à supprimer"))
For lig = ligneDébut To ligneFin Step 2
Rows(lig + 2).Insert shift:=xlShiftDown
Next lig
End Sub
HTH
jps
LAURENT Daniel a écrit:
comment incrementé 1 ligne viege toute les 2 ligne d'un tableau
Mille excuse , je n'ai pas encore l'abitude merci encore cela fonctionne et encore mes escuse pour cet oubli de salutations "sabatier" a écrit dans le message de news:
bonjour daniel que je te dise tout de suite : poser une question de la sorte (ni bonjour, ni merci, ni m.... n'encline pas à la sollicitude... ceci dit, tu peux essayer cette proc :
Sub EntrelarderUneLigneVierge() Application.ScreenUpdating = False Sheets("Feuil1").Activate ligneDébut = Val(InputBox("N° de la première ligne à supprimer") - 1) ligneFin = Val(InputBox("N° de la dernière ligne à supprimer")) For lig = ligneDébut To ligneFin Step 2 Rows(lig + 2).Insert shift:=xlShiftDown Next lig End Sub
HTH jps
LAURENT Daniel a écrit:
comment incrementé 1 ligne viege toute les 2 ligne d'un tableau
sabatier
te absolvo, daniel jps
LAURENT Daniel a écrit:
Mille excuse , je n'ai pas encore l'abitude merci encore cela fonctionne et encore mes escuse pour cet oubli de salutations "sabatier" a écrit dans le message de news:
bonjour daniel que je te dise tout de suite : poser une question de la sorte (ni bonjour, ni merci, ni m.... n'encline pas à la sollicitude... ceci dit, tu peux essayer cette proc :
Sub EntrelarderUneLigneVierge() Application.ScreenUpdating = False Sheets("Feuil1").Activate ligneDébut = Val(InputBox("N° de la première ligne à supprimer") - 1) ligneFin = Val(InputBox("N° de la dernière ligne à supprimer")) For lig = ligneDébut To ligneFin Step 2 Rows(lig + 2).Insert shift:=xlShiftDown Next lig End Sub
HTH jps
LAURENT Daniel a écrit:
comment incrementé 1 ligne viege toute les 2 ligne d'un tableau
te absolvo, daniel
jps
LAURENT Daniel a écrit:
Mille excuse , je n'ai pas encore l'abitude
merci encore cela fonctionne
et encore mes escuse pour cet oubli de salutations
"sabatier" <biscotteUnScudJjpsabatdelaile@wanadoo.fr> a écrit dans le
message de news:409BB416.8080909@wanadoo.fr...
bonjour daniel
que je te dise tout de suite : poser une question de la sorte (ni
bonjour, ni merci, ni m.... n'encline pas à la sollicitude...
ceci dit, tu peux essayer cette proc :
Sub EntrelarderUneLigneVierge()
Application.ScreenUpdating = False
Sheets("Feuil1").Activate
ligneDébut = Val(InputBox("N° de la première ligne à supprimer") - 1)
ligneFin = Val(InputBox("N° de la dernière ligne à supprimer"))
For lig = ligneDébut To ligneFin Step 2
Rows(lig + 2).Insert shift:=xlShiftDown
Next lig
End Sub
HTH
jps
LAURENT Daniel a écrit:
comment incrementé 1 ligne viege toute les 2 ligne d'un tableau
Mille excuse , je n'ai pas encore l'abitude merci encore cela fonctionne et encore mes escuse pour cet oubli de salutations "sabatier" a écrit dans le message de news:
bonjour daniel que je te dise tout de suite : poser une question de la sorte (ni bonjour, ni merci, ni m.... n'encline pas à la sollicitude... ceci dit, tu peux essayer cette proc :
Sub EntrelarderUneLigneVierge() Application.ScreenUpdating = False Sheets("Feuil1").Activate ligneDébut = Val(InputBox("N° de la première ligne à supprimer") - 1) ligneFin = Val(InputBox("N° de la dernière ligne à supprimer")) For lig = ligneDébut To ligneFin Step 2 Rows(lig + 2).Insert shift:=xlShiftDown Next lig End Sub
HTH jps
LAURENT Daniel a écrit:
comment incrementé 1 ligne viege toute les 2 ligne d'un tableau