Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ajout ligne

Ajout ligne

1 réponse
Avatar
Boillat Jacques
Bonjour,
j'utilise la formule suivante pour insérer des lignesdans un tableau
Sub Bouton452_QuandClic()
Range("C14").Select
Selection.EntireRow.Insert
Range("A15:O15").Select
Selection.AutoFill Destination:=Range("A14:O15"), Type:=xlFillDefault
Range("A14:O15").Select
End Sub
Pourriez-vous m'indiquer comment modifier le programme pour insérer des
ligne à l'avant dernière ligne du tableau. Maintenant elle est toujours
insérer en ligne 14
Merci
Signaler un problème avec ce contenu

1 réponse

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
...patrick
La dernière ligne sera trouvée comme ceci :

LastrowC = Range("C65000").End(xlUp).Row
Cells(LastrowC, 1).Select
Selection.EntireRow.Insert


...Patrick


"Boillat Jacques" a écrit dans le message de
news:41eac2cb$
Bonjour,
j'utilise la formule suivante pour insérer des lignesdans un tableau
Sub Bouton452_QuandClic()
Range("C14").Select
Selection.EntireRow.Insert
Range("A15:O15").Select
Selection.AutoFill Destination:=Range("A14:O15"), Type:=xlFillDefault
Range("A14:O15").Select
End Sub
Pourriez-vous m'indiquer comment modifier le programme pour insérer des
ligne à l'avant dernière ligne du tableau. Maintenant elle est toujours
insérer en ligne 14
Merci