@cp4
sur le fichier du post 128 les formulaires ne s'ouvrent pas et renvoient ce message
variable non défine et il souligne le terme valeur.
Sub Trouver_tonne_sac()
'procédure pour recuperer le tonnage et le nb de sac
Dim c As Range, firstAddress
valeur = Me.CbRef ' on affecte à la variable valle contenu de la combobox reference
With Sheets("entrée").Range("A2: K" & Sheets("entrée").Range("A" & Rows.Count).End(xlUp).Row) 'dans la plage
Set c = .Find(valeur, LookIn:=xlValues) 'on cherche la valeur
If Not c Is Nothing Then 'si trouver
firstAddress = c.Address 'on memorise la première adresse
Do 'boucle
If c.Offset(, 1) = TextBox3.Value And c.Offset(, 4) = Emplacement And _
c.Offset(, 5) = TextBox7.Value And c.Offset(, 6) = TextBox8.Value Then 'condition à remplir
Tonnage = c.Offset(, 2).Value 'on recupere le tonnage
NbSac = c.Offset(, 3).Value 'on recupre le nbre de sac
ligne_a_supprimer = c.Row 'on recupere le n° de ligne
End If
Set c = .FindNext(c) 'réaffectation
Loop While Not c Is Nothing And c.Address <> firstAddress 'boucle pour prochaine adresse
End If
End With
End Sub