Discussion :

[misc1110]

Bonjour,
je souhaite copier coller les valeurs d'une feuille dans une autre a partir d'un critère et d'une concaténation.

J'ai 2 feuille.
1- Risque Client
2- suivi

je souhaite à partie de la 3 eme ligne concatener la colonne J et la colonne M dans la feuille "suivi"
et coller ce résultat dans la feuille "Risque Client" dans la colonne C à partir de C6
le copié collé doit se faire sous un crière "ACCU_R" dans la colonne E de la feuille "suivi"

donc filtrer les données de la feuille selon le critère "ACCU_R" "suivi" --> concatener la colonne J et la colonne M dans cette feuille à partir de la 3ème ligne
coller le résultat dans la feuille "Risque Client" dans la colonne C à partir de C6
Meri de votre aide

[Thautheme]

Bonjour Misc, bonjour le forum,

Essaie comme ça :

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
18
19
20
Sub Macro1()
Dim RC As Worksheet 'déclare la variable RC (onglet Risque Client)
Dim S As Worksheet 'déclare la variable S (onglet Suivi)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
 
Set RC = Worksheets("Risque Client") 'définit l'onglet RC
Set S = Worksheets("Suivi") 'définit l'onglet S
DL = S.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'ongelt S (colonne à adapter à ton cas)
TV = RC.Range("A1:M" & DL) 'définit le tableau des valeurs TV
For I = 3 To DL 'boucle sur toutes les lignes I du tableau des valeurs (en partant de la troisième)
    If TV(I, 5) = "ACCU_R" Then 'condition : si la donnée ligne I colonne 5 (=> E) de TV est égale à "ACCU_R"
        'définit la cellule de destination DEST
        If RC.Range("C6").Value = "" Then Set DEST = RC.Range("C6") Else Set DEST = RC.Cells(Application.Rows.Count, "C").End(xlUp).Offset(1, 0)
        DEST.Value = TV(I, 10) & TV(I, 13) 'récupère dans DEST la concaténation de la donnée ligne I colonne 10 (=>J) et de la donnée ligne I colonne 13 (=>M)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub

[misc1110]

Bonjour,
merci de m'avoir répondu. Mais malheureusement cela ne fonctionne pas :/
je ne peux pas connaître le nombre de ligne maximum cela change selon les fichiers des clients

[Thautheme]

Re,

Le code utilise la colonne A de l'onglet Suivi pour déterminer le nombre de lignes. Il faut peut-être changer et indiquer la colonne qui contient le plus de lignes. Je te l'avais mentionné dans les commentaires...
Remplace dans la ligne ci-dessous A par la colonne désirée :

Code :

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

DL = S.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'ongelt S (colonne à adapter à ton cas)

[misc1110]

Re,

Le code utilise la colonne A de l'onglet Suivi pour déterminer le nombre de lignes. Il faut peut-être changer et indiquer la colonne qui contient le plus de lignes. Je te l'avais mentionné dans les commentaires...
Remplace dans la ligne ci-dessous A par la colonne désirée :

Code :

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

DL = S.Cells(Application.Rows.Count, "A").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'ongelt S (colonne à adapter à ton cas)

J'ai changer la colonne en J et cela ne fait rien :/

[78chris]

Bonjour à tous

Au lieu de multiposter, joins a minima une ou deux copies d'écran montrant les références lignes et colonnes et le bas du tableau