[VBA E]effacement plage de cellule

bonjour a tous

je voudrais par rapport au code ci dessous le modifier pour pouvoir effacer plusieur lignes ed la cellule 1 à 14 suivant une selection manuelle verticale de plusieurs cellules aleatoire dans un tableau sur une colonne mais sur plusieurs lignes continues.

Pour l'instant le code si dessous ne peut effacer que la ligne selectionnée de la cellule 1 à 14, ou si plusieurs cellules sont selectionnées verticalement seulement la premiere est effacé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub efface()   Dim t As Variant   ActiveCell.EntireRow.Select ActiveCell.Offset(0, 0).Select   t = ActiveCell.Address   Range(t, Range(t).Offset(0, 14)).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents Range(t, Range(t).Offset(0, 14)).SpecialCells(xlCellTypeConstants, xlTextValues).ClearContents   End Sub

---

Merci d'avance

Salut,

Citation:

---

Envoyé par zoumzoum59

je voudrais par rapport au code ci dessous le modifier pour pouvoir effacer plusieur lignes ed la cellule 1 à 14 suivant une selection manuelle verticale de plusieurs cellules aleatoire dans un tableau sur une colonne mais sur plusieurs lignes continues.

---

gnein????
Tu peux me la refaire? Comme si tu causais à un gosse de six ans s'il te plait... (c'est un peu mon niveau intellectuel le week-end...)
Parce que là, j'ai pas tout pigé...

Comme base de départ:

Code:

---

1 2	Range(t, Range(t).Offset(0, 14)).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

---

Avec cette ligne, tu effaces le contenu des cellules de la plage spécifiée, à savoir la zone entre la cellule d'adresse "t", et la cellule décalée de 14 colonnes vers la droite.
A toi de définir ta zone de travail comme tu le souhaites, le "rectangle" définissant la zone étant défini par les deux paramètres que tu passes à Range(...) (le premier est la cellule en haut à gauche, le second la cellule en bas à droite).

oui je te la refais
Je sectionne avec la souris sur une ou plusieurs colonnes peu importe mais surtout sur plusieurs lignesune plage de cellules et je veux recuper les adresse des cellules en haut a gauche et en bas à droite correspondant a ma selection en ligne mais en colonne de la 1 à la 14 qui n'a pas eforcement ete selectionné, pour effacer les valeurs numerique et texte de cette plage sans effacer les formules.

mais avec le code precedent, Je n'arrive que a selectionner et effacer la premiere ligne.

Et je ne vois pas comment le developper pour qu'il fonctionne sur plusieurs lignes selectionner au prealable.

J'espere que ç passe mieux comme ça !

Ok...
Alors, vu que je ne suis pas sûr d'avoir toutes les hypothèses, je vais poser les miennes:

1. tu sélectionnes une plage continues sur ta feuille excel (n lignes, p colonnes), en partant du coin haut gauche vers le coin bas droit
2. tu veux nettoyer les cellules sur toute la hauteur de la zone sélectionnée, mais en allant des colonnes 1 à 14 (la colonne 1 étant celle de la première cellule sélectionnée, donc le coin haut gauche)

Une fonction qui peut t'aider, c'est:

Code:

---

Selection.Rows.Count

---

qui va te retourner le nombre de lignes de ta sélection

Il ne te reste plus qu'à adapter la zone de nettoyage dans ta macro précédente, en règlant l'offset sur le nombre de lignes:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub efface()   Dim t As Variant   ActiveCell.EntireRow.Select ActiveCell.Offset(0, 0).Select   t = ActiveCell.Address   nb_lignes=Selection.Rows.Count   Range(t, Range(t).Offset(nb_lignes, 14)).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents Range(t, Range(t).Offset(nb_lignes, 14)).SpecialCells(xlCellTypeConstants, xlTextValues).ClearContents   End Sub

---

Ca devrait tourner, si j'ai pas fait de boulette... (j'ai pas excel sous la main, je fais de tête..)

Alors après, attention si la cellule active n'est pas la cellule en haut à gauche de la sélection... ça va décaler... il faudrait rentrer plus dans le détail pour gérer ces cas particuliers.

Merci plegat

Ton code et exactement ce que je cherchais pourtant je connais rows.count mais j'ai pas le reflexe de l'utiliser.

par contre je l'ai juste modifié comme cela car la variable nb_lignes restait à 1

Sub efface()

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim t As Variant   nb_lignes=Selection.Rows.Count   ActiveCell.EntireRow.Select ActiveCell.Offset(0, 0).Select   t = ActiveCell.Address   Range(t, Range(t).Offset(nb_lignes, 14)).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents Range(t, Range(t).Offset(nb_lignes, 14)).SpecialCells(xlCellTypeConstants, xlTextValues).ClearContents   End Sub

---

Citation:

---

Envoyé par zoumzoum59

par contre je l'ai juste modifié comme cela car la variable nb_lignes restait à 1

---

Bien vu.
J'ai pas encore tout à fait fini d'exterminer la horde de microbes qui m'ont pris d'assaut ce week-end, ça me perturbe les neurones! :aie: