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
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" <jeanyves.gascon@gmail.com> a écrit dans le message de
news: 1e1b88c8-4d67-4e37-a966-f269dbf5492f@l35g2000vba.googlegroups.com...
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
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
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
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" <Dupond@marcel.fr> a écrit dans le message de news:
etdKNj4RKHA.1792@TK2MSFTNGP04.phx.gbl...
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" <jeanyves.gascon@gmail.com> a écrit dans le message de
news:
1e1b88c8-4d67-4e37-a966-f269dbf5492f@l35g2000vba.googlegroups.com...
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
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
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
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" <Dupond@marcel.fr> a écrit dans le message de news:
etdKNj4RKHA.1792@TK2MSFTNGP04.phx.gbl...
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" <jeanyves.gascon@gmail.com> a écrit dans le message de
news:
1e1b88c8-4d67-4e37-a966-f269dbf5492f@l35g2000vba.googlegroups.com...
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
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
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
Re pfff
Si cela doit s'arrêter à la ligne P
Range(ActiveCell.Address, Cells(ActiveCell.Row, "P")).ClearContents
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23uUtAx4RKHA.1372@TK2MSFTNGP02.phx.gbl...
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" <Dupond@marcel.fr> a écrit dans le message de news:
etdKNj4RKHA.1792@TK2MSFTNGP04.phx.gbl...
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" <jeanyves.gascon@gmail.com> a écrit dans le message de
news:
1e1b88c8-4d67-4e37-a966-f269dbf5492f@l35g2000vba.googlegroups.com...
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
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
Surtout, faut pas là louper cette >>>> ligne P
A(n), P(n)
range(active cell, active cell;end(xl toright)
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
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
Surtout, faut pas là louper cette >>>> ligne P
A(n), P(n)
range(active cell, active cell;end(xl toright)
Salut JJ,
Surtout, faut pas là louper cette >>>> ligne P
Salutation
--
Youky
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
OOGXt94RKHA.2092@TK2MSFTNGP04.phx.gbl...
Re pfff
Si cela doit s'arrêter à la ligne P
Range(ActiveCell.Address, Cells(ActiveCell.Row, "P")).ClearContents
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
%23uUtAx4RKHA.1372@TK2MSFTNGP02.phx.gbl...
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" <Dupond@marcel.fr> a écrit dans le message de news:
etdKNj4RKHA.1792@TK2MSFTNGP04.phx.gbl...
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" <jeanyves.gascon@gmail.com> a écrit dans le message de
news:
1e1b88c8-4d67-4e37-a966-f269dbf5492f@l35g2000vba.googlegroups.com...
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
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
Surtout, faut pas là louper cette >>>> ligne P
A(n), P(n)
range(active cell, active cell;end(xl toright)
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
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 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 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" <jeanyves.gas...@gmail.com> a écrit dans le message de news: 1e1b88c8-4d67-4e37-a966-f269dbf54__BEGIN_MASK_n#9g02mG7!__...__END_MA SK_i?a63jfAD$z__@l35g2000vba.googlegroups.com...
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 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