suite au test avec Validation de Données, j'aimerais transcrire cette formule en VBA:
D5<>"";RECHERCHE(Poids!A$2:A$10000);"". Comme la Msg affiche 4 boutons, je préfère en avoir qu'un seul.
p = Application.VLookup([D5], Feuil3.[A:B], 2, 0)
If Not IsError(p) Then .Cells(lig, 4) = p
.[A:D].Sort .[C1], xlDescending, Header:=xlYes 'tri sur les numéros
Si vous tenez absolument à avoir des formules en colonne D de la feuille Data utilisez :
Code:
F = "VLOOKUP(RC[-1],'" & Feuil3.Name & "'!C1:C2,2,0)" 'Feuil3=CodeName
F = "=IF(ISERROR(" & F & "),""""," & F & ")"
.Cells(lig, 4).FormulaR1C1 = F
.[A:D].Sort .[C1], xlDescending, Header:=xlYes 'tri sur les numéros
Voilà, j'ai fait le test sur les 3 fichiers, mais il n'y a pas de message.
Le code doit donner ceci:
si en D5 le numéro est 4260 (au lieu de 2460), Msg: Ce numéro est erroné. Veuillez le corriger.
Ceci sert à retrouver le poids de la palette et l'inscrire.
La feuille Poids est une feuille où l'on a déjà saisi le poids des palettes(remplies de plastique) et qui on chaqu'une leurs numéros.
En suite(quand on vide les palettes) on rentre le numéro correspondant, qui lui vas retrouver et inserer le poids dans la feuille Data.