Discussion :

[r4v3n]

Bonjour à tous,

Je sais que mon titre n'est pas très explicite, je vais essayé de faire mieux dans le post. Tout d'abord, voici le tableau:




Ce que j'essaye de faire:

Contrôler dans la colonne A si il y a "*_E*" et écrire dans la colonne D ( dans la cellule de la même ligne) une formule : concatener(A1;":=";C1;";")
Contrôler dans la colonne A si il y a "*_S*" et écrire dans la colonne D ( dans la cellule de la même ligne) une formule : concatener(C1;":=";A1;";")

Actuellement , j 'ai un bout de code que bloque à la première ligne, mais je ne comprend pas pourquoi. Si vous avez une meilleur façon de le faire, ou une correction de mon bout de code, ce serait super.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
' Vérification du symbole "_E" dans la colonne A
If Columns("A").Value = "_E*" Then
           ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-4],"":="",RC[-2],"";"")"
    Range("D1").Select
 
' Vérification du symbole "_S" dans la colonne A
If Columns("A").Value = "_S*" Then
           ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],"":="",RC[-4],"";"")"
    Range("D1").Select
 
 
  End If

Cordialement,