Range variables + delete

E

En 1 Clic

Guest

• 16 Octobre 2012

• #2

Re : Range variables + delete

Bonjour,

Pour bien vous comprendre, vous voulez supprimer la ligne contenant les totaux?

 

Vote positif 0 Vote négatif

N

niwiz

Guest

• 16 Octobre 2012

• #3

Re : Range variables + delete

bonjour,

oui en gros c'est sa.

 

Vote positif 0 Vote négatif

F

frangy

XLDnaute Occasionnel

• 16 Octobre 2012

• #4

Re : Range variables + delete

Bonjour,

Si la plage à conserver débute par B7, tu peux employer la formule suivante pour définir l’adresse de la première cellule de la plage à supprimer

Code:

Dim PremCel as String
PremCel = Worksheets("Feuil1").Range("B7").End(xlDown).Offset(1).Address

Et en déduire la plage à supprimer

Code:

Dim Plage as Range
Set Plage = Worksheets("Feuil1").Range(PremCel & ":F33")

A+

 

Vote positif 0 Vote négatif

N

niwiz

Guest

• 16 Octobre 2012

• #5

Re : Range variables + delete

Rapide, merci bcp 🙂

Bonne journée

 

Vote positif 0 Vote négatif

N

niwiz

Guest

• 16 Octobre 2012

• #6

Re : Range variables + delete

j'ai un autre problème de range (est oui j'ai du mal) .En effet j'aimerai cette fois sélection 10 cellule maximum entre A2 et A11. Cpdt il n'y a pas toujours 10 valeurs, mm si dans la plupart du tps oui.

Range(Range("A2"), Range("A11").End(xlUp)).Select ne marche pas car il y a souvent plus de 10 valeurs et il me sélectionne dans ce cas la A2:A1 au lieu de A2:A11

Que dois je faire?

j’espère avoir été clair, merci !

 

Vote positif 0 Vote négatif

E

En 1 Clic

Guest

• 16 Octobre 2012

• #7

Re : Range variables + delete

Rebonjour,

Il faut utiliser xlDown au lien de xlUp 😎

 

Vote positif 0 Vote négatif

N

niwiz

Guest

• 16 Octobre 2012

• #8

Re : Range variables + delete

re bonjour,

j'ai déjà essayé cette solution mais sa ne marche pas, ou je m'y prend mal, car il me sélectionne au delà de A11(A2:AX) jusqu'a la dernière cellule vide:/ au lieu de s’arrêter a A11

Range(Range("A5"), Range("A15").End(xlDown)).Select

sa doit être un truc tout con je suis sur 🙂

 

Vote positif 0 Vote négatif

E

En 1 Clic

Guest

• 16 Octobre 2012

• #9

Re : Range variables + delete

J'ai lu trop rapidement votre message et j'ai sauté une étape..
Ca sera mieux comme ca :

Code:

Range("A2:A" & Range("A2").End(xlDown).Row).select

 

Vote positif 0 Vote négatif

N

niwiz

Guest

• 16 Octobre 2012

• #10

Re : Range variables + delete

j'avais deja essaye cette ligne,mais malheureusement même problème que pour la précédente solution. Il ne s'arrete pas a A11
Range("A2:A" & Range("A11").End(xlDown).Row).select. Le fait qu'il y est des données au delà de A11 doit poser probleme.

je ne vois toujours pas comment faire, Merci de votre réponse.

 

Vote positif 0 Vote négatif

E

En 1 Clic

Guest

• 16 Octobre 2012

• #11

Re : Range variables + delete

Je n'ai pas trop compris votre critère de sélection..
Vous voulez sélectionner les cellules remplies entre A2 et A11 et ne jamais dépasser A11?

 

Vote positif 0 Vote négatif

N

niwiz

Guest

• 16 Octobre 2012

• #12

Re : Range variables + delete

c'est sa, je doit sélectionner au max A2:A11

 

Vote positif 0 Vote négatif

F

frangy

XLDnaute Occasionnel

• 16 Octobre 2012

• #13

Re : Range variables + delete

@niwiz

Attention, la proposition de En 1 Clic est
Range("A2:A" & Range("A2").End(xlDown).Row).select

A+

 

Vote positif 0 Vote négatif

E

En 1 Clic

Guest

• 16 Octobre 2012

• #14

Re : Range variables + delete

Vous pouvez donc définir une variable qui contiendra la dernière ligne remplie mais qui est au maximum égale à 11 :

Code:

Dim nb as Long
nb = WorksheetFunction.Min(Range("A2").End(xlDown).Row,11)

Range("A2:A" & nb).select

 

Vote positif 0 Vote négatif

N

niwiz

Guest

• 16 Octobre 2012

• #15

Re : Range variables + delete

Niquel !! sa marche. Merci beaucoup c'etait pas si evident XD

 

Vote positif 0 Vote négatif