Bonjour le forum. bonjour a tous.
j'ai obtenu sur le forum une macro permettant de remplir un tableau a partir d'une liste de choix. j'ai malheureusement baucoup de peines a l'utilliser je voudrai s'il vous plait, une fonction excel capable de remplacer cette macro tout en effectuant les memes fonctions. voilà la macro.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$B$2" Then Exit Sub
If Target = "" Or [A6] = "" Then MsgBox "renseigner un libellé et une valeur!": Exit Sub
Set Trouve = Range("A6:A1000").Find(Target.Offset(0, -1), LookIn:=xlValues, lookat:=xlWhole)
If Not Trouve Is Nothing Then
Trouve.Offset(0, 1).Value = Trouve.Offset(0, 1).Value + Target
End If
End Sub
je vous joins aussi le fichier.
j'ai obtenu sur le forum une macro permettant de remplir un tableau a partir d'une liste de choix. j'ai malheureusement baucoup de peines a l'utilliser je voudrai s'il vous plait, une fonction excel capable de remplacer cette macro tout en effectuant les memes fonctions. voilà la macro.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$B$2" Then Exit Sub
If Target = "" Or [A6] = "" Then MsgBox "renseigner un libellé et une valeur!": Exit Sub
Set Trouve = Range("A6:A1000").Find(Target.Offset(0, -1), LookIn:=xlValues, lookat:=xlWhole)
If Not Trouve Is Nothing Then
Trouve.Offset(0, 1).Value = Trouve.Offset(0, 1).Value + Target
End If
End Sub
je vous joins aussi le fichier.