Re : Rechercher et Remplacer
Bonjour et meilleurs voeux à tout le forum,
j'ai pu essayer la macro proposéé gentiment par matthieu33 . Elle correspondant presque à ce que je souhaite . La modification n'intervient que dans les autres feuilles et non sur la feuille active. J'ai modifié la macro pour intergrer la notion de feuille active mais sans succès. De plus j'ai une autre macro sur le même fichier et qui se nomme de la même manière d'où une erreur de compilation.
Voici la 1ère macro
Dim RgCible As Range
Dim OldValue As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WksRapport As Worksheet
Dim Li As Long
Set WksRapport = Worksheets(1)
x = Target.Column
y = Target.Row
Z = Cells(y, x - 1)
If Not Intersect(RgCible, Target) Is Nothing Then
With WksRapport
Li = .Range("d65536").End(xlUp).Row + 1
.Cells(Li, 1) = Cells(y, x - 1).Value
.Cells(Li, 2) = OldValue
.Cells(Li, 3) = Target.Value
.Cells(Li, 4) = Now
.Cells(Li, 5) = Worksheets(2).Name
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set RgCible = Range("info")
If Not Intersect(RgCible, Target) Is Nothing Then OldValue = Target.Value
End Sub
Il y a une 20 de feuilles avec des noms differents.
Est-il possible de creer un userform pour la 2nd macro presente dans le fichier precedent permettant de rechecher une cellule et donc de modifier la cellule suivante sur l'ensemble des feuilles.
Merci pour votre aide