XL 2019 Sélectionner une plage de données variable selon le nombre de ligne

Samulo · 22 Avril 2021

Bonjour,

Je reçois un fichier chaque jour dans le cadre de mon travail et la base de données utilisée est variable en ligne. J'aimerai une macro qui sélectionne la zone "jaune" dans le fichier soit jusqu'à la dernière ligne non vide en sachant que chaque jour des lignes s'efface ou se rajoute. Cette sélection de données sera ensuite utiliser pour ma fonction INDEX & EQUIV.

Merci de votre aide,

Samuel

Phil69970 · 22 Avril 2021

Bonjour @Samulo, le forum

Je te propose ceci qui sélectionne toute la zone jaune:

VB:

Sub Test()
Dim Derlig&
Derlig = Worksheets("MODIF PDP").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("MODIF PDP").Range("B2:I" & Derlig).Select
End Sub

@Phil69970

Samulo · 22 Avril 2021

Impeccable, juste j'ai oublié de te dire que la plage de données peut varier aussi en colonne, comment intégrer ça ?

Samulo · 22 Avril 2021

Samulo à dit:
Impeccable, juste j'ai oublié de te dire que la plage de données peut varier aussi en colonne, comment intégrer ça ?

Sub Macro2()

Dim Derlig As Integer
Dim Dercol As Integer
Derlig = Worksheets("MODIF PDP").Range("A" & Rows.Count).End(xlUp).Row
Dercol = Worksheets("MODIF PDP").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Worksheets("MODIF PDP").Range("B2" & Dercol & Derlig).Select

End Sub

J'ai essayé ça sans succès ça me sélectionne pas ma zone jaune.

Phil69970 · 22 Avril 2021

@Samulo

VB:

Sub Test2()

Worksheets("MODIF PDP").Range("B2", UsedRange.Cells(UsedRange.Cells.Count)).Select

End Sub

@Phil69970

Samulo · 22 Avril 2021

Phil69970 à dit:
@Samulo

VB:

Sub Test2() Worksheets("MODIF PDP").Range("B2", UsedRange.Cells(UsedRange.Cells.Count)).Select End Sub

@Phil69970

Le code ne fonctionne pas..

Staple1600 · 22 Avril 2021

Bonjour le fil,

Si la zone jaune n'est pas discontinue, que donne le bout de code ci-dessous?
Worksheets("MODIF PDP").[B2].Currentregion.Select

Samulo · 22 Avril 2021

Staple1600 à dit:
Bonjour le fil,

Si la zone jaune n'est pas discontinue, que donne le bout de code ci-dessous?
Worksheets("MODIF PDP").[B2].Currentregion.Select

Cela sélectionne tout le tableau, j'aimerai que ça sélectionne juste les données c'est à dire : B2:I8

Mais je peux m'en aider de cette formule si pas d'autre solution

Phil69970 · 22 Avril 2021

Bonjour Staple

@Samulo :
Tu es sur ?

Samulo à dit:
Le code ne fonctionne pas..

Car chez moi ça fonctionne

*Edit : Staple avec ==> Worksheets("MODIF PDP").[B2].Currentregion.Select
tu sélectionnes toutes les données...

@Phil69970

Samulo · 22 Avril 2021

Phil69970 à dit:
Bonjour Staple

@Samulo :
Tu es sur ?

Car chez moi ça fonctionne

*Edit : Staple avec ==> Worksheets("MODIF PDP").[B2].Currentregion.Select
tu sélectionnes toutes les données...

@Phil69970

Phil69970 · 22 Avril 2021

@Samulo

As tu essayé le fichier du post #9 ?

@Phil69970

Samulo · 22 Avril 2021

Phil69970 à dit:
@Samulo

As tu essayé le fichier du post #9 ?

@Phil69970

Yes le fichier fonctionne mais quand je le fais sur mon fichier ça ne fonctionne pas...

Phil69970 · 22 Avril 2021

@Samulo

Sans ton fichier c'est difficile de voir ...
Une piste le nom de l'onglet n'est pas le bon ou il y a un espace avant ou après dans le nom du dit onglet...

@Phil69970

soan · 22 Avril 2021

Bonjour Phil, Staple, Samulo, le fil,

c'est p't'être un des cas où .CurrentRegion.Select ne détecte pas la bonne plage à cause de lignes ou colonnes vides intercalaires ; parfois, ça peut même arriver si c'est pas toute une ligne ou toute une colonne qui est vide, mais seulement quelques cellules. (comme on n'a pas le fichier réel, on ne peut pas savoir)

soan

Phil69970 · 22 Avril 2021

Bonjour @soan

Attention, j'ai utilisé UsedRange et non pas currentregion et j'ai fait des essais en laissant des lignes et colonnes vides et cela fonctionne bien chez moi (voir le fichier)

@Phil69970

XL 2019 Sélectionner une plage de données variable selon le nombre de ligne

Samulo

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

Samulo

XLDnaute Nouveau

Samulo

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Samulo

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Samulo

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

Samulo

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Samulo

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

Discussions similaires