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,

[victor.dubois]

Bonsoir r4v3n,

Tout d'abord, sans même regarder ton code très précisément, je vois qu'il y a deux "If" pour un seul "End If", surement une erreur lorsque t'as copié le code..
Bref..
As-tu essayé avec "Option Compare Text"?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Compare Text
 
Sub aaa()
If Cells(i, 1).Value Like "*_E*" Then
    Cells(i, 4).Formula = "=CONCATENATE(Cells(i,1),"":="",Cells(i,3))"
End If
 
If Cells(i, 1).Value Like "*_S*" Then
    Cells(i, 4).Value = Cells(i, 3).Value & ":=" & Cells(i, 1).Value & ";"
End If
 
End Sub

Voici deux manières d’obtenir le résultat. Une fois avec la formule Concatenate (que je maîtrise pas encore) et la deuxième avec nos chers "&"

En espérant t'aider cdt,

Victor

[r4v3n]

Bonjour victor.dubois,

Tout d'abord merci d'avoir répondu. Pour le "End If", oui c'est une erreur de copié collé de ma part, il est présent dans le bout de programme réel. Pour ce qui est du "compare text", non je ne connais pas cette méthode, je commence à peine le VBA, j'essaye de faire avec: "Enregistrer une macro", sauf que pour cette partie, vu que j'ai en totalité 3000+ lignes, il arrive pas à gérer les filtres.

Après avoir essayé ton code et lancé, j'ai ce même problème qui reviens, il me met une erreur de "débogage" à la ligne:

Code :

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

If Cells(i, 1).Value Like "*_E*" Then

Je ne comprend pas pourquoi il n'arrive pas à passer cette étape.Sur mon code, c'était pareil il n'arrivait pas à passer l'étape la:

Code :

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

 If Columns("A").Value = "_E*" Then

Cordialement,

[r4v3n]

J'ai fais plusieurs essai et toujours aucune avancé, j'ai enlevé la condition "If" pour qu'il execute directement la tâche mais toujours une erreur.

Code :

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

Cells(i, 1).Value Like "_E" Then

Cordialement,

[Minise]

j'y arrive sans afficher de formule avec un truc comme ça

Code :

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

1
2
3
4
5
6
7
 
Sub testlike()
 
If Cells(i, 1).Value Like "*_E*" Then Cells(i, 4) = Cells(i, 1) & ":=" & Cells(i, 3) & ";"
 
 
End Sub

[r4v3n]

Alors le problème vient de moi, mais j'ai toujours une erreur de débogage sur :

Code :

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

If Cells(i, 1).Value Like "*_I*" Then