Comparaison de colonnes sur feuilles differentes

Bonjour

J aurai besoin d aide

mon problème est le suivant je voudrai pouvoir prendre automatiquement le Numéro AEX (feuilles 2) et le copier au numero de réquisition correspondant dans la colonne AEX ( feuilles 1) j

est-il possible de faire sa en VBA ?

Merci de votre aide

Pas besoin de macro pour faire ca.

Une recherche suffi par exemple : =SI(A2<>"";RECHERCHEV(A2;N;9;FAUX);"")

( N = Zone de nos defini, c'est la ou la recherche va ce derouler... . 9 = la colonne ou chercher l'info. )

Par contre je vois que tes référence ne sont pas les même ou pas inscrite de la même façon :

Dans la feuil1 : ***

Dans la feuil2 : ***/***

Il faut qu'il soit exactement renseigné de la même façon !!

Merci pour ta réponse

je le veux en Macros car le tableau de la feuilles 2 sera remplacer par d autre qui serons plus long

merci je vais modifier mon numéro de req pour qu il soit semblable sur les deux fichier

Bonjour,

une solution avec une macro.

Sub fillaex()
Set ws1 = Worksheets("Feuil1")
Set ws2 = Worksheets("Feuil2")
dl1 = ws1.Range("a" & Rows.Count).End(xlUp).Row
dl2 = ws2.Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To dl1
Set re = ws2.Range("A2:A" & dl2).Find(ws1.Cells(i, 1) & "/", lookat:=xlPart)
If Not re Is Nothing Then
if left(re,instr(re,"/")-1)=ws1.cells(i,1) then ws1.Cells(i, 2) = re.Offset(0, 8)
End If
Next i
Set ws1 = Nothing
Set ws2 = Nothing
End Sub

Merci h2so4

Mais je n arrive pas a exécuter la Macro il me dit erreur variable non défini

Bonjour,

je suppose que tu as mis une instruction option explicit, indiquant que toutes les variables utilisées doivent être définies au moyen d'une instruction Dim.

Voici donc la correction

Sub fillaex()

Dim ws1, ws2, dl1, dl2, i, re

Set ws1 = Worksheets("Feuil1")
Set ws2 = Worksheets("Feuil2")
dl1 = ws1.Range("a" & Rows.Count).End(xlUp).Row
dl2 = ws2.Range("a" & Rows.Count).End(xlUp).Row
For i = 2 To dl1
Set re = ws2.Range("A2:A" & dl2).Find(ws1.Cells(i, 1) & "/", lookat:=xlPart)
If Not re Is Nothing Then
if left(re,instr(re,"/")-1)=ws1.cells(i,1) then ws1.Cells(i, 2) = re.Offset(0, 8)
End If
Next i
Set ws1 = Nothing
Set ws2 = Nothing
End Sub