Recherche de valeur et remplacement dans la celulle gauche de la valeur trouvée

Looping38 Messages postés 91 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je souhaite rechercher dans l'ensemble de la feuille une valeur ("Frais Réels") et la reproduire dans la cellule à sa gauche...

Je souhaite également que cela se fasse à chaque changement de donnée dans la feuille.
Pour cela, j'ai commencé avec (dans ThisWorkBook) :
<code>
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)


Cells.Select
Selection.Find(What:="Frais Réels", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

End Sub
<Code>

Si quelqu'un pouvait m'aider.
Merci d'avance

Configuration: Windows / Chrome 83.0.4103.116
A voir également:

1 réponse

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
avant tout, tu peux faire ceci:
- utiliser les balises de code quand tu partages du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
- expliquer quelle aide tu cherches.
- décrire ce que fait et ne fait pas le code que tu as écrit
0