XL 2016 simplifier un code

[Goose]

bjr,
je voudrais simplifier le bout de code suivant:

Sheets("Joueurs").[C2:C50].Find(CB_SuppJoueur.Value).Select
ActiveCell.Offset(0, -1).ClearContents
ActiveCell.Offset(0, 0).ClearContents
ActiveCell.Offset(0, 1).ClearContents
ActiveCell.Offset(0, 3).ClearContents
ActiveCell.Offset(0, 4).ClearContents
ActiveCell.Offset(0, 5).ClearContents

Merci d'avance

 

[Hasco]

bonjour,

Sans doute quelque chose de genre :

ActiveCell.Offset(, -1).Resize(, 7).ClearContents

Ou

Range("B" & ActiveCell.Row).Resize(, 7).ClearContents

ou

Range("B" & ActiveCell.Row & ":h" & ActiveCell.Row).ClearContents

Ou

Sheets("Joueurs").[C2:C50].Find(CB_SuppJoueur.Value).offset(,-1).Resize(,7).ClearContents

Et d'autres encore plus ou moins tirés par les cheveux ...

Par contre l'histoire ne dit pas si joueur non trouvé

cordialement

 

[Goose]

attention j'ai des cellules non contigües, comment gérer ça ?

 

[Phil69970]

Bonjour à tous

Je te propose ces 2 lignes :

ActiveCell.Offset(, -1).Resize(, 3).ClearContents
ActiveCell.Offset(, 3).Resize(, 3).ClearContents

Merci de ton retour

@Phil69970

 

[Staple1600]

Bonjour le fil,

Un variante de syntaxe de la proposition de Phil69970

Sub test()
With ActiveCell
Union(.Offset(, -1).Resize(, 3), .Offset(, 3).Resize(, 3)) = ""
End With
End Sub

Sur mes cellules, l'effet semble identique.

A confirmer dans le monde réel.

 

[Goose]

parfait merci à vous trois !!
bye

 

[Staple1600]

Re

Nous étions trois à répondre dans la discussion...

Qui est celui qui n'est pas dans les deux du message#6 ?

 

[Hasco]

bonjour chacun

attention j'ai des cellules non contigües, comment gérer ça ?

De retour.

Autre possibilité sachant que le joueur est trouvé en colonne C:

Range(replace("B?: D?,F?:H?","?",Activecell.Row)).clearcontents

(enlevez l'espace entre le premier ": "et le D) sans l'espace bbcode met un émoticon.
Cordialement

 

[Staple1600]

Re,

Hasco
Sans espace
Range(replace("B?:D?,F?:H?","?",Activecell.Row)).clearcontents
ET c'est BBCODE qui fait le job (sans émotion aucune )

 

[Hasco]

Re,

Alors là faut dire comment qu'y fait le xldnaute @Staple1600
C'est ben joli de montrer aux copains ce qu'on sait faire, mais leur dire comment c'est mieux.
A moins que c'est que à cause que dans tes contrées bretonnes la civilisation a encore du mal à arriver


a galon

 

[Staple1600]

Re

Hasco
L'indice est dans la phrase qui parle d'émotion

BBCODE est la clé

Faut juste utiliser la balise idoine

(Look after HEADINGS)


[aparté]
NB: a galon ? Kesako?

 

[Hasco]

NB: a galon ? Kesako?

Ce que j'ai trouvé de mieux dans ta langue de sauvages pour "cordialement"...arf

 

[Hasco]

RE,

Je n'avais jamais vu la présence de l'aide BBCODE depuis toute ces années.
Quand j'en avais besoin, je faisais une recherche sur internet !!!!
On en apprend tous les jours

Merci @Staple1600