Discussion :

[louja]

Bonsoir au forum
j'ai dans la colonne A des dates du 1er au 31 Janvier et j'ai dans la cellule H5 une date et en I5 une valeur correspondante à la date H5, je veux en B1 où j'ai mis la formule de RechercheV(), fixer la valeur qui correspond à cette date quand je passe à la cellule B2 et ainsi de suite...
Merci pour votre aide

[Jean-Philippe André]

salut,
en fait tu veux passer de la formule dans la cellule qui retourne une valeur à la valeur dans la même cellule ?

Ca serait du copier/coller par valeur ?

[louja]

Bonjour
la macro ci dessous résoud en partie ma réquête, sauf que je veux qu'à chaque fois que je change la valeur en I5 pour la même date en H5 la valeur change dans la plage correspondante en A8:A38.
merci de votre aide

Code de Feuil1

Code: Tout sélectionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("H5"), Target) Is Nothing Then
        Call DateValeur
    End If
End Sub

et Code dans un Module

Code: Tout sélectionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub DateValeur()
 
Dim cel As Object
For Each cel In ActiveSheet.Range("A8:A38")
If cel = [H5] Then
cel.Select
ActiveCell.Offset(0, 1) = Range("I5").Value
GoTo fin
End If
Next cel
fin:
End Sub

[Qwazerty]

Salut
Je ne suis pas sur de tout saisir, mais il me semble que tu souhaites que ta function "DateValeur" soit exécutée si tu modifies, soit la date en H5, soit la valeur associé en I5, si c'est le cas il te suffit de modifier la 1er partie de ton code avec le intersect pour qu'il exécute DateValeur dans ces 2 cas.
A++
Qwaz