Simplifier

[Pascalbar]

Bonjour,

Sheets("Toto").select
Range("A1:A10").select

Existe t'il un moyen de simplifier ?
Merci

 

[Pascalbar]

Re : Simplifier

Merci
Comme j'ai un for each dérrière, j'ai fais cela

For Each c In Worksheets("Toto").Range("H2:H70")
        If c.Value = "" Then
            c.FormulaR1C1 = "=COUNTA(RC[2],RC[8],RC[14],RC[20])"
        End If
    Next c

Donc j'ai viré le Select
Merci

 

[Pascalbar]

Re : Simplifier

Je ne suis pas Breton, mais j'aime bien la dentelle.
Merci

 

[Staple1600]

Re : Simplifier

Bonsoir à tous


J'aime la dentelle, moins les boucles 😉

Sub Sans_Boucle()
Worksheets(1).Range("H2:H70").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=COUNTA(RC[2],RC[8],RC[14],RC[20])"
End Sub

 

[Pascalbar]

Re : Simplifier

Effectivement JM
C'est court, concis et pour tout dire beaucoup mieux.
Tain ca va m'en faire des lignes de codes à changer pour remplacer mes boucles.
Donc en fait les Select "A la benne"
Merci
Pascal

 

[Staple1600]

Re : Simplifier

Re

Donc en fait les Select "A la benne"

Entièrement d'accord avec toi


Quand aux boucles , elles sont utiles selon les circonstances.
(Parfois, il est nécessaire d'employer une boucle en VBA)


PS: (Si elles sont blondes, il faut leur offrir de la dentelle ...)