[XL-2003] Compteur et insertion [Résolu]

[xema972]

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

[Runsh63]

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
Tiens-moi au courant !

[xema972]

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

[Runsh63]

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

[xema972]

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 comment faire.

Merci pour ton aide

[ssoltani]

Code :

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

Cordialement

[Runsh63]

Re xema972,

Solution "clés en main"

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

[mercatog]

Bonsoir Runsh

Solution "clés en main"

et

Code :

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

En remplacement

Code :

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

[Runsh63]

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

[xema972]

merci à tous les 2