Message d'erreur excel VBA même données

Effectivement, c'est astucieux :)
Bien joué !

Il a trouvé sa place aussi dans les miens
Merci pour le lien

Merci, j'ai essayé de l'appliquer à mon ficher mais ma macro ne fonctionne pas.

apparement c'est le DrLg qui bloque, à quoi doit il correspondre excactement ?
Pourtant dans mon répertoire, le code est en colonne A et les ingrédients en B...

La variable DrLg correspond au numéro de ligne non-vide dans la colonne B de la feuille1... Quel est le message d'erreur ?

le message d'erreur : "erreur d'exécution 1004 : erreur définie par l'application ou par l'objet

Je recopie exactement la meme chose et il me marque : erreur d'exécution 1004 : erreur définie par l'application ou par l'objet ???

non mais j'ai changé j'ai adapté le code :

Dim Dico As Object, i As Long, ingredient As String, DrLg As Long, code

With Sheets("Entrée ingrédients")
ingredient = Range("B5").Value
code = Range("A5").Value
End With

With Sheets("INGREDIENTS et VIANDES")
Set Dico = CreateObject("Scripting.dictionary")
DrLg = .Range("B" & Rows.Count).End(x1up).Row
For i = 2 To DrLg
Dico(UCase(Cells(i, 2))) = ""
Next i
If Not Dico.exists(UCase(ingredient)) Then
Range("A" & Rows.Count).End(x1up).Offset(1, 0).Value = code
Range("B" & Rows.Count).End(x1up).Offset(1, 0).Value = ingredient

Else
MsgBox "Ingrédient déjà existant", vbCritical + vbOKOnly, "Erreur"
End If

C'est vrai qu'en "mode code" 1=l (L)

1<>l

MERCI !!!! CA fonctionne ouf ! merci beaucoup...

J'aurai une autre petite question... En fait mon tableau d'entrée d'ingrédient est de A5 à A9 (pour le code) et de B5 à B9 (pour l'ingrédient) de façon à ce qu'on puisse rentrer plusieurs ingrédients en meme temps. Pouvez vous me dire s'il y a un moyen de l'intégrer dans la formule plutot que de traiter que la ligne A5;B5 ?? Merci d'avance

Avec une petite boucle. Essaye :

Private Sub Label1_Click()
Dim Dico As Object, i As Long, Ingredient As String, DrLg As Long, code, Lig As Byte

For Lig = 5 To 9
    With Sheets("Feuil2")
        Ingredient = .Range("A" & Lig).Value
        code = .Range("B" & Lig).Value
    End With

    With Sheets("Feuil1")
        Set Dico = CreateObject("Scripting.Dictionary")
        DrLg = .Range("B" & Rows.Count).End(xlUp).Row
        For i = 2 To DrLg
            Dico(UCase(.Cells(i, 2))) = ""
        Next i
        If Not Dico.exists(UCase(Ingredient)) Then
            .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = code
            .Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Ingredient
        Else
            MsgBox "Ingrédient déjà existant", vbCritical + vbOKOnly, "Erreur Fatale!"
        End If
    End With
Next Lig
End Sub

"erreur de compilation End sub attendu" pourtant je l'ai marqué ???!!
Aussi, la fin de ma macro ne s'excécute plus depuis l'insersion de ton code, saurais tu pourquoi ?

Sub nbvalingredient()

Application.ScreenUpdating = False
'

'création nb val
Sheets("INGREDIENTS et VIANDES").Select
Range("G8").Select
ActiveCell.FormulaR1C1 = "=COUNTA(C[-6])"
x = Cells(8, 7).Value
y = x + 1

'création nb val pour nouvelles données
Sheets("Entrée ingrédients").Select
Range("G1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(RC[-6] : R[9] C[-6])"
Z = Cells(1, 7).Value + 4


'copier les données dans ing & viandes
Sheets("Entrée ingrédients").Select
Range("A5:D" & Z).Select
Selection.Copy
Sheets("INGREDIENTS et VIANDES").Select
Cells(y, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

TON CODE EST ICI

'effacer les données entrées
Sheets("Entrée ingrédients").Select
Range("A5:D" & Z).Select
Selection.ClearContents

'fitrer par ordre du plus petit au plus grand
Range("A3").Select
ActiveWorkbook.Worksheets("INGREDIENTS et VIANDES").AutoFilter.Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("INGREDIENTS et VIANDES").AutoFilter.Sort.SortFields. _
Add Key:=Range("A4:A476"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("INGREDIENTS et VIANDES").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With


Sheets("INGREDIENTS et VIANDES").Select
Range("G8").Select

Sheets("Entrée ingrédients").Select
Range("A3").Select

Application.ScreenUpdating = True

End Sub

Le problème c'est que maintenant, comme l'ordi fait une boucle, meme si la ligne est vide il m'affiche le message d'erreur ?! Dois je rajouter un IF ??? pour dire si la ligne est vide, ne pas afficher le message d'erreur ?!

ensuite le soucis est que le message d'erreur s'affiche : "l'ingrédient existe déjà" mais se copie quand meme dans le répertoire, je voudrai que le message s'affiche qu'on clique sur ok et qu'on revienne sur la page, si l'ingrédient n'est pas enregistré, qu'il se copie dans le répertoire.

En tout cas merci beaucoup pour ton aide.

J'ai inversé code et ingredient entre A5 et B9 :

Dim Dico As Object, i As Long, Ingredient As String, DrLg As Long, code, Lig As Byte

For Lig = 5 To 9
    With Sheets("Feuil2")
        Ingredient = .Range("B" & Lig).Value
        code = .Range("A" & Lig).Value
    End With

    With Sheets("Feuil1")
        Set Dico = CreateObject("Scripting.Dictionary")
        DrLg = .Range("B" & Rows.Count).End(xlUp).Row
        For i = 2 To DrLg
            Dico(UCase(.Cells(i, 2))) = ""
        Next i
        If Not Dico.exists(UCase(Ingredient)) Then
            .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = code
            .Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Ingredient
        Else
            MsgBox Ingredient & " Ingrédient déjà existant", vbCritical + vbOKOnly, "Erreur Fatale!"
        End If
    End With
Next Lig

Sinon, après tests, le code fait exactement ce que tu souhaites, je ne comprends pas...

j'effectivement recopié ton code. Mais par exemple si je rentre :

Ligne 5 : V5852
Ligne 6 : W2000
Ligne 7 : W1000
Ligne 8 : vide
Ligne 9 : vide

L'ordi affiche 5 fois "ingrédient existe déjà" alors que seul V5852 existe dans mon répertoire. De plus, ces 5 lignes se recopient alors que si possible après le message je voudrai que si le message est apparu, on ne copie pas les données.

inversion entre code et ingrédient???

j'ai inversé et maintenant, le message s'affiche plus qu'une fois meme si l'ingrédient existe déja dans le répertoire!