correspondance entre vecteur de données

[cg1980]

bonjour
petit problème
En F1 il y a une colonne de données
En F2 il y a une ligne de données
les données en F2 doivent correspondre à F1


Si ce n'est pas le cas, la macro devrait insérer la nouvelle valeur dans F2

Par exemple on voit que A15 (F1) ne figure pas dans F2, donc il faut l'insérer en i3 dans F2, ainsi les données seront correpsondantes.

Mais il y a un petit problème. Dans la comparaison de données, on regarde que les données contenant "Corp".
Donc en F1 il ne faut pas tenir compte de "Floaters" et la cellule vide
Et en F2, il n'y a pas ces 2 lignes intercallés.

donc en resumé la ligne de f2 doit correspondre à la colonne de F1 pour les valeurs contenant "Corp"
Merci de votre aide. N'hésitez pas à me dire si ce n'est pas clair.
Merci

 

[JBOBO]

Re : correspondance entre vecteur de données

Bonjour,

Je ne sais pas faire par macro mais avec une colonne supplementaire en F1 pouvant être masqué et une formule en F2 on obtient ce que tu souhaite, je pense, sous reserve que j'ai correctement saisie ta demande.

 

[mapomme]

Re : correspondance entre vecteur de données

Bonjour,
Essayez avec ce code:

Sub TransposerListe()
Dim i, j, i1, j2, F1 As Worksheet, F2 As Worksheet

Set F1 = Worksheets("F1")
Set F2 = Worksheets("F2")
j = 0

Range(F2.Range("B1"), F2.Range("B1").End(xlToRight)).ClearContents

i1 = F1.Range("A1").End(xlDown).Row
j2 = F1.Cells(Rows.Count, 1).End(xlUp).Row

For i = i1 To j2
    If InStr(LCase(F1.Cells(i, 1)), "corp") > 0 Then
        F2.Range("B1").Offset(0, j) = F1.Cells(i, 1)
        j = j + 1
    End If
Next i

End Sub

 

[cg1980]

Re : correspondance entre vecteur de données

bonjour merci.
mais pour ajouter les nouvelles valeurs, il est important d'inserer une colonne et de copier cette nouvelle valeur. ainsi ca evite de devoir emettre à jour les données sous la colonne (car ily a des liens )
merci