Compteur et insertion

Bonjour à tous,

Je voudrai créer une macro pour compter le nombre de ligne jusqu'à la premiere ligne vide dans un tableau sur un onglet défini. Et dans un second temps, je voudrai qu'il insere dans un autre tableau sur un autre onglet le nombre de ligne correspondant au résultat du comptage.
ex si compteur = 10; insertion de 10 lignes.

Merci pour votre aide :(

Salut xema972,

Ci-dessous un code à adapter en fonction du nom de tes feuilles, de la colonne sur laquelle tu comptes les lignes non-vides jusqu'à la première vide et de la ligne sur laquelle tu fais ton insertion de x lignes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Compteur_et_Insertion()   Dim Compteur As Long   Application.ScreenUpdating = False   With Sheets("Feuil1")   Compteur = .Cells(1, 1).End(xlDown).Row   End With   With Sheets("Feuil2")   .Rows("1:" & Compteur).Insert   End With   Application.CutCopyMode = False Application.ScreenUpdating = True   End Sub

---

Ca devrait marcher :ccool:
Tiens-moi au courant !

C'est super !!!
Ca marche trop bien !!!
Merci pour ton aide :mouarf:

Pas d'quoi mon pote, ravi d'avoir pu aider.
Au plaisir d'un prochain post, bon après-midi !

Demande d'un petit complément : je n'arrive pas à me positionner pour qu'il insère les lignes à partir de la ligne n°18. J'ai essayé activecell, range ca ne fonctionne pas :cry: comment faire.

Merci pour ton aide

Code:

---

Workbooks.Worksheets('Ta_Feuille').Cells(18,1).Value = "Numéro 18"

---

Cordialement

Re xema972,

Solution "clés en main" :lol:

Remplace :

Code:

---

.Rows("1:" & Compteur).Insert

---

par :

Code:

---

.Rows("18:" & Compteur).Insert

---

Si j'ai bien compris ce que tu voulais faire, alors ça devrait être ok.
Tiens-moi au jus ;)

Bonsoir Runsh

Citation:

---

Solution "clés en main" :lol:

---

et

Citation:

---

Code:

---

.Rows("18:" & Compteur).Insert

---

---

En remplacement

Code:

---

.Rows("18:" & 17 + Compteur).Insert

---

Bonjour mercatog,

Ravi de te "revoir" à nouveau sur un post.
As usual, merci pour ta correction ;)

Te souhaitant une bonne journée.

Votre humble disciple :lol:

merci à tous les 2