Bonjour Khalid,
Dites au moins quelle liste déroulante vous voulez ?
Mais quelle liste ? 1,2,3,4 kg ou plus ?
En PJ j'ai mis de 1 à 20kg.
Bonjour sylvanur , je veux quand je saisie en cellule L4 automatiquement affiche dans tableau
On ne peut que le faire avec une macro en VBA, acceptez vous les macros ?je veux quand je saisie en cellule L4 automatiquement affiche dans tableau
On ne peut que le faire avec une macro en VBA, acceptez vous les macros ?
accepte
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [M4]) Is Nothing Then
Dim L%, C%
If [K4] = "" Then Exit Sub
If [I4] = "Bovin" Then
L = Application.Match([K4], [F10:F64], 0): C = 8
Else
L = Application.Match([K4], [L10:L37], 0): C = 14
End If
Application.EnableEvents = False
Cells(L + 9, C) = Target
[K4:M4].ClearContents
End If
Fin:
Application.EnableEvents = True
End Sub
Pas compris.
Mettez un fichier représentatif. Pourquoi ne pas avoir mis le bon fichier dès le départ ?
ouiVous ne répondez jamais aux questions ?
Et après vous allez demander de mettre en F1 la liste des produits validés ?
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [M4]) Is Nothing Then
Dim L%, C%
If [K4] = "" Then Exit Sub
If [I4] = "Bovin" Then
L = Application.Match([K4], [Bovin], 0): C = 8
Else
L = Application.Match([K4], [Ovin], 0): C = 14
End If
Application.EnableEvents = False
Sheets("Budget").Cells(L + 4, C) = Target
[K4:M4].ClearContents
End If
Fin:
Application.EnableEvents = True
End Sub