Bonjour à tous,
Petit souci avec "For Each" (que je n'ai jamais manipulé).
Dans Feuil1, plage E7:E30, l'utilisateur de mon fichier a la possibilité d'entrer les valeurs qu'il souhaite (et par conséquent d'entrer entre 1 et 23 valeurs).
Mon objectif est que pour chacune des valeurs (non vides) entrées par l'utilisateur, je puisse exécuter un certain nombre d'actions, en commençant par la valeur d'E7 pour finir avec la dernière de la colonne.
Ci-dessous, à toutes fins utiles, le code que je suis (honteusement) parvenu à pondre...
Petite précision : les macros "trier" et "trier_missing" fonctionnent : elles ne sont pas de moi
Merci infiniement !
Roukkeus
Petit souci avec "For Each" (que je n'ai jamais manipulé).
Dans Feuil1, plage E7:E30, l'utilisateur de mon fichier a la possibilité d'entrer les valeurs qu'il souhaite (et par conséquent d'entrer entre 1 et 23 valeurs).
Mon objectif est que pour chacune des valeurs (non vides) entrées par l'utilisateur, je puisse exécuter un certain nombre d'actions, en commençant par la valeur d'E7 pour finir avec la dernière de la colonne.
Ci-dessous, à toutes fins utiles, le code que je suis (honteusement) parvenu à pondre...
Petite précision : les macros "trier" et "trier_missing" fonctionnent : elles ne sont pas de moi
Code:
Sub Engine()
With Feuil1
For Each cell In Feuil1.Range("E7:E30")
If cell <> "" Then
.Copy
Sheets("Engine").Select
Range("C1").Select
ActiveSheet.Paste
Sheets("Ref_missing_from_DB").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Doc_total_ref_list").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Additionnal_ref_vs_DB").Select
Range("B2").Select
ActiveSheet.Paste
Call Module1.trier_missing
DoEvents
Sheets("Ref_missing_from_DB").Select
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A3").Select
Call Module4.trier
DoEvents
Sheets("Additionnal_ref_vs_DB").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]<>"""",IF(ISERROR(VLOOKUP(RC[-1],Doc_total_ref_list!R1:R65536,2,FALSE)),""Not in Data Base"",""""),"""")"
Range("B3").Select
Selection.AutoFill Destination:=Range("B3:B4000")
Range("B3:B4000").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
End If
Next
End With
End Sub
Merci infiniement !
Roukkeus
Dernière édition: