traduction formule

tototiti2008

XLDnaute Barbatruc

• 8 Juin 2009

• #2

Re : traduction formule

Bonjour Romika,

Style R1C1 (Row, Column):

références absolues
$A$1 = R1C1

$B$12 = R12C2

références relatives :
RC[10] signifie la cellule sur la même ligne que la formule et 10 colonnes à droite
R[-2]C[5] signifie la cellule 2 lignes au-dessus de la formule et 5 colonnes à droite

 

Vote positif 0 Vote négatif

R

romika

XLDnaute Occasionnel

• 8 Juin 2009

• #3

Re : traduction formule

merci.

en fait je cherche la traduction en excel, car je ne comprends pas la logique qui y est inscrite car j'ai besoin de la modifier pour rajouter une condition qui dirait a1 =si(nbcar(b1)=9,b1)

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 8 Juin 2009

• #4

Re : traduction formule

Bonjour à vous deux

juste une remarque :

Do Until ActiveCell = "STOP"
If ActiveCell.Value <> "STOP" Then ActiveCell.FormulaR1C1 = _
"=IF(RIGHT(LEFT(RC[10],9),1)=""0"",LEFT(RC[10],10),LEFT(RC[10],7))"
Selection.Offset(1, 0).Select
Loop

la partie en rouge me semble à première vue inutile compte tenu du test boucle

me trompe-je? 😕

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 8 Juin 2009

• #5

Re : traduction formule

Re,
Bonjour Eric S,

en effet le "If" me semble inutile

Pour la traduction en Excel de la formule :

(en partant du principe que Activecell est A1)

=SI(DROITE(GAUCHE(J1;9);1)="0";gauche(J1;10);gauche(J1;7))

qui pourrait s'écrire aussi

=SI(STXT(J1;9;1)="0";Gauche(J1;10);Gauche(J1;7))

ou alors

=GAUCHE(J1;7+(STXT(J1;9;1)="0")*3)

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 8 Juin 2009

• #6

Re : traduction formule

re

a essayer

range("A1").select
Do Until ActiveCell = "STOP"
ActiveCell.FormulaR1C1 = "=IF(LEN(RC[1])=9,RC[1],"""")"
Selection.Offset(1, 0).Select
Loop

la formule if... est obtenue par l'enregistreur de macro

on sélectionne A1
on boucle tant que l'on ne rencontre pas "stop"
on copie la formule
on incrémente d'une ligne (offset) donc A2 puis A3...

Attention, si en b il n'y a pas 9 caractères, je n'écris rien """"

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 8 Juin 2009

• #7

Re : traduction formule

re

autre info

si par hasard tu écris stop ou Stop au lieu de STOP, ton test risque d'être faux

une possibilité :

Do Until Ucase(ActiveCell) = "STOP"

 

Vote positif 0 Vote négatif