XL 2019 Recherche conditionnelle imbriquées et VBA

[Jordan1]

Bonjour,

Je cherche à faire une recherche conditionnelle imbriquée

Je dois rapatrier, dans le fichier Donnees, un prix qui est présent dans le fichier F 1mail21.

La clef de recherche dans Donnees est présente dans la colonne G

La clef de recherche dans F 1mail21 est présente dans la colonne A

Le prix a rapatrié est présent soit dans la colonne M soit dans la colonne O du fichier F 1mail21

Si le prix dans la colonne M est supérieur à celui présent dans la colonne O alors prendre le prix de la colonne M sinon c'est celui de la colonne O à prendre.

Voir l'essai de la formule VBA ci-dessous.

Merci de votre aide

Sub essaif()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim Ligne1 As Long, Ligne2 As Long, Ligne3 As Long, ligne4 As Long
Ligne2 = Sheets("Donnees").Range("G50").End(xlUp).Row
Ligne1 = Sheets("F 1mail21").Range("A50").End(xlUp).Row
Ligne3 = Sheets("F 1mail21").Range("M50").End(xlUp).Row
ligne4 = Sheets("F 1mail21").Range("O50").End(xlUp).Row
For n = 1 To Ligne2
For m = 1 To Ligne1
For p = 1 To Ligne3
For q = 1 To ligne4
If Sheets("Donnees").Range("G" & n) = Sheets("F 1mail21").Range("A" & m) Then
If p > 0 Then
Sheets("Donnees").Range("I" & n) = Sheets("F 1mail21").Range("M" & m)
Else
If Sheets("F 1mail21").Range("O50").End(xlUp).Row > Sheets("F 1mail21").Range("M50").End(xlUp).Row Then
Sheets("Donnees").Range("I" & n) = Sheets("F 1mail21").Range("O" & m)
End If
End If
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
Next
Next
Next
Next
End Sub

 

[M12]

Bonjour,

Je cherche à faire une recherche conditionnelle imbriquée

Je dois rapatrier, dans le fichier Donnees, un prix qui est présent dans le fichier F 1mail21.

La clef de recherche dans Donnees est présente dans la colonne G

La clef de recherche dans F 1mail21 est présente dans la colonne A

Le prix a rapatrié est présent soit dans la colonne M soit dans la colonne O du fichier F 1mail21

Si le prix dans la colonne M est supérieur à celui présent dans la colonne O alors prendre le prix de la colonne M sinon c'est celui de la colonne O à prendre.

Voir l'essai de la formule VBA ci-dessous.

Merci de votre aide

Sub essaif()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim Ligne1 As Long, Ligne2 As Long, Ligne3 As Long, ligne4 As Long
Ligne2 = Sheets("Donnees").Range("G50").End(xlUp).Row
Ligne1 = Sheets("F 1mail21").Range("A50").End(xlUp).Row
Ligne3 = Sheets("F 1mail21").Range("M50").End(xlUp).Row
ligne4 = Sheets("F 1mail21").Range("O50").End(xlUp).Row
For n = 1 To Ligne2
For m = 1 To Ligne1
For p = 1 To Ligne3
For q = 1 To ligne4
If Sheets("Donnees").Range("G" & n) = Sheets("F 1mail21").Range("A" & m) Then
If p > 0 Then
Sheets("Donnees").Range("I" & n) = Sheets("F 1mail21").Range("M" & m)
Else
If Sheets("F 1mail21").Range("O50").End(xlUp).Row > Sheets("F 1mail21").Range("M50").End(xlUp).Row Then
Sheets("Donnees").Range("I" & n) = Sheets("F 1mail21").Range("O" & m)
End If
End If
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
Next
Next
Next
Next
End Sub

Bonjour,
Teste comme ceci

 

[Jordan1]

Bonjour M12,
Je viens de tester ta macro et j'ai pu l'adapter; c'est top!
Un grand MERCI

Je risque d'avoir d'autres questions notamment pour rendre les macro plus rapide.

Encore une fois merci à toi

 

[Jordan1]

Bonjour à toutes et tous,


Je rencontre deux cas de figures qui me posent problèmes.

• L’un consiste à trouver le plus grand prix par référence produit quel que soit le conditionnement d’achat ( voir Exemple pour consultation 3) de la feuille Fournisseur et à le reporter dans la feuille Donnée
• L’autre problème consiste (voir Exemple pour consultation 2) à trouver le prix par référence produit et par conditionnement d’achat de la feuille Fournisseur et à le reporter dans la feuille Donnée

Merci à vous les expert(e)s

 

[fanch55]

Bonjour à toutes et tous,


Je rencontre deux cas de figures qui me posent problèmes.

• L’un consiste à trouver le plus grand prix par référence produit quel que soit le conditionnement d’achat ( voir Exemple pour consultation 3) de la feuille Fournisseur et à le reporter dans la feuille Donnée
• L’autre problème consiste (voir Exemple pour consultation 2) à trouver le prix par référence produit et par conditionnement d’achat de la feuille Fournisseur et à le reporter dans la feuille Donnée

Merci à vous les expert(e)s

Salut,
Si le post initial est résolu, marquer le post de @M12 en tant que solution .
Pour la dernière demande , entrer en modification et la couper/coller dans un nouveau post .

 

[M12]

Salut,
Si le post initial est résolu, marquer le post de @M12 en tant que solution .
Pour la dernière demande , entrer en modification et la couper/coller dans un nouveau post .

Ah tu es passé en modérateur

 

[fanch55]

Pas du tout, mais cela évite de répondre au post initial quand la demande n'est plus d’actualité ...

 

[M12]

Bonjour à toutes et tous,


Je rencontre deux cas de figures qui me posent problèmes.

• L’un consiste à trouver le plus grand prix par référence produit quel que soit le conditionnement d’achat ( voir Exemple pour consultation 3) de la feuille Fournisseur et à le reporter dans la feuille Donnée
• L’autre problème consiste (voir Exemple pour consultation 2) à trouver le prix par référence produit et par conditionnement d’achat de la feuille Fournisseur et à le reporter dans la feuille Donnée

Merci à vous les expert(e)s

A voir avec formules matricielles