Discussion :

[Donatelli]

Bonjour je souhaite copier sur x semaine un bout de code , en changeant certaines formules en fonction de la semaine mais je bloque ici :

Code :

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

1
2
x = "=SI('K:\PLANNING\[Planning 2007.xls]sem " + CStr(i) + "'!C$94>1;" + Chr(34) + "Complet" + Chr(34) + ";" + Chr(34) + "." + Chr(34) + ")"
    Worksheets(l).Range("C" + n).Value = x

Il me met l'erreur 13 lorsque j'arrive sur la deuxieme ligne de code

Je vous met egalement mon code complet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim i, z, l, m, n
Dim x
 
    For n = 5 To 15
 
    x = "=SI('K:\PLANNING\[Planning Agence 2007.xls]sem " + CStr(i) + "'!C$94>1;" + Chr(34) + "Complet" + Chr(34) + ";" + Chr(34) + "." + Chr(34) + ")"
 
    Worksheets(l).Range("C" + n).Value = x
    x = "=SI('K:\PLANNING\[Planning Agence 2007.xls]sem " + CStr(i) + "'!E$94>1;" + Chr(34) + "Complet" + Chr(34) + ";" + Chr(34) + "." + Chr(34) + ")"
    Worksheets(l).Range("E" + n).Value = x
Next n

[cafeine]

Hello,

deux petits conseils :
- change d'opérateur de concaténation "&" est préférable à "+"
- penche-toi sur la fonction INDIRECT()