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

S

soan

XLDnaute Barbatruc

Inactif

• 22 Avril 2021

• #16

@Phil

j'avais vu .CurrentRegion dans ton post #9, mais après vérif, tu parlais du post #7 de Staple.

soan

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Avril 2021

• #17

Re

Allez un petit jaune, dés le matin

VB:

Sub test()
c = Cells(1, Columns.Count).End(xlToLeft).Column
l = Cells(Rows.Count, 2).End(xlUp).Row
MsgBox Range(Cells(2, 2), Cells(l, c)).Address 'pour test
Range(Cells(2, 2), Cells(l, c)).Select
End Sub

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 22 Avril 2021

• #18

@Staple1600 normalement le code est bon.

VB:

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

@Phil69970

 

Vote positif 0 Vote négatif

S

Samulo

XLDnaute Nouveau

• 22 Avril 2021

• #19

Voici le fichier, cela ne fonctionne pas..

 

Pièces jointes

• PDP.xlsm

  17.2 KB · Affichages: 3

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 22 Avril 2021

• #20

@Samulo
Normal que cela ne fonctionne pas remet la procédure dans la feuil1



@Staple1600 c'est encore l'heure du blanc non !

@Phil69970

 

Vote positif 0 Vote négatif

S

Samulo

XLDnaute Nouveau

• 22 Avril 2021

• #21

Phil69970 à dit:

@Samulo
Normal que cela ne fonctionne pas remet la procédure dans la feuil1

Regarde la pièce jointe 1103079

@Staple1600 c'est encore l'heure du blanc non !

@Phil69970

Cliquez pour agrandir...

Comment ça ? Normalement ça doit fonctionner sans faire ça..

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 22 Avril 2021

• #22

@Samulo

ton fichier en retour.

VB:

Sub Macro1()
  Dim a&, b%
  a = Cells(Rows.Count, 1).End(3).Row - 1
  b = Cells(1, Columns.Count).End(1).Column - 1
  [B2].Resize(a, b).Select
End Sub

soan

 

Pièces jointes

• PDP.xlsm

  17.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 22 Avril 2021

• #23

@Samulo

Si tu veux le mettre dans un module il faut dire à excel de quoi tu parles c'est à dire tu dois lui indiquer la feuille que tu veux....

VB:

Sub Macro1()

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

End Sub

@Phil69970

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Avril 2021

• #24

Re

Quel que soit le code utilisé, la question ultime reste:
Pourquoi ce Select?
(Vu que la plupart d'entre nous conseillent d'éviter Select et autre Activate)

 

Vote positif 0 Vote négatif

S

Samulo

XLDnaute Nouveau

• 22 Avril 2021

• #25

Phil69970 à dit:

@Samulo

Si tu veux le mettre dans un module il faut dire à excel de quoi tu parles c'est à dire tu dois lui indiquer la feuille que tu veux....

VB:

Sub Macro1()

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

End Sub

@Phil69970

Cliquez pour agrandir...

Parfait j'utilise un Select pour ensuite définir un nom de cette sélection pour pouvoir l'intégrer dans une formule Index.

Comment je peux rajouter le fait de définir un nom pour cette sélection ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Avril 2021

• #26

Re

Samuto
Dans ce cas, le select est inutile
On peut nommer directement

VB:

Sub nommer()
x = Columns.Count: xx = Rows.Count
c = Cells(1, x).End(1).Column: DL = Cells(xx, 2).End(3).Row
Range([B2], Cells(DL, c)).Name = "toto"
End Sub

J'ai repris de la simplication de soan
(les syntaxes étant identiques dans le #17 et le #22 pour identifier "dernière ligne et dernière colonne")

 

Vote positif 0 Vote négatif

S

Samulo

XLDnaute Nouveau

• 22 Avril 2021

• #27

Staple1600 à dit:

Re

Samuto
Dans ce cas, le select est inutile
On peut nommer directement

VB:

Sub nommer()
x = Columns.Count: xx = Rows.Count
c = Cells(1, x).End(1).Column: DL = Cells(xx, 2).End(3).Row
Range([B2], Cells(DL, c)).Name = "toto"
End Sub

J'ai repris de la simplication de soan
(les syntaxes étant identiques dans le #17 et le #22 pour identifier "dernière ligne et dernière colonne")

Cliquez pour agrandir...

J'ai essayé cela ne fonctionne pas.. Cela ne sélectionne pas la bonne plage...

 

Pièces jointes

• PDP (2).xlsm

  19 KB · Affichages: 4

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Avril 2021

• #28

Re

Chez moi, avec ton fichier exemple, mon précédent code fonctionne
la plage nommée toto correspond à B2:I8
(soit la zone en jaune)
NB: J'ai testé sur le 1er fichier.

 

Vote positif 0 Vote négatif

S

Samulo

XLDnaute Nouveau

• 22 Avril 2021

• #29

Staple1600 à dit:

Re

Chez moi, avec ton fichier exemple, mon précédent code fonctionne
la plage nommée toto correspond à B2:I8
(soit la zone en jaune)
NB: J'ai testé sur le 1er fichier.

Cliquez pour agrandir...

Idem mais j'ai voulu retranscrire sur un autre fichier mais ça ne fonctionne pas et cela est embêtant..

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Avril 2021

• #30

Re

Le code fonctionne si les colonnes aprés le tableau sont vides.
Ce qui n'était pas le cas dans ton dernier fichier exemple.
Fais le ménage et retestes

VB:

Sub Macro3()
Dim c&, l&, rng As Range
  c = Cells(1, Columns.Count).End(xlToLeft).Column
  l = Cells(Rows.Count, 2).End(xlUp).Row
  Set rng = Range([D2], Cells(l, c))
  rng.Name = "BASE"
  'ci dessous juste pour test
  With rng
  mess = .Address & vbCr
  mess = mess & .Name.Name & vbCr
  End With
  MsgBox mess
End Sub

 

Vote positif 0 Vote négatif