une petite traduction de VBA

[audrey]

j'ai enregistré une macro pour l'utiliser mais il faut que je change 2 3 petites choses.

pouvez vous me faire la traduction de ses lignes que je comprenne quoi changer.

merci

voici le code

Range("C31").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-23]C[1]:R[-16]C[1],R[-1]C)"
Range("D31").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-23]C:R[-16]C,R[-1]C)"
Range("E31").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-23]C[-1]:R[-16]C[-1],R[-1]C)"

j'aimerais surtout savoir à quoi correspondent les termes entre crochet

 

[pyrof]

bonjour,

R[-5] = - 5 ligne par rapport à la ligne courante (Row)
C[1] = colonne +1 (Column)

R[-5]C = ligne -5 et meme colonne

c'est tout ...

 

[audrey]

merci beaucoup

@+

 

[Jean-Marie]

Bonjour


Range("C31").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(D916,C30)"
Range("D31").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(D916,D30)"
Range("E31").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(D916,E30)"


@+Jean-Marie

 

[Jean-Marie]

Rectification :

Range("C31").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(D815,C30)"
Range("D31").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(D815,D30)"
Range("E31").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(D815,E30)"

@+Jean-Marie

 

[Alain]

Bonjour,


Petit complément aux autres réponses, dans ton cas, tes 2 premières lignes pourraient s'écrire :

Range("C31").FormulaLocal = "=NB.SI(D815;C30)"

@+

 

[audrey]

je vous remercie pour toutes ces traductions il est vrai que c'est plus simple comme ça.

@+