Re : Problème formule recherchev
BONJOUR
JE VOUS ENVOIE LE CODE DE L'USERFORM QUI FAIT ENTRER LES SORTIES DANS LA FEUILLE
Sub Poster_sortie()
' On désactive le raffraichissement de l'écran
Application.ScreenUpdating = False
' On définit Entreeplus, ZZ et i
Dim EntreePlus As Worksheet, ZZ As Range, i As Integer
' EntreePlus est en fait la feuille Sortie
Set EntreePlus = ThisWorkbook.Worksheets("Sortie")
' ZZ est la ligne où l'on va copier les données, c'est à dire en fin de liste
Set ZZ = EntreePlus.Cells(16384, 1).End(xlUp).Offset(1, 0)
' Dans la colonne A, la date
ZZ.Offset(0, i).Value = Format(UserForm2.ComboBox2.Value, "dd/mm/yyyy")
' Dans la colonne B, la référence de la pièce
ZZ.Offset(0, i + 1).Value = UserForm2.ComboBox1.Text
' Dans la colonne C, le nombre de pièces
ZZ.Offset(0, i + 3).Value = UserForm2.TextBox1.Text
' Enfin, dans la colonne C, l'adresse
ZZ.Offset(0, i + 4).Value = UserForm2.TextBox2.Text
' On se replace sur la feuille principale
Sheets("Liste des articles").Select
' Un petit message pour faire pro
MsgBox "Données sauvegardées"
' Fermeture et ouverture
Unload UserForm1
UserForm1.Show
' On réactive le raffraichissemnet de l'écran
Application.ScreenUpdating = True
End Sub
MERCI D'AVANCE.