Sélection d'une cellule à localisation variable pour effacer le contenu

Bonjour à tous,

Je désire être en mesure de sélectionner une suite de données qui se rajoute à la fin d'une matrice de donnée.
Pour se faire, je suis capable d'atteindre la cellule que je désire en effectuant ceci:

Code:

---

1 2	Range("C11").Select Selection.End(xlDown).Offset(1).Select

---

Nommons ceci Code1.

J'aimerais ensuite pouvoir sélectionner tout se qui se trouve sur la droite jusqu'à la colonne CJ.
Je voudrais être en mesure de faire quelque chose comme ce qui suit :

Code:

---

1 2	Range("Code1:CJ1000").Select Selection.ClearContents

---

Je ne sais pas comment procéder pour effectuer ceci donc les suggestions sont la bienvenues.

Merci d'avance!
Nomorerulz8-)

Bonjour,

Code:

---

Selection.End(xlDown).Offset(1).Select

---

xlDown fait partie d'une énumération de quatre constantes.

Cherche xlDown dans l'aide de VBA Excel, puis clique sur Énumération XlDirection

Il y a la bonne, et tu adaptes.

Merci pour ta réponse.

Malheureusement, il semble que mon aide excel ne soit pas fonctionnel. :?
Peut importe ce que j'écris il me dit qu'il ne trouve rien pour la recherche effectuée.

Un conseil? :aie:

J'ai trouvé :mouarf:
Je ne cherchais pas dans le bon aide.

Je vois que les données xldown et autres ont des valeurs.
Je ne suis pas vraiment certain de ce que je dois faire avec ces données. :oops:

Merci encore pour ton aide!

Si tu remplaces xlDown par quelque chose avec right ou left, ou que tu ajoutes une ligne avec quelque chose qui a right ou left au lieu de down, cela donne quoi ?

Ça accède à la prochaine colonne vide.
J'utilise le down, car la sélection vers le bas se fait bien et est complète.
Par contre, lorsque j'utilise right, la sélection s'arrête à la première colonne vide et si j'enligne plusieurs right, le système n'en comptabilise qu'un seul.
C'est pour cela que je pensais trouver un moyen de mixer le down avec une colonne en particulier pour m'assurer de tout sélectionner, mais je ne sais pas comment le formuler.:(

Quelqu'un a une idée :) ?

Code:

---

1 2 3

Dim Ligne As Long Ligne = Range("C11").End(xlDown).Row + 1 Range("C" & Ligne & ":CJ" & Ligne).Select

---

Je suis à peu près sûr que le Select final est une mauvaise idée mais ça correspond à ce que tu as demandé et ne connaissant pas le reste du code, je ne peut pas proposer mieux.

Bonjour Menhir,

Merci pour ta réponse, ça fonctionne partiellement! :)
Je suis maintenant capable d'effacer la ligne qui se situe sous mon tableau.
Je dois seulement étendre ceci à toutes les lignes sous le tableau.
Comment est-ce que je devrais écrire ça pour intégrer un xldown à la suite et conserver la sélection?

Merci encore,
Nomorerulz8-)

Citation:

---

Envoyé par Nomorerulz

Merci pour ta réponse, ça fonctionne partiellement!

---

Si tu posais clairement ta question, peut-être serait-il possible d'y répondre "totalement". :?

Citation:

---

Je dois seulement étendre ceci à toutes les lignes sous le tableau.

---

"Toutes" ça fait beaucoup. Tu pourrais être plus précis ?
Y a-t-il un élément qui identifie la dernière ligne à supprimer ?

Bonjour,
je ne sais pas si ça correspond à ta demande, (très peu explicite), à adapter

Code:

---

1 2 3 4 5 6 7

Sub efface() Dim Pcel As Range, Dcel As Range, Fin As Long Set Pcel = Range("C11").End(xlDown)(2, 1) 'tu remplaces "Range("C11")" par "Selection" si tu veux Set Dcel = Cells(Pcel.Row, Columns.Count).End(xlToLeft) Fin = ActiveSheet.UsedRange.Rows.Count Range(Pcel, Dcel(Fin, 1)).ClearContents End Sub

---

Citation:

---

Envoyé par Menhir

Si tu posais clairement ta question, peut-être serait-il possible d'y répondre "totalement". :?

---

Je ne peux pas vraiment ajouter de détails puisque tout ce dont j'ai besoin est inscrit.
Le point d'exclamation à la fin de ma phrase n'indiquait pas que j'étais mécontent, mais tout le contraire.
Je suis très heureux d'avoir une partie de la réponse aussi rapidement.

Citation:

---

"Toutes" ça fait beaucoup. Tu pourrais être plus précis ?
Y a-t-il un élément qui identifie la dernière ligne à supprimer ?

---

Il n'y a malheureusement rien qui détermine la dernière donnée, celle-ci est variable.
Disons que 500 cellules sous celle déterminée sera amplement.

Citation:

---

Envoyé par casefayere

Code:

---

1 2 3 4 5 6 7

Sub efface() Dim Pcel As Range, Dcel As Range, Fin As Long Set Pcel = Range("C11").End(xlDown)(2, 1) 'tu remplaces "Range("C11")" par "Selection" si tu veux Set Dcel = Cells(Pcel.Row, Columns.Count).End(xlToLeft) Fin = ActiveSheet.UsedRange.Rows.Count Range(Pcel, Dcel(Fin, 1)).ClearContents End Sub

---

---

Merci beaucoup pour ta suggestion.
Je n'ai pas accès au fichier avant demain, je te redonne des nouvelles!

Merci à vous deux pour votre aide, je sais que c'est une aide volontaire et j'en suis très touché.
Nomorerulz8-)

Citation:

---

Envoyé par Nomorerulz

Je ne peux pas vraiment ajouter de détails puisque tout ce dont j'ai besoin est inscrit.

---

C'est un avis que je ne partage pas.
Si tu ne veux pas faire d'effort, je crois que je ne vais pas en faire non plus.
Bonne chance

Citation:

---

Il n'y a malheureusement rien qui détermine la dernière donnée, celle-ci est variable.

---

Le fait qu'il n'y ait plus de données inscrites, ça ne ressemble pas à un critère ?

Citation:

---

Envoyé par casefayere

Code:

---

1 2 3 4 5 6 7

Sub efface() Dim Pcel As Range, Dcel As Range, Fin As Long Set Pcel = Range("C11").End(xlDown)(2, 1) 'tu remplaces "Range("C11")" par "Selection" si tu veux Set Dcel = Cells(Pcel.Row, Columns.Count).End(xlToLeft) Fin = ActiveSheet.UsedRange.Rows.Count Range(Pcel, Dcel(Fin, 1)).ClearContents End Sub

---

---

Merci Beaucoup casefayere!

C'est exactement ce dont j'avais besoin et tout fonctionne parfaitement.

Merci encore :D
Nomorerulz8-)