Discussion :

[Noctis76]

Bonjour à tous !

Je souhaiterais ajouter un signe dollars ($) devant chaque lettre de colonne, je m'explique

j'ai ces formules :

=DECALER('Operations Quantity'!C6;;ENT((LIGNES($1:$1)-1)))
=DECALER('Operations Quantity'!D6;;ENT((LIGNES($1:$1)-1)))
=DECALER('Operations Quantity'!E6;;ENT((LIGNES($1:$1)-1)))
.
.
.
.

est ainsi de suite sur 384 cellules

Je souhaiterais créer une macro qui ajoute un $ devant chaque lettre de colonne

=DECALER('Operations Quantity'!$C6;;ENT((LIGNES($1:$1)-1)))
=DECALER('Operations Quantity'!$D6;;ENT((LIGNES($1:$1)-1)))
=DECALER('Operations Quantity'!$E6;;ENT((LIGNES($1:$1)-1)))
.
.
.
.

ces formules sont en lignes, le fait que les soient variable complique le problème, quelqu'un aurait une piste ?

[Theze]

Bonjour,

Tu récupères ta formule dans un String dans lequel tu fais une recherche du point d'exclamation et ensuite, avec les fonctions Left() et Mid() tu reconstruis par concaténation ta formule en y insérant le $

[Noctis76]

Bonjour,

Tu récupères ta formule dans un String dans lequel tu fais une recherche du point d'exclamation et ensuite, avec les fonctions Left() et Mid() tu reconstruis par concaténation ta formule en y insérant le $

Merci pour ta réponse, j'avais dans l'idée de faire quelque chose de ce genre. Je débute en VBA, pourrais tu juste me donner les principales fonctions à utiliser pour la recherche du point d'exclamation et la reconstruction par concaténation ?

[unparia]

Bonjour

les principales fonctions à utiliser pour la recherche du point d'exclamation et la reconstruction par concaténation ?

Instr (rubrique Instr, fonction de ton aide interne VBA)
opérateur & de concaténation

Au passage : intéresse-toi également à la fonction Replace

Je débute en VBA

tout cela est justement à la portée de tout débutant. Tu as même, sur ce site, un didacticiel sur le traitement des chaînes de caractères. Je te conseille de le lire.

[Noctis76]

Pour les personnes intéréssée qui passerons sur ce forum, voici la solution que j'ai trouvé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro5()
 
Dim MaChaine As String, insert As String, a As Long
 
For i = 10 To 384
 
MaChaine = Cells(13, i)
insert = "$"
a = 32
 
MaChaine = Left$(MaChaine, a - 1) & insert & Mid$(MaChaine, a)
Cells(13, i) = MaChaine
 
 
 Next i
 
End Sub

Ce code est pour l'insertion d'un caractère à un endroit précis, entre 31 (a-1) et 32 (a), donc entre le 31unième et le 32ième caractère.

Je me suis également servi de ce code qui sert à modifier un caractère existant dans votre string :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Macro6()
 
Dim Msg As String
 
For i = 10 To 384
 
Msg = Cells(13, i)
 
  Mid(Msg, 21, 1) = "u"
 
  Cells(13, i) = Msg
 
  Next i
 
End Sub

Ici le code remplace le 21unième caractère par la lettre u. Voila, bonne chance !