Ajustement automatique Nombre de lignes tableau

Re : Ajustement automatique Nombre de lignes tableau

Salut petrich et le forum
N'étant ni utilisateur de ton fichier, ni télépathe, j'ai du mal à comprendre ce que tu veux ! Je suppose que c'est la macro de nom "Macro_MAJ" puisqu'il n'y en a pas d'autre dans le fichier. Mais alors pourquoi ne pas l'indiquer ???

Il y a plusieurs méthode pour savoir qu'elle est la dernière ligne non vide d'une colonne. Pour des formules le calcul de la dernière ligne utilisée en A sera de la forme : qui dans l'exemple fourni nous donne 19.
L'avantage, c'est que tout changement sera réactualisé avec le calcul de la feuille.
L'inconvénient est que si la colonne A contient des lignes vides, entre les valeurs, le résultat sera faussé.

La "même" formule en VBA sera de la forme : donnera le numéro de la ligne de la dernière cellule non vide en A.
Avantage : se fout du contenu en A
inconvénient : ne fonctionne que si on exécute le code.

Mais comme je ne sais pas ce que tu attends...
A+

Re : Ajustement automatique Nombre de lignes tableau

Bonjour

comme tu as excel 2007, tu as une fonctionnalité intégrée parfaitement adaptée : les tables. Elles sont faites justement pour s'adapter automatiquement à ton nombre de lignes (et de colonnes)
Un peu de lecture
Ce lien n'existe plus
tu peux les manipuler facilement en VBA
Ce lien n'existe plus

avec deux petites lignes en fin d'import de tes données, tu ajustes la table nommée ici nom_table

Fin = Range("A1").End(xlDown).Row
nbcol 'à toi de le définir ou de le faire automatiquement par exemple avec end(xlright).column

ListObjects("nom_table").Resize Range(Cells(1, 1), Cells(Fin, NbCol))

faute de pouvoir voir le code de ta macro, à toi d'ajuster.

Re : Ajustement automatique Nombre de lignes tableau

Merci Gorfael, merci Misange pour vos inputs.

J'ai pu coder une macro qui répond à mes besoins et fait exactement ce que je lui demande à savoir, raccourcir ou rallonger la table en fonction de mon import.

Je suis intéressé par des avis expérimentés sur les 2 points suivants:

1. Optimisation du code
2. Amélioration possible par introduction d'un check de vérification de présence de la feuille car j'ai en fait ce même code reproduit 4 fois avec des noms de variables différents car j'ai 8 feuilles différentes dans mon tableur.

Vos avis sont donc les bienvenues ;-)

Merci en tout cas pour les pistes qui m'ont bien servies...

Voilà donc le code de ma macro:

Sub Macro_Sizing_Tables()
'
' Size les tables des onglets "Analyse Offre" en fonction des imports d'éligibilité
'
' Touche de raccourci du clavier: Ctrl+T
'

' Déclaration des variables
Dim NbligBSPBX, NbligAnalyseBSPBX As Integer
Dim FinalRangeBSPBX, NewRangeBSPBX As Range

' Calcul nombre lignes dans l'import

' Pour Offre BS PBX
NbligBSPBX = Sheets("BS PBX").Range("A6").End(xlDown).Row
NbligAnalyseBSPBX = (Range("Table_BSPBX").Rows.Count) + 5

' Sizing des tables et saisies automatiques dans les tables

' Pour Offre BS PBX
With Sheets("Analyse BS PBX")
If (NbligBSPBX < NbligAnalyseBSPBX) Then
' Si import strictement + court que table actuelle, Alors suppression des lignes en trop
.Activate
Range(Cells(NbligBSPBX + 1, "B"), Cells(NbligAnalyseBSPBX, "M")).Delete Shift:=xlShiftUp

ElseIf (NbligBSPBX > NbligAnalyseBSPBX) Then
' Sinon si import strictement + long que table actuelle, Alors ajout de lignes et recopie de données

Set FinalRangeBSPBX = .ListObjects("Table_BSPBX").ListRows(Range("Table_BSPBX").Rows.Count).Range
.ListObjects("Table_BSPBX").Resize Range("$B$5", Cells(NbligBSPBX, "M"))
Set NewRangeBSPBX = Range(FinalRangeBSPBX, FinalRangeBSPBX.End(xlDown))

.Activate
FinalRangeBSPBX.Select
FinalRangeBSPBX.AutoFill Destination:=NewRangeBSPBX, Type:=xlFillCopy

End If
End With

End Sub

Re : Ajustement automatique Nombre de lignes tableau

Re,

j'ai à priori trouver un moyen de ne pas générer d'erreur en cas d'absence de la feuille BS PBX en modifiant mon code ainsi:

Mais à nouveau preneur d'avis ;-)

Merci

Sub Macro_Sizing_Tables()
'
' Size les tables des onglets "Analyse Offre" en fonction des imports d'éligibilité
'
' Touche de raccourci du clavier: Ctrl+T
'

' Déclaration des variables
Dim NbligBSPBX, NbligAnalyseBSPBX As Integer
Dim FinalRangeBSPBX, NewRangeBSPBX As Range

' Calcul nombre lignes dans l'import

' Pour Offre BS PBX
On Error Resume Next
NbligBSPBX = Sheets("BS PBX").Range("A6").End(xlDown).Row
NbligAnalyseBSPBX = (Range("Table_BSPBX").Rows.Count) + 5
If Err = 9 Then Resume Next
Err.Clear: On Error GoTo 0

' Sizing des tables et saisies automatiques dans les tables

' Pour Offre BS PBX
On Error Resume Next
With Sheets("Analyse BS PBX")
If (NbligBSPBX < NbligAnalyseBSPBX) Then
' Si import strictement + court que table actuelle, Alors suppression des lignes en trop
.Activate
Range(Cells(NbligBSPBX + 1, "B"), Cells(NbligAnalyseBSPBX, "M")).Delete Shift:=xlShiftUp

ElseIf (NbligBSPBX > NbligAnalyseBSPBX) Then
' Sinon si import strictement + long que table actuelle, Alors ajout de lignes et recopie de données

Set FinalRangeBSPBX = .ListObjects("Table_BSPBX").ListRows(Range("Table_ BSPBX").Rows.Count).Range
.ListObjects("Table_BSPBX").Resize Range("$B$5", Cells(NbligBSPBX, "M"))
Set NewRangeBSPBX = Range(FinalRangeBSPBX, FinalRangeBSPBX.End(xlDown))

.Activate
FinalRangeBSPBX.Select
FinalRangeBSPBX.AutoFill Destination:=NewRangeBSPBX, Type:=xlFillCopy

End If
End With
If Err = 9 Then Resume Next
Err.Clear: On Error GoTo 0

End Sub