[XL-2003] inserez une cellule à partir d'un autre feuille [Résolu]

[jeanbi]

bonsoir,

je cherche une macro ou fonction pour remplir une colonne de ma feuille 1 avec des champs contenu sur une feuille 2 en fonction d'une valeur commune sur les 2 feuilles
exemple
1er feuille
code nom prenom test
2 em feuille
test adresse
la condition pour coller adresse dans la 1 er feuille il faut que le contenu de la celulle de la colonne test soit egal
j'espere mettre bien explique
a+

[alsimbad]

il te faut utiliser rechercheV, tu as un tuto qui t'explique ça bien

[klash384]

Copie ce code dans un nouveau module :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Test()
    A = 2 'numéro de ligne à partir duquel tu commences à tester ta feuil1
    Do While Not Sheets("Feuil1").Cells(A, 4) = ""
        B = 2 'numéro de ligne à partir duquel tu commences à tester ta feuil2
        Trouvé = False
        Do While Not Sheets("Feuil2").Cells(B, 1) = ""
            If Sheets("Feuil1").Cells(A, 4) = Sheets("Feuil2").Cells(B, 1) Then
                Sheets("Feuil1").Cells(A, 5) = Sheets("Feuil2").Cells(B, 2)
                Trouvé = True
            End If
        B = B + 1
        Loop
    's'il n'y a pas de correspondance, les valeurs de la feuil1 colonne 5 (Adresse) sont éffacées
    If Trouvé = False Then
        Sheets("Feuil1").Cells(A, 5) = ""
    End If
    A = A + 1
    Loop
End Sub

Je suis parti du principe ou dans ta Feuil1 on a :
Colonne A : Code
Colonne B : Nom
Colonne C : Prenom
Colonne D : Test
Colonne E : Adresse

Et dans ta Feuil2 on a :
Colonne A : Test
Colonne B : Adresse

[jeanbi]

bonjour,
la fonction recherchev était pile poil ce que j'avais besoin le seul soucis c'est qu'au debut du tuto il aurait été bon de préciser que les cellule recherche et recherche devait avoir exactement le même format , on n'y fait pas toujours attention et on galère 1/2 heure à comprendre quelle con... on a fait
merci à vous 2
a+