effacer plage

Le
JeanYvesGascon
Bonjour,

J'ai besoin de pouvoir effacer le contenu d'une plage qui part
toujours de A(n) vers P(n).
J'avais penser à ceci : en cliquant sur un bouton
en se positionnant sur A(n)

range(active cell, active cell;end(xl toright)).clearcontents

Ceci fonctionne si toute les cellules de la plage sont non vides
Or, il peut arriver que certaine cellules le soient.

Comment faire ?

Merci de vos éclairages

Jean-Yves
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20310321
Bonjour Jean-Yves

'-----------------------------
With Worksheets("NomDeLaFeuille")
.Activate
.Range(ActiveCell.Address, .Range("A65536").End(xlUp)).Clearcontents
End With
'-----------------------------


"JeanYvesGascon" discussion :
Bonjour,

J'ai besoin de pouvoir effacer le contenu d'une plage qui part
toujours de A(n) vers P(n).
J'avais penser à ceci : en cliquant sur un bouton
en se positionnant sur A(n)

range(active cell, active cell;end(xl toright)).clearcontents

Ceci fonctionne si toute les cellules de la plage sont non vides
Or, il peut arriver que certaine cellules le soient.

Comment faire ?

Merci de vos éclairages

Jean-Yves
Youky
Le #20310781
Bonjour Jean-Yves,
Bonjour michdenis,
une autre façon de voir la chose...
Si n est la ligne de la cellule selectionnée et qu'il faut effacer seulement
sur cette ligne....
Range("A" & Selection.Row & ":P" & Selection.Row).ClearContents


--
Youky
"JeanYvesGascon" news:
Bonjour,

J'ai besoin de pouvoir effacer le contenu d'une plage qui part
toujours de A(n) vers P(n).
J'avais penser à ceci : en cliquant sur un bouton
en se positionnant sur A(n)

range(active cell, active cell;end(xl toright)).clearcontents

Ceci fonctionne si toute les cellules de la plage sont non vides
Or, il peut arriver que certaine cellules le soient.

Comment faire ?

Merci de vos éclairages

Jean-Yves
Jacky
Le #20311001
Bonsoir,

Efface tout ce qui est à droite de la cellule active et de la même ligne.
'---------
If Cells(ActiveCell.Row, Columns.Count).End(1).Column >= ActiveCell.Column
Then
Range(ActiveCell.Address, Cells(ActiveCell.Row, Cells(ActiveCell.Row,
Columns.Count).End(1).Column)).ClearContents
End If
'----------
--
Salutations
JJ


"JeanYvesGascon" news:
Bonjour,

J'ai besoin de pouvoir effacer le contenu d'une plage qui part
toujours de A(n) vers P(n).
J'avais penser à ceci : en cliquant sur un bouton
en se positionnant sur A(n)

range(active cell, active cell;end(xl toright)).clearcontents

Ceci fonctionne si toute les cellules de la plage sont non vides
Or, il peut arriver que certaine cellules le soient.

Comment faire ?

Merci de vos éclairages

Jean-Yves
Jacky
Le #20311091
Re..
Ou plus simple
'------------
If Cells(ActiveCell.Row, Columns.Count).End(1).Column >= ActiveCell.Column
Then
Range(ActiveCell.Address, Cells(ActiveCell.Row,
Columns.Count)).ClearContents
End If
'-----------
--
Salutations
JJ


"Jacky"
Bonsoir,

Efface tout ce qui est à droite de la cellule active et de la même ligne.
'---------
If Cells(ActiveCell.Row, Columns.Count).End(1).Column >= ActiveCell.Column
Then
Range(ActiveCell.Address, Cells(ActiveCell.Row, Cells(ActiveCell.Row,
Columns.Count).End(1).Column)).ClearContents
End If
'----------
--
Salutations
JJ


"JeanYvesGascon" news:
Bonjour,

J'ai besoin de pouvoir effacer le contenu d'une plage qui part
toujours de A(n) vers P(n).
J'avais penser à ceci : en cliquant sur un bouton
en se positionnant sur A(n)

range(active cell, active cell;end(xl toright)).clearcontents

Ceci fonctionne si toute les cellules de la plage sont non vides
Or, il peut arriver que certaine cellules le soient.

Comment faire ?

Merci de vos éclairages

Jean-Yves



Jacky
Le #20311141
re..
Pfff..
Même que
Range(ActiveCell.Address, Cells(ActiveCell.Row,
Columns.Count)).ClearContents
est suffisant
--
Salutations
JJ


"Jacky" %
Re..
Ou plus simple
'------------
If Cells(ActiveCell.Row, Columns.Count).End(1).Column >= ActiveCell.Column
Then
Range(ActiveCell.Address, Cells(ActiveCell.Row,
Columns.Count)).ClearContents
End If
'-----------
--
Salutations
JJ


"Jacky"
Bonsoir,

Efface tout ce qui est à droite de la cellule active et de la même ligne.
'---------
If Cells(ActiveCell.Row, Columns.Count).End(1).Column >=
ActiveCell.Column Then
Range(ActiveCell.Address, Cells(ActiveCell.Row, Cells(ActiveCell.Row,
Columns.Count).End(1).Column)).ClearContents
End If
'----------
--
Salutations
JJ


"JeanYvesGascon" news:

Bonjour,

J'ai besoin de pouvoir effacer le contenu d'une plage qui part
toujours de A(n) vers P(n).
J'avais penser à ceci : en cliquant sur un bouton
en se positionnant sur A(n)

range(active cell, active cell;end(xl toright)).clearcontents

Ceci fonctionne si toute les cellules de la plage sont non vides
Or, il peut arriver que certaine cellules le soient.

Comment faire ?

Merci de vos éclairages

Jean-Yves







Jacky
Le #20311231
Re pfff
Si cela doit s'arrêter à la ligne P
Range(ActiveCell.Address, Cells(ActiveCell.Row, "P")).ClearContents
--
Salutations
JJ


"Jacky" %
Re..
Ou plus simple
'------------
If Cells(ActiveCell.Row, Columns.Count).End(1).Column >= ActiveCell.Column
Then
Range(ActiveCell.Address, Cells(ActiveCell.Row,
Columns.Count)).ClearContents
End If
'-----------
--
Salutations
JJ


"Jacky"
Bonsoir,

Efface tout ce qui est à droite de la cellule active et de la même ligne.
'---------
If Cells(ActiveCell.Row, Columns.Count).End(1).Column >=
ActiveCell.Column Then
Range(ActiveCell.Address, Cells(ActiveCell.Row, Cells(ActiveCell.Row,
Columns.Count).End(1).Column)).ClearContents
End If
'----------
--
Salutations
JJ


"JeanYvesGascon" news:

Bonjour,

J'ai besoin de pouvoir effacer le contenu d'une plage qui part
toujours de A(n) vers P(n).
J'avais penser à ceci : en cliquant sur un bouton
en se positionnant sur A(n)

range(active cell, active cell;end(xl toright)).clearcontents

Ceci fonctionne si toute les cellules de la plage sont non vides
Or, il peut arriver que certaine cellules le soient.

Comment faire ?

Merci de vos éclairages

Jean-Yves







Youky
Le #20311351
Salut JJ,
Surtout, faut pas là louper cette >>>> ligne P
Salutation
--
Youky
"Jacky"
Re pfff
Si cela doit s'arrêter à la ligne P
Range(ActiveCell.Address, Cells(ActiveCell.Row, "P")).ClearContents
--
Salutations
JJ


"Jacky" %
Re..
Ou plus simple
'------------
If Cells(ActiveCell.Row, Columns.Count).End(1).Column >=
ActiveCell.Column Then
Range(ActiveCell.Address, Cells(ActiveCell.Row,
Columns.Count)).ClearContents
End If
'-----------
--
Salutations
JJ


"Jacky"
Bonsoir,

Efface tout ce qui est à droite de la cellule active et de la même
ligne.
'---------
If Cells(ActiveCell.Row, Columns.Count).End(1).Column >=
ActiveCell.Column Then
Range(ActiveCell.Address, Cells(ActiveCell.Row, Cells(ActiveCell.Row,
Columns.Count).End(1).Column)).ClearContents
End If
'----------
--
Salutations
JJ


"JeanYvesGascon" news:

Bonjour,

J'ai besoin de pouvoir effacer le contenu d'une plage qui part
toujours de A(n) vers P(n).
J'avais penser à ceci : en cliquant sur un bouton
en se positionnant sur A(n)

range(active cell, active cell;end(xl toright)).clearcontents

Ceci fonctionne si toute les cellules de la plage sont non vides
Or, il peut arriver que certaine cellules le soient.

Comment faire ?

Merci de vos éclairages

Jean-Yves











Jacky
Le #20312861
Salut Youky

Surtout, faut pas là louper cette >>>> ligne P


C'est que.....il y a de multiple interprétations à la demande
A(n), P(n)


et surtout
range(active cell, active cell;end(xl toright)


Perso, j'ai d'abord interprété "de la cellule active à la dernière à sa
droite non vide"
Mais bon attendons la réaction du demandeur
--
Salutations
JJ


"Youky"
Salut JJ,
Surtout, faut pas là louper cette >>>> ligne P
Salutation
--
Youky
"Jacky"
Re pfff
Si cela doit s'arrêter à la ligne P
Range(ActiveCell.Address, Cells(ActiveCell.Row, "P")).ClearContents
--
Salutations
JJ


"Jacky" %
Re..
Ou plus simple
'------------
If Cells(ActiveCell.Row, Columns.Count).End(1).Column >=
ActiveCell.Column Then
Range(ActiveCell.Address, Cells(ActiveCell.Row,
Columns.Count)).ClearContents
End If
'-----------
--
Salutations
JJ


"Jacky"
Bonsoir,

Efface tout ce qui est à droite de la cellule active et de la même
ligne.
'---------
If Cells(ActiveCell.Row, Columns.Count).End(1).Column >=
ActiveCell.Column Then
Range(ActiveCell.Address, Cells(ActiveCell.Row, Cells(ActiveCell.Row,
Columns.Count).End(1).Column)).ClearContents
End If
'----------
--
Salutations
JJ


"JeanYvesGascon" news:

Bonjour,

J'ai besoin de pouvoir effacer le contenu d'une plage qui part
toujours de A(n) vers P(n).
J'avais penser à ceci : en cliquant sur un bouton
en se positionnant sur A(n)

Surtout, faut pas là louper cette >>>> ligne P










, active cell;end(xl toright)).clearcontents

Ceci fonctionne si toute les cellules de la plage sont non vides
Or, il peut arriver que certaine cellules le soient.

Comment faire ?

Merci de vos éclairages

Jean-Yves















JeanYvesGascon
Le #20313961
On 7 oct, 21:27, "Youky"
Bonjour Jean-Yves,
Bonjour michdenis,
une autre façon de voir la chose...
Si n est la ligne de la cellule selectionnée et qu'il faut effacer seul ement
sur cette ligne....
Range("A" & Selection.Row & ":P" & Selection.Row).ClearContents

--
Youky
"JeanYvesGascon" Bonjour,

J'ai besoin de pouvoir effacer le contenu d'une plage qui part
toujours de A(n) vers P(n).
J'avais penser à ceci : en cliquant sur un bouton
en se positionnant sur A(n)

range(active cell, active cell;end(xl toright)).clearcontents

Ceci fonctionne si toute les cellules de la plage sont non vides
Or, il peut arriver que certaine cellules le soient.

Comment faire ?

Merci de vos éclairages

Jean-Yves



Bonjour à tous

Et merci de vos éclairages.
Je retiens particulièrement la proposition de Youki qui me semble la
plus adaptée à la situation

Merci encore.

Jean-Yves
Publicité
Poster une réponse
Anonyme