une petite traduction de VBA

audrey · 13 Juin 2003

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 · 13 Juin 2003

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 · 13 Juin 2003

merci beaucoup

@+

Jean-Marie · 13 Juin 2003

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 · 13 Juin 2003

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 · 13 Juin 2003

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 · 17 Juin 2003

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

@+

une petite traduction de VBA

audrey

Guest

pyrof

Guest

audrey

Guest

Jean-Marie

Guest

Jean-Marie

Guest

Alain

Guest

audrey

Guest

Discussions similaires