Sujet Précédent Sujet Suivant

Excel : Rendre variable une insertion

Résolu/Fermé
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 - 25 juin 2008 à 23:18
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 - 26 juin 2008 à 09:26
Bonjour,
je voudrais insérer une nouvelle ligne à la fin d'un tableau. J'ai réalisé à partir d'une macro récupérée sur ce forum ce petit code qui permet de réaliser ce que je cherche à l'exception près que cette insertion est fixe car je ne sais comment indiquer dans la commande Rows la ligne ou je suis arrivé. Pouvez-vous m'aider SVP
Merci d'avance
Alain

Sub insertion_ligne()

Ligne = 8 'initialisation de la variable

Do
Ligne = Ligne + 1
contenu = Cells(Ligne, 2)
Loop Until contenu = ""
Rows("12:12").Select
Selection.Insert Shift:=xlDown
Rows("11:11").Select
Selection.Copy
Rows("12:12").Select
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
25 juin 2008 à 23:39
Bonjour,
Pas clair mais je pense que c'est ca que tu veux...
Rows(Ligne).Select
Mais il y a des facon plus technique de trouver ta dernière ligne vide.

DerniereLigne = (Range("A1").SpecialCells(xlCellTypeLastCell).Row) +1
Rows(DerniereLigne ).Select
A+
0
Réponse 2 / 2
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
25 juin 2008 à 23:58
bonjour

Si tu veux rajouter une ligne à ton tableau 
Sub insertion_ligne()
Dim ligne As Long
    ligne = Cells.SpecialCells(xlCellTypeLastCell).Row 'initialisation de la variable
    Rows(ligne).Resize(2).FillDown
End Sub

cela devrait faire ce que tente ta macro.
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
26 juin 2008 à 00:27
Salut,
C'est une bonne idée mais..
Selection.PasteSpecial Paste:=xlFormulas
0
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110 > lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020
26 juin 2008 à 08:55
Merci à tous les 2. Je vais de ce pas essayé ça.
Bonne journée
Alain
0
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110 > alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024
26 juin 2008 à 09:26
Re-bonjour,

ça marche super ! merci beaucoup.

Bonne journée les artistes

Alain
0