With Worksheets("Feuil1") comment faire pour RAZ

Le
Cinémas Décavision
Bonjour Amis Pros d'Excel 2000,

Un Ami de ce merveilleux group m'a expliqué pour remettre à ZERO une cellule
Voir mon code ci-dessous et il manque encore beaucoup de cellules à remettre
à Zéro

Mai n'est-il point possible de mettre lorsque les cellules se suivent soit
en ligne ou soit en colonne quelque chose comme G7:G16 (en colonnes) ou
G7:k7 (en ligne)
c'est pour la pratique et aussi peut-être aprés trop de commandes la ligne
fera 1mêtre 50
Non je ne suis pas de Marseille, j'ai bien dit 1m50


Merci de vos infos et bonne journée.
Bernard

Mon code (de débutant)

With Worksheets("Feuil1")
.Range("D6,D8,D9,D10,D11,D12,D13,D14,D15,D16,D17,D18,D25,D26,D27,D28,D29,D30,D32,D33,D34,D35,D36,D37,D38,D39,D40,D41,D43,D44,D45,D46,D47,D48,D49").ClearContents
End With


--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36

pdg@decavision.fr
http://www.decavision.com/
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
papou
Le #20200311
Bonjour
Absolument, c'est possible.
Il te reste donc à modifier :
Worksheets("Feuil1").Range("G7:G16").ClearContents
ou bien
Worksheets("Feuil1").Range("G7:K7").ClearContents

Cordialement
Pascal

"Cinémas Décavision"
Bonjour Amis Pros d'Excel 2000,

Un Ami de ce merveilleux group m'a expliqué pour remettre à ZERO une
cellule
Voir mon code ci-dessous et il manque encore beaucoup de cellules à
remettre
à Zéro...

Mai n'est-il point possible de mettre lorsque les cellules se suivent soit
en ligne ou soit en colonne quelque chose comme G7:G16 (en colonnes) ou
G7:k7 (en ligne)
c'est pour la pratique et aussi peut-être aprés trop de commandes la ligne
fera 1mêtre 50 ...
Non je ne suis pas de Marseille, j'ai bien dit 1m50


Merci de vos infos et bonne journée.
Bernard

Mon code (de débutant)

With Worksheets("Feuil1")

.Range("D6,D8,D9,D10,D11,D12,D13,D14,D15,D16,D17,D18,D25,D26,D27,D28,D29,D30,D32,D33,D34,D35,D36,D37,D38,D39,D40,D41,D43,D44,D45,D46,D47,D48,D49").ClearContents
End With


--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36


http://www.decavision.com/




Corto
Le #20200301
Bonjour Cinémas Décavision,
Tu peux aussi taper [Feuil1!G7:G16].ClearContent

Corto

Cinémas Décavision a écrit :
Bonjour Amis Pros d'Excel 2000,

Un Ami de ce merveilleux group m'a expliqué pour remettre à ZERO un e cellule
Voir mon code ci-dessous et il manque encore beaucoup de cellules à r emettre
à Zéro...

Mai n'est-il point possible de mettre lorsque les cellules se suivent s oit
en ligne ou soit en colonne quelque chose comme G7:G16 (en colonnes) ou
G7:k7 (en ligne)
c'est pour la pratique et aussi peut-être aprés trop de commandes l a ligne
fera 1mêtre 50 ...
Non je ne suis pas de Marseille, j'ai bien dit 1m50


Merci de vos infos et bonne journée.
Bernard

Mon code (de débutant)

With Worksheets("Feuil1")
.Range("D6,D8,D9,D10,D11,D12,D13,D14,D15,D16,D17,D18,D25,D26,D27,D2 8,D29,D30,D32,D33,D34,D35,D36,D37,D38,D39,D40,D41,D43,D44,D45,D46,D47,D48 ,D49").ClearContents
End With





Modeste
Le #20200521
Bonsour® Cinémas Décavision avec ferveur ;o))) vous nous disiez :

Mai n'est-il point possible de mettre lorsque les cellules se suivent
soit
en ligne ou soit en colonne quelque chose comme G7:G16 (en colonnes)
ou
G7:k7 (en ligne)



il suffit d'essayer ;o)))

With Worksheets("Feuil1")
.Range("D6, D8:D18, D25:D30, D32:D41, D43:D49").ClearContents
End With
Cinémas Décavision
Le #20203281
Merci à tous trois pour ces réponses qui vont m'aider énormément....

Bonne sorée à tous ce merveilleux groupe.

Bernard

--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36


http://www.decavision.com/
Publicité
Poster une réponse
Anonyme