Discussion :

[vbomars]

Bonjour à tous,

Débutant en VBA, même après avoir bien cherché, je n'arrive pas à créer une macro permettant de compter le nombre de lignes pleines d'une base de données située sur une feuille A afin de déterminer de combien de lignes la macro doit étendre les lignes sur un feuille B (lignes composées uniquement de formules dans la feuille B me permettant de retraiter les informations figurant dans la base de données).

Est-ce que quelqu'un saurait m'aider ?

A votre disposition si vous avez besoin de plus de détails.

Merci beaucoup.

[Gado2600]

Bonjour,

Utilises la fonction range(a, b).end(xlup).row pour connaitre ton nombre de lignes non vides de ton formulaire.
Ensuite, tu as plusieurs options pour l'ajout de tes lignes :
- un Insert
- un copy
- une écriture en brute de tes lignes

A toi de voir

Cordialement,

[vbomars]

Bonjour Gado,

Pour la fonction range(a, b).end(xlup).row (qui comptera les lignes de ma feuille A), comment puis-je l'intégrer à ma macro pour faire descendre les lignes du nombre correspondant dans la feuille B ?

Dois-je définir une variable ?

Les formules seront systématiquement les mêmes et seront situées sur la première ligne de la feuille B, est-ce que tu saurais quelle commande utiliser pour descendre les lignes ?

Comment intégrer ma variable à la commande ?

Merci pour ton aide précieuse et bonne journée !

[Gado2600]

Oui, il te faut intégrer cette fonction dans une variable. En tout cas, c'est mieux pour pouvoir réaliser des calculs avec et pouvoir faire des tests rapidement.

Ensuite, pour tes lignes, je ne connais pas les formules que tu appliques mais j'ai listé 3 méthodes qui te permettra de les insérer. A toi de déterminer laquelle est la meilleure pour ce que tu cherches à faire.

Tu as aussi l'enregistreur de macro sur Excel, si tu veux connaitre en VBA, ce que tu peux faire manuellement (attention ! les codes générés ne sont pas fiables à 100% mais cela aide)

cordialement,

[vbomars]

Gado,

C'est parti pour les tests

Merci encore !

[Marc-L]

Bonjour,

si les données sont contigües, voir aussi du côté des propriétés CurrentRegion, Rows et Count …

[vbomars]

Bonjour,

J'ai trouvé la solution, je viens donc la partager avec les autres utilisateurs, en cas de besoin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Test()
Dim Variable1 As Long
Sheets("Feuil1").Activate
Variable1 = Range(Range("A2", Range("A" & Rows.Count).End(xlUp)).Address).Count
Sheets("Feuil2").Activate
Range("A2:F2").AutoFill Destination:=Range("A2:F" & Variable1)
End Sub

Bonne journée !