Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

pb débutant zone à nettoyer

5 réponses
Avatar
.
J'ai un pb de debutant, mais je coince.
je cherche a nettoyer une zone variable.
Par ex, en colA j'ai de A1 à A17(variable) rempli.
Je voudrais enlever tout dans les cellules de A18(variable) a D2000.

Voici ce que j'ai fait :
'je vais en A18, premiere cellule vide

ActiveCell.Select
Dim cellule_depart
'
' Sélection de la zone à mettre à blanc
ActiveCell.Offset(2000, 4).Select
Range(cellule_depart, ActiveCell).Select
Cells.Select
Selection.Clear

et ca veut pas marcher. Je ne comprends pas.
Merci d'avance
Paul

5 réponses

Avatar
Yvan
Re-bonjour Paul

Peut-être plus simplement:

Range("A18:D2000").Clear

Non?

@+

Yvan
"P. Martin" a écrit dans le message de news:

J'ai un pb de debutant, mais je coince.
je cherche a nettoyer une zone variable.
Par ex, en colA j'ai de A1 à A17(variable) rempli.
Je voudrais enlever tout dans les cellules de A18(variable) a D2000.

Voici ce que j'ai fait :
'je vais en A18, premiere cellule vide

ActiveCell.Select
Dim cellule_depart
'
' Sélection de la zone à mettre à blanc
ActiveCell.Offset(2000, 4).Select
Range(cellule_depart, ActiveCell).Select
Cells.Select
Selection.Clear

et ca veut pas marcher. Je ne comprends pas.
Merci d'avance
Paul


Avatar
Yvan
Ou alors (A18 variable = ActiveCell et D2000 fixe)

Range(ActiveCell, Range("D2000")).Clear

@+

Yvan

"Yvan" <yvan.echange@(enlever ceci)free.fr> a écrit dans le message de news:

Re-bonjour Paul

Peut-être plus simplement:

Range("A18:D2000").Clear

Non?

@+

Yvan
"P. Martin" a écrit dans le message de news:

J'ai un pb de debutant, mais je coince.
je cherche a nettoyer une zone variable.
Par ex, en colA j'ai de A1 à A17(variable) rempli.
Je voudrais enlever tout dans les cellules de A18(variable) a D2000.

Voici ce que j'ai fait :
'je vais en A18, premiere cellule vide

ActiveCell.Select
Dim cellule_depart
'
' Sélection de la zone à mettre à blanc
ActiveCell.Offset(2000, 4).Select
Range(cellule_depart, ActiveCell).Select
Cells.Select
Selection.Clear

et ca veut pas marcher. Je ne comprends pas.
Merci d'avance
Paul






Avatar
.
Bonjour Yvan
Je ne peux pas faire comme ca, la cellule A18 est "variable", c'est a
dire un coup c'est A18, un coup A37 etc... Ce n'est jamais la meme.
Donc, je me positionne a la premiere cellule vide de ma colonne A, je
la nomme cellule_depart, puis je dois tout nettoyer a partir de cette
cellule jusqu'a D2000.
Voila mon probleme.
Paul

On Tue, 20 Sep 2005 16:56:02 +0200, "Yvan" <yvan.echange@(enlever
ceci)free.fr> wrote:

Re-bonjour Paul

Peut-être plus simplement:

Range("A18:D2000").Clear

Non?

@+

Yvan
"P. Martin" a écrit dans le message de news:

J'ai un pb de debutant, mais je coince.
je cherche a nettoyer une zone variable.
Par ex, en colA j'ai de A1 à A17(variable) rempli.
Je voudrais enlever tout dans les cellules de A18(variable) a D2000.

Voici ce que j'ai fait :
'je vais en A18, premiere cellule vide

ActiveCell.Select
Dim cellule_depart
'
' Sélection de la zone à mettre à blanc
ActiveCell.Offset(2000, 4).Select
Range(cellule_depart, ActiveCell).Select
Cells.Select
Selection.Clear

et ca veut pas marcher. Je ne comprends pas.
Merci d'avance
Paul






Avatar
.
Effictevement, c'est beaucoup plus simple.
Merci
Paul

On Tue, 20 Sep 2005 17:01:06 +0200, "Yvan" <yvan.echange@(enlever
ceci)free.fr> wrote:

Ou alors (A18 variable = ActiveCell et D2000 fixe)

Range(ActiveCell, Range("D2000")).Clear

@+

Yvan

"Yvan" <yvan.echange@(enlever ceci)free.fr> a écrit dans le message de news:

Re-bonjour Paul

Peut-être plus simplement:

Range("A18:D2000").Clear

Non?

@+

Yvan
"P. Martin" a écrit dans le message de news:

J'ai un pb de debutant, mais je coince.
je cherche a nettoyer une zone variable.
Par ex, en colA j'ai de A1 à A17(variable) rempli.
Je voudrais enlever tout dans les cellules de A18(variable) a D2000.

Voici ce que j'ai fait :
'je vais en A18, premiere cellule vide

ActiveCell.Select
Dim cellule_depart
'
' Sélection de la zone à mettre à blanc
ActiveCell.Offset(2000, 4).Select
Range(cellule_depart, ActiveCell).Select
Cells.Select
Selection.Clear

et ca veut pas marcher. Je ne comprends pas.
Merci d'avance
Paul










Avatar
RGI
bonjour

ou tu nommes tes cellules à effacer ex: zone
et tu mets ce code
Sub effacer()
[zone].Clear
End Sub

salutations

Gilbert
Ou alors (A18 variable = ActiveCell et D2000 fixe)

Range(ActiveCell, Range("D2000")).Clear

@+

Yvan

"Yvan" <yvan.echange@(enlever ceci)free.fr> a écrit dans le message de news:


Re-bonjour Paul

Peut-être plus simplement:

Range("A18:D2000").Clear

Non?

@+

Yvan
"P. Martin" a écrit dans le message de news:


J'ai un pb de debutant, mais je coince.
je cherche a nettoyer une zone variable.
Par ex, en colA j'ai de A1 à A17(variable) rempli.
Je voudrais enlever tout dans les cellules de A18(variable) a D2000.

Voici ce que j'ai fait :
'je vais en A18, premiere cellule vide

ActiveCell.Select
Dim cellule_depart
'
' Sélection de la zone à mettre à blanc
ActiveCell.Offset(2000, 4).Select
Range(cellule_depart, ActiveCell).Select
Cells.Select
Selection.Clear

et ca veut pas marcher. Je ne comprends pas.
Merci d'avance
Paul