XL 2013 Recherche en v + calcul de delta

da silva

XLDnaute Junior
Bonjour,
Je voudrais grace a cette fonction pouvoir recherche en v pour copier deux valeur qualité (sheet 1 Colonne B ->sheet 2 Colonne E) et sommes(sheet 1 Colonne C ->sheet 2 Colonne R)sur une autre feuille mais en vérifiant s'il sont bien copier sur le bonne article colonne a.
Puis faire un delta pour chaque g1+g2 s1+s2.
Merci d'avance car Je bloque pas mal sur la recherche en v car étant nouveau dans le domaine.


Sub recherchenonqua()

Dim FeSource As Worksheet
Dim FeDest As Worksheet
Dim PlgSource As Range
Dim PlgDest As Range
Dim Cel As Range
Dim Ligne As Long

'défini les feuilles
Set FeSource = Worksheets("tri1 ")
Set FeDest = Worksheets("tri2")

'défini les plages
With FeSource

Set PlgSource = .Range(.Cells(3, 1), .Cells(.Rows.Count, 1).End(xlUp))

End With

With FeDest

Set PlgDest = .Range(.Cells(3, 1), .Cells(.Rows.Count, 1).End(xlUp))

End With

'parcour la plage (en colonne A) de la feuille de destination
For Each Cel In PlgDest

'gestion de l'erreur de la valeur non trouvé
On Error Resume Next
Ligne = Application.WorksheetFunction.Match(Cel.Value, PlgSource, 0) + 2 'rajoute 2 car départ de plage en ligne 3

'si pas d'erreur, récupère les valeurs en colonnes E:G et les inscrit en colonne AN:AP
If Err.Number = 0 Then

Cel.Offset(, 39).Resize(, 3).Value = FeSource.Cells(Ligne, 1).Offset(, 4).Resize(, 3).Value

End If

Next Cel

' maintenant faire le delta piece fait et reel puis le delta
End sub
 

Bebere

XLDnaute Barbatruc
bonsoir
da silva bienvenue
voilà un code qui fonctionne
si tu as beaucoup de lignes faire le code avec des tableaux
tu ne dis pas si tu as des doublons dans la colonne recherche(destination) ou dans l'autre(source)
 

Pièces jointes

  • TESTMatch.xlsm
    21.3 KB · Affichages: 32

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T