Fonctions vba en excel

**hiline6** · 22/02/2007, 11h32

J ai une fonction toute simple =SI(B3=1;1;2) mais je duplique cela sur plusieurs lignes
Or je le fais en VBA, donc ça me donne cela en VBA "=IF(R[-8]C[-7]=1,1,2)" et en dupliquant cela sur plusieurs lignes, c est assez horrible
Mais si par malheur un jour je veux changer ma cellule B3 en B4, ça fait des changements énormes en VBA,
Qqun a une solution ? Comment garder en VBA le nom des cellules (par ex B3)

**helios77** · 22/02/2007, 11h48

tu as

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=IF(R[-8]C[-7]=1,1,2)"

si tu paramétrais le -8 et le -7

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=IF(R[-" & lig & "]C[-" & col & " ]=1,1,2)"

Si B3 ==> lig = 8 et col = 7
Si B4 ==> lig = 8 et col = 6

J'ai aps testé mais je creuserais de ce côté à ta place
S itu étires ta formuls sur tout les lignes, col, rsete fixe et lig doit s'incrméenter si je comprends bien

Il te suffit alorsde les définir en constante au départ et tu incrémenteras lig au fur et à mesure que tu étires ta boucle

Exemple si tu veux l'étirer sur 10 ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
dim i,j as integer
i=lig
j=1
while j<=10
cells(3+i,2+7).value = "=IF(R[-" & i & "]C[-" & col & " ]=1,1,2)"
i=i+1
j=j+1
 
wend

**hiline6** · 22/02/2007, 11h59

Le problème est que ma condition change de ligne en ligne aussi, j ai mis cet exemple pour simplifier mon exemple
Mais par exemple, pour la ligne suivante, ma condition sera

"=IF(R[-9]C[-8]=1,toto,titi)"
ce sont des conditions bien différentes de ligne en ligne, chose que je ne peux parametrer
enfin bon je vais voir ce que je peux faire avec ce que tu m as donné

**helios77** · 22/02/2007, 12h05

faudrait te replir une sorte de tableau au départ qui conteindrait toutes tes conditions pour chaque ligne
Ensuite tu parcours le tableau en même temps que les lignes pour récupére els conditions