Simplifier

P

Pascalbar

XLDnaute Nouveau

• 5 Octobre 2010

• #2

Re : Simplifier

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

Code:

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

 

Vote positif 0 Vote négatif

P

Pascalbar

XLDnaute Nouveau

• 5 Octobre 2010

• #3

Re : Simplifier

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Octobre 2010

• #4

Re : Simplifier

Bonsoir à tous


J'aime la dentelle, moins les boucles

Code:

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

 

Vote positif 0 Vote négatif

P

Pascalbar

XLDnaute Nouveau

• 5 Octobre 2010

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Octobre 2010

• #6

Re : Simplifier

Re

Donc en fait les Select "A la benne"

Cliquez pour agrandir...

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 ...)

 

Vote positif 0 Vote négatif