Discussion :

[bling]

bonjour à tous, je ne trouve pas de solution pour changer une valeur dans une feuille de presentation qui va impacter principalement la feuille recap.

ex : je voudrais changer en cellule c5 ou autre de la feuille de presentation la reference "an" (trouver par la recherchev) en "bm" et que celle-ci mette a jour la feuille recap.quelqu'un a t il une idée merci.

[PPz78]

Il faut être plus clair si non je te propose

Code :

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

Cells(5,3)= "quelquechose"

[bling]

bonjour, je pensais portant être assez clair tout est dans le fichier joint, donc je recommence :
dans l'onglet presentation: je recherche un code client, de par la fonction recherche celui ci me retrouve les references (ref1 et ref3) de l'onglet recap.
j'aimerais dans l'onglet presentation modifiee la ref3 par la cellule en c6 par exemple et que celle-ci s'impact dans l'onglet recap.Voila c'est tout et encore merci.

[PPz78]

Je ne comprends pas ce que tu souhaites faire.

La cellule C6 ne peut pas contenir en même temps le résultat d'une recherche et une chaîne de caractère qui doit aller modifier ta feuille "récap".

Ce que l'on peut envisager de faire avec une macro c'est :
- de réserver la colonne D pour les modifications,
- si tu entres une nouvelle valeur en D5 par exemple (New_val) celle-ci peut être recopiée par la macro dans le tableau recap en D12
- puis New_val devrait réapparaître dans C5 à cause de la fonction recherche
- et enfin la macro efface D5

[bling]

c'est exactement ce que je recherche c'est pour cela que j'ai propose la cellule c6 a titre d'exemple qui est vide mais la cellule d5 me va aussi.si tu peux me proposer cet macro.merci

[PPz78]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public T_Col, T_Val
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name <> "presentation" Then Exit Sub
 
    If T_Col = 4 And T_Row = 5 Then      ' les modifications proposées sont en colonne 4, ligne 5
    ' Recopie dans la feuille récap
        code_client = Cells(3, 3)
        Sheets("recap").Cells(code_client + 2, 4) = Cells(T_Row, T_Col)
    ' Remise à zéro de la valeur introduite
        Cells(T_Row, T_Col) = ""
    End If
 
    ' Mémorisation de la cellule sélectionnée
    T_Col = Target.Column
    T_Val = Target.Value
 
End Sub