Range variables + delete

[niwiz]

Bonjour,

je vous sollicite pour un petit problème, enfin je crois.

j'aimerai savoir comment faire pour sélectionner une plage qui peut varier. en effet dans la plage ("B22:F33")

seul F33 et toujours identique et B22 peut varier (B21 ou B20 etc...)

voici ci joint un fichier xls.


Merci d'avance.

 

[En 1 Clic]

Re : Range variables + delete

Bonjour,

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

 

[niwiz]

Re : Range variables + delete

bonjour,

oui en gros c'est sa.

 

[frangy]

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

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

Et en déduire la plage à supprimer

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

A+

 

[niwiz]

Re : Range variables + delete

Rapide, merci bcp

Bonne journée

 

[niwiz]

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 !

 

[En 1 Clic]

Re : Range variables + delete

Rebonjour,

Il faut utiliser xlDown au lien de xlUp

 

[niwiz]

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

 

[En 1 Clic]

Re : Range variables + delete

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

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

 

[niwiz]

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.

 

[En 1 Clic]

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?

 

[niwiz]

Re : Range variables + delete

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

 

[frangy]

Re : Range variables + delete

@niwiz

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

A+

 

[En 1 Clic]

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 :

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

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

 

[niwiz]

Re : Range variables + delete

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