Discussion :

[Alb-Nicolas]

Bonjour à tous,

Je pense que certaines personnes sur ce forum seront capables de m'aider.

Voilà mon problème :

Je dois réaliser une concaténation de plusieurs colonnes et mon fichier étant déjà très lourd, j'aimerai que ce soit fait par macro.
L'idée est simple mais je ne sais pas comment écrire la macro.

En fonction de ce qui est écrit dans la colonne F, la concaténation change.
Par exemple, s'il est écrit "FF", alors il faut faire la concaténation de la colonne G et K
S'il est écrit "OF", il faut faire la concaténation de la colonne H et K
S'il est écrit "SS", il faut faire la concaténation de la colonne I et K

Comme vous le voyez, selon la colonne F, il faut concaténer différentes colonnes. Et cela sur toutes les lignes de la Base de Données.

Pouvez-vous m'aider ?

Merci par avance

[Thautheme]

Bonjour Nicolas, bonjour le forum,

Concaténer d'accord mais où , dans quelle colonne ?!...

[Alb-Nicolas]

Bonjour Thauthème

en effet je suis idiot je ne l'ai pas précisé.
Il faudrait concaténer dans la colonne A

[BENNASR]

bonjour
à tester sur une copie de ton travail
NB :
- j'ai mis un peu d'espace entre la valeur des deux colonne lors de la concaténation
- La colonne F égale "FF" et non pas contient

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 test()
Dim F As Worksheet
Dim derligne As Long
Dim I As Integer
Set F = Sheets("Feuil1") ' à adaoter
Application.ScreenUpdating = False
With F
derligne = .Cells(Rows.Count, 11).End(xlUp).Row ' déterminer le dernière ligne non vide de la colonne K
For I = 2 To derligne ' à titre d'exemple commencer par deuxieme ligne
If .Cells(I, 6) = "FF" Then .Cells(I, 1) = .Cells(I, 7) & "  " & .Cells(I, 11)
If .Cells(I, 6) = "OF" Then .Cells(I, 1) = .Cells(I, 8) & "  " & .Cells(I, 11)
If .Cells(I, 6) = "SS" Then .Cells(I, 1) = .Cells(I, 9) & "  " & .Cells(I, 11)
 
Next I
End With
Application.ScreenUpdating = True
End Sub

[Alb-Nicolas]

Bonjour BENNAS

ton code marche parfaitement.
je dois simplement enlever le End if sinon j'obtiens un message d'erreur.
Je trouve ça étrange d'avoir une macro avec des IF sans End If mais cela semble marcher

[BENNASR]

j'ai déja enlevé le end if de mon message
si le IF et THEN sur la même ligne y a pas de END IF
Bonne continuation