Discussion :

[zoumzoum59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[plegat]

Salut,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[zoumzoum59]

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 !

[plegat]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[zoumzoum59]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[plegat]

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!