Bonjour à tous,
Je suis entrain de faire un outil de calcul sur Excel. j'ai deux feuille dans un classeur
une base de données : Annexe Lise de câbles
une feuille de calcul : Liaisons HT
Sur la feuille de calcul, je fais un filtre et dois copier/coller le résultat du filtrage dans la feuille de calcul. Etant donné que je connais pas exactement le nombre de ligne à copier/coller
Je voudrais, avec VBA trouver le nombre de ligne non vide suite à un filtre (Autofilter) afin de pouvoir résever sur la feuille de calcul le nombre de ligne nécessaire pour effectuer le collage.
Voici ci-dessous je code que j'ai déjà écrit.
Sub filtre1()
local_tenant = ActiveWorkbook.Sheets("Accueil").Range("D4").Value
local_aboutissant = ActiveWorkbook.Sheets("Accueil").Range("D6").Value
' Copie des cables HT
'
' ***************************************************************************
' Récupération des câbles entre HLA et HPA
' ***************************************************************************
Application.ScreenUpdating = False
Sheets("Annexe Liste des câbles").Select
'Filter les colonnes niveau de tension et local tenant
'ActiveSheet.Range("Tableau4").AutoFilter Field:=26, Criteria1:=local_aboutissant
ActiveSheet.Range("Tableau4").AutoFilter Field:=21, Criteria1:=local_tenant
ActiveSheet.Range("Tableau4").AutoFilter Field:=7, Criteria1:="HT"
'Copier les codes ECS de câbles dans base de données
Range("Tableau4[Code ECS]").Select
selection.Copy
'Coller les données copiées dans la feuille de calcul
Sheets("Liaisons HT").Select
Range("D15").Select
ActiveSheet.Paste
Il me reste maintenant à trouver le nombre de ligne nom vide sous la colonne [Code ECS]. Cela me permettrait de réserver un nombre de ligne correspondant avant de coller les éléments dans la feuille de calcul (Liaisons HT.
J'espère avoir été clair et vous remercie par avance de votre soutien.
Je suis entrain de faire un outil de calcul sur Excel. j'ai deux feuille dans un classeur
une base de données : Annexe Lise de câbles
une feuille de calcul : Liaisons HT
Sur la feuille de calcul, je fais un filtre et dois copier/coller le résultat du filtrage dans la feuille de calcul. Etant donné que je connais pas exactement le nombre de ligne à copier/coller
Je voudrais, avec VBA trouver le nombre de ligne non vide suite à un filtre (Autofilter) afin de pouvoir résever sur la feuille de calcul le nombre de ligne nécessaire pour effectuer le collage.
Voici ci-dessous je code que j'ai déjà écrit.
Sub filtre1()
local_tenant = ActiveWorkbook.Sheets("Accueil").Range("D4").Value
local_aboutissant = ActiveWorkbook.Sheets("Accueil").Range("D6").Value
' Copie des cables HT
'
' ***************************************************************************
' Récupération des câbles entre HLA et HPA
' ***************************************************************************
Application.ScreenUpdating = False
Sheets("Annexe Liste des câbles").Select
'Filter les colonnes niveau de tension et local tenant
'ActiveSheet.Range("Tableau4").AutoFilter Field:=26, Criteria1:=local_aboutissant
ActiveSheet.Range("Tableau4").AutoFilter Field:=21, Criteria1:=local_tenant
ActiveSheet.Range("Tableau4").AutoFilter Field:=7, Criteria1:="HT"
'Copier les codes ECS de câbles dans base de données
Range("Tableau4[Code ECS]").Select
selection.Copy
'Coller les données copiées dans la feuille de calcul
Sheets("Liaisons HT").Select
Range("D15").Select
ActiveSheet.Paste
Il me reste maintenant à trouver le nombre de ligne nom vide sous la colonne [Code ECS]. Cela me permettrait de réserver un nombre de ligne correspondant avant de coller les éléments dans la feuille de calcul (Liaisons HT.
J'espère avoir été clair et vous remercie par avance de votre soutien.