Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel effacer plage

effacer plage

9 réponses
Avatar
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 =E0 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 =E9clairages

Jean-Yves
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Jean-Yves

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


"JeanYvesGascon" a écrit dans le message de groupe de
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
Avatar
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 seulement
sur cette ligne....
Range("A" & Selection.Row & ":P" & Selection.Row).ClearContents


--
Youky
"JeanYvesGascon" a écrit dans le message de
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
Avatar
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" a écrit dans le message de
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
Avatar
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" a écrit dans le message de news:

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" a écrit dans le message de
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



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


"Jacky" a écrit dans le message de news:
%
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" a écrit dans le message de news:

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" a écrit dans le message de
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







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


"Jacky" a écrit dans le message de news:
%
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" a écrit dans le message de news:

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" a écrit dans le message de
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







Avatar
Youky
Salut JJ,
Surtout, faut pas là louper cette >>>> ligne P
Salutation
--
Youky
"Jacky" a écrit dans le message de news:

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


"Jacky" a écrit dans le message de news:
%
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" a écrit dans le message de news:

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" a écrit dans le message de
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











Avatar
Jacky
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" a écrit dans le message de news:

Salut JJ,
Surtout, faut pas là louper cette >>>> ligne P
Salutation
--
Youky
"Jacky" a écrit dans le message de news:

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


"Jacky" a écrit dans le message de news:
%
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" a écrit dans le message de news:

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" a écrit dans le message de
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















Avatar
JeanYvesGascon
On 7 oct, 21:27, "Youky" wrote:
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" a écrit dans le message de news: 1e1b88c8-4d67-4e37-a966-f269dbf54__BEGIN_MASK_n#9g02mG7!__...__END_MA SK_i?a63jfAD$
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