Effacer des cellules

Le
Difoul56
Bonjour,

Je cherche à effacer des cellules dans une feuille masquée.

Sheets("feuil1").Visibleúlse
Sheets("feuil1").Range(cells(1,1);cells(1,50)).ClearContents

Mais impossible avec une non active.

Merci pour votre aide
JP
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
Jacky
Le #19073481
Bonsoir,

Plusieurs possibilités
'1)
'------------
Sheets("feuil1").Visible = False
Sheets("feuil1").Range(Sheets("feuil1").Cells(1, 1),
Sheets("feuil1").Cells(1, 50)).ClearContents
'---------------
'2)
-------------
Sheets("feuil1").Visible = False
Sheets("feuil1").Range("a1:ax1").ClearContents
'--------------
'3)
-'-------------
With Sheets("feuil1")
.Visible = False
.Range(.Cells(1, 1), .Cells(1, 50)).ClearContents
End With
'--------------
--
Salutations
JJ


"Difoul56"
Bonjour,

Je cherche à effacer des cellules dans une feuille masquée.

Sheets("feuil1").Visibleúlse
Sheets("feuil1").Range(cells(1,1);cells(1,50)).ClearContents

Mais impossible avec une non active.

Merci pour votre aide
JP






Difoul56
Le #19090061
Bonjour,

Ok ça marche mais
Si la feuille est visible il est impératif quelle soit active

With Sheets("feuil1")
.Visible = True
.Range(.Cells(1, 1), .Cells(10, 50)).ClearContents
End With

Comment effacer une plage de cellules sur une feuille non active et non
masquée ??

Merci pour votre aide

JP




"Jacky"
Bonsoir,

Plusieurs possibilités
'1)
'------------
Sheets("feuil1").Visible = False
Sheets("feuil1").Range(Sheets("feuil1").Cells(1, 1),
Sheets("feuil1").Cells(1, 50)).ClearContents
'---------------
'2)
-------------
Sheets("feuil1").Visible = False
Sheets("feuil1").Range("a1:ax1").ClearContents
'--------------
'3)
-'-------------
With Sheets("feuil1")
.Visible = False
.Range(.Cells(1, 1), .Cells(1, 50)).ClearContents
End With
'--------------
--
Salutations
JJ


"Difoul56"
Bonjour,

Je cherche à effacer des cellules dans une feuille masquée.

Sheets("feuil1").Visibleúlse
Sheets("feuil1").Range(cells(1,1);cells(1,50)).ClearContents

Mais impossible avec une non active.

Merci pour votre aide
JP










Jacky
Le #19090691
Re...
Si la feuille est visible il est impératif quelle soit active


***** NON

Comment effacer une plage de cellules sur une feuille non active et non
masquée ??


Ceci efface la plage A1:AX10 dans tous les cas (visible , non visible,
cachée, non cachée, active, non active)

'-------------------
With Sheets("feuil1")
Range(.Cells(1, 1), .Cells(10, 50)).ClearContents
End With
'***** OU *****
With Sheets("feuil1")
.Range("a1:ax10").ClearContents
End With
'-----------------
--
Salutations
JJ


"Difoul56" %
Bonjour,

Ok ça marche mais
Si la feuille est visible il est impératif quelle soit active

With Sheets("feuil1")
.Visible = True
.Range(.Cells(1, 1), .Cells(10, 50)).ClearContents
End With

Comment effacer une plage de cellules sur une feuille non active et non
masquée ??

Merci pour votre aide

JP




"Jacky"
Bonsoir,

Plusieurs possibilités
'1)
'------------
Sheets("feuil1").Visible = False
Sheets("feuil1").Range(Sheets("feuil1").Cells(1, 1),
Sheets("feuil1").Cells(1, 50)).ClearContents
'---------------
'2)
-------------
Sheets("feuil1").Visible = False
Sheets("feuil1").Range("a1:ax1").ClearContents
'--------------
'3)
-'-------------
With Sheets("feuil1")
.Visible = False
.Range(.Cells(1, 1), .Cells(1, 50)).ClearContents
End With
'--------------
--
Salutations
JJ


"Difoul56"
Bonjour,

Je cherche à effacer des cellules dans une feuille masquée.

Sheets("feuil1").Visibleúlse
Sheets("feuil1").Range(cells(1,1);cells(1,50)).ClearContents

Mais impossible avec une non active.

Merci pour votre aide
JP














Difoul56
Le #19092361
Super, merci pour le coup de main
JP

"Jacky" e$
Re...
Si la feuille est visible il est impératif quelle soit active


***** NON

Comment effacer une plage de cellules sur une feuille non active et non
masquée ??


Ceci efface la plage A1:AX10 dans tous les cas (visible , non visible,
cachée, non cachée, active, non active)

'-------------------
With Sheets("feuil1")
Range(.Cells(1, 1), .Cells(10, 50)).ClearContents
End With
'***** OU *****
With Sheets("feuil1")
.Range("a1:ax10").ClearContents
End With
'-----------------
--
Salutations
JJ


"Difoul56" %
Bonjour,

Ok ça marche mais
Si la feuille est visible il est impératif quelle soit active

With Sheets("feuil1")
.Visible = True
.Range(.Cells(1, 1), .Cells(10, 50)).ClearContents
End With

Comment effacer une plage de cellules sur une feuille non active et non
masquée ??

Merci pour votre aide

JP




"Jacky"
Bonsoir,

Plusieurs possibilités
'1)
'------------
Sheets("feuil1").Visible = False
Sheets("feuil1").Range(Sheets("feuil1").Cells(1, 1),
Sheets("feuil1").Cells(1, 50)).ClearContents
'---------------
'2)
-------------
Sheets("feuil1").Visible = False
Sheets("feuil1").Range("a1:ax1").ClearContents
'--------------
'3)
-'-------------
With Sheets("feuil1")
.Visible = False
.Range(.Cells(1, 1), .Cells(1, 50)).ClearContents
End With
'--------------
--
Salutations
JJ


"Difoul56"
Bonjour,

Je cherche à effacer des cellules dans une feuille masquée.

Sheets("feuil1").Visibleúlse
Sheets("feuil1").Range(cells(1,1);cells(1,50)).ClearContents

Mais impossible avec une non active.

Merci pour votre aide
JP


















Publicité
Poster une réponse
Anonyme