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

[Samulo]

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]

Bonjour @Samulo, le forum

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

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]

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

 

[Samulo]

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]

@Samulo

Sub Test2()

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

End Sub

@Phil69970

 

[Samulo]

@Samulo

Sub Test2()

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

End Sub

@Phil69970

Le code ne fonctionne pas..

 

[Staple1600]

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]

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]

Bonjour Staple

@Samulo :
Tu es sur ?

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]

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]

@Samulo

As tu essayé le fichier du post #9 ?

@Phil69970

 

[Samulo]

@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]

@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]

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]

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