Utilisation du &

Bonjour,

Je pense que cette question pourra en intéresser plus d'un :

J'aimerais savoir comment on peut utiliser la formule magique "&"
Je l'ai déjà utilisée pour ce genre de formule

Code:

---

ActiveCell.Formula = ("=Traitement!L24*évaluation_produit!$C" & 10 * i + 8)

---

Mais j'aimerais savoir si on peut en mettre plusieurs dans une même commande, si on peut l'utiliser pour faire référence à un caractère qui n'est pas le dernier, etc.
En fait j'aimerais le mode d'emploi que je ne trouve nulle part.

Merci à tous

Un petit exemple rendra surement les choses plus claires :

est-il possible d'écrir quelque chose qui signifierait :

Code:

---

ActiveCell.Formula = "=DECALER(A4;x;0)"

---

où le x pourrait être remplacé par autre chose

bonjour

Code:

---

Range("A1").formulalocal = "=DECALER(A4;" & x & ";0)"

---

Autre exemple

Code:

---

Range("A1").formulalocal = "=Si(A1=" & chr(34) & "OUI" & chr(34) & ";1;0)"

---

le symbole & sert a concatener. Rien n'empeche de concatener tant que tu n'oublies pas les sorties et entrées dans des zones de texte par des "

Code:

---

ActiveCell.Formula = "=DECALER(A4;" & i & ";0)"

---

Okay

Cà me semble plus clair, et çà devrait me permettre d'avancer aujourd'hui.

Merci les gars

A bientôt pour de nouvelles aventures...

Et est-ce que vous avez une idée de pourquoi cette ligne ne fonctionne pas

Code:

---

CellCoura.OffSet(0, " & j & ").Select

---

dans

Code:

---

1 2 3 4 5 6 7 8 9

Set CellCoura = CellCoura.OffSet(1, 0) CellCoura.Value = CellCourr.Value CellCoura.OffSet(0, 1).Activate ActiveCell.Formula = ("=B" & 10 * i + 1) ActiveCell.Copy For j = 1 To 6 CellCoura.OffSet(0, " & j & ").Activate ActiveSheet.Paste Next

---

Alors que celle-ci marche

Code:

---

CellCoura.OffSet(0, 2).Select

---

?

L'erreur est "incompatibilité de type"

Salut,

Code:

---

CellCoura.OffSet(0, " & j & ").Select

---

Tu as placé ta variable j entre les quotes.
Donc & j & est interprété comme une chaine.
Si tu veux utiliser j fais simplement :

Code:

---

CellCoura.OffSet(0, j).Select

---