Discussion :

[Amiral19]

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 :

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

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 :

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

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

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

[wilfried_42]

bonjour

Code :

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

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

Autre exemple

Code :

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

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

[jfontaine]

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 :

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

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

[Amiral19]

Okay

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

Merci les gars

A bientôt pour de nouvelles aventures...

[Amiral19]

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

Code :

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

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

dans

Code :

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

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 :

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

CellCoura.OffSet(0, 2).Select

?

L'erreur est "incompatibilité de type"

[Lou Pitchoun]

Salut,

Code :

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

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 :

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

CellCoura.OffSet(0, j).Select