Discussion :

[fb62840]

Bonjour,

j'ai besoin de vote aide pour obtenir des recopies de noms
Sur la feuille "Origine" j'ai un tableau de 2 colonnes.
La première contient des Noms
La seconde des activités

Sur la feuille "Destination" j'ai :
l'intégralité des activités citées sur la feuille "Origine" à recopier en colonne A (en nommant la colonne "Activités" et sans doublons)
et en colonne B, j'aimerais obtenir que les Noms qui mentionne l'activité donnée en colonne B sur la feuille "Origine" soient reportés dans la colonne B de la feuille "Destination" en face de l'activité qui convient.

Je crois que ça sera clair avec mon fichier joint.

[Menhir]

Je crois que ça sera clair avec mon fichier joint.

Beaucoup de participants à ce forum n'ouvrent pas les pièces jointes.
Tu devrais lire les règles notées "Important" : https://www.developpez.net/forums/d8...s-discussions/

en colonne B, j'aimerais obtenir que les Noms qui mentionne l'activité donnée en colonne B sur la feuille "Origine" soient reportés dans la colonne B de la feuille "Destination" en face de l'activité qui convient.

Tu fais une scrutation de toutes les lignes de ton fichier Origine avec une boucle For To sur le numéro de ligne.
https://msdn.microsoft.com/fr-fr/VBA...next-statement
Pour chaque ligne, tu recherches l'activité concernée dans la colonne A de Destination en utilisant la méthode Find de Range.
https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx
Tu peux avoir le numéro de ligne concernée en utilisant la propriété Row sur le résultat du Find ou par un simple Offset(0, 1) pour prendre la cellule à droite de celle trouvée.
Tu ajoutes le nom de la ligne scrutée de Origine dans la colonne B de la ligne trouvée. Là, je ne vois pas comment t'aider vu que tu ne donnes pas d'indication sur le format de concaténation de plusieurs noms dans ces cellules.

[eriiic]

Bonjour,

pas besoin de vba ni de formules, un simple TCD le fait.

eric

[fb62840]

Bonjour Eric,

Navré mais je ne peux pas utiliser de TCD...

Bon après-midi

Bonjour,

pas besoin de vba ni de formules, un simple TCD le fait.

eric

[fb62840]

Bonjour,

Merci beaucoup pour ces conseils.

Voici le code que j'ai commencé à rédiger :

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 testo()
Dim FL1 As Worksheet, FL2 As Worksheet, NoCol, NoLigne As Integer
Dim Derligne
Dim NoLig As Long, Var As Variant
    Set FL1 = Worksheets("Origine")
    Set FL2 = Worksheets("Destination")
    Derligne = FL2.Range("B1").End(xlDown).Address
    For NoLig = 1 To Split(FL1.UsedRange.Address, "$")(4)
        Var = FL1.Cells(NoLig, 2)
            If Var <> "" Then
                FL2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Var
                FL2.Range("$A:$A").RemoveDuplicates Columns:=1, Header:=xlNo
            End If
    Next
    Set FL1 = Nothing
End Sub

Cela me permet de recopier sur la feuille "Destination" toutes les "activités" mentionnées en colonne B de la feuille "Origine" sans doublon.

J'aimerais poursuivre ce code en vérifiant en colonne A sur la feuille "Origine" le nom présent en colonne A
Si la cellule n'est pas vide, alors, placer le nom dans la Colonne B sur la feuille "Destination" sur la ligne ou en colonne A on trouve le nom de l'activité mentionné pour ce nom sur la feuille "Origine.

Un peu d'aide serait bienvenue.

[Menhir]

Cela me permet de recopier sur la feuille "Destination" toutes les "activités" mentionnées en colonne B de la feuille "Origine" sans doublon.

Il aurait été plus simple de copier toute la colonne avec la méthode Copy de Range.
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx
Puis de supprimer les doublons avec RemoveDuplicates.
https://msdn.microsoft.com/fr-fr/lib.../ff193823.aspx

En deux lignes, le tour était joué.

J'aimerais poursuivre ce code en vérifiant en colonne A sur la feuille "Origine" le nom présent en colonne A
Si la cellule n'est pas vide, alors, placer le nom dans la Colonne B sur la feuille "Destination" sur la ligne ou en colonne A on trouve le nom de l'activité mentionné pour ce nom sur la feuille "Origine.

Voir mon message précédent.

[fb62840]

Merci , oui en effet ça semble plus simple, mais avec votre proposition je me retrouve avec une ligne "vide" qui se trouve entre 2 blocs d'activités.

J'ai tenté une recherche avec Find mais je dois mal m'y prendre car je n'y arrive pas.

Il aurait été plus simple de copier toute la colonne avec la méthode Copy de Range.
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx
Puis de supprimer les doublons avec RemoveDuplicates.
https://msdn.microsoft.com/fr-fr/lib.../ff193823.aspx

En deux lignes, le tour était joué.


Voir mon message précédent.

[eriiic]

Navré mais je ne peux pas utiliser de TCD...

Ah, s'il s'agit d'un interdit religieux je comprend.

[Menhir]

Merci , oui en effet ça semble plus simple, mais avec votre proposition je me retrouve avec une ligne "vide" qui se trouve entre 2 blocs d'activités.

Une ligne vide peut se supprimer en appliquant un SpecialCells(xlCellTypeBlanks) à ta zone à épurer et en y ajoutant EntireRow.Delete.
https://msdn.microsoft.com/fr-fr/VBA...s-method-excel

Mais il serait peut-être plus propre de le faire par un tri. Comme ça on fait coup double : on met la ligne vide en dernier et on a une liste triée.
https://msdn.microsoft.com/fr-fr/lib.../ff840646.aspx

J'ai tenté une recherche avec Find mais je dois mal m'y prendre car je n'y arrive pas.

Sans voir le code, je ne vois pas comment il serait possible de découvrir où tu as commis une erreur.