XL 2016 MACRO REMPLACER PAR

[davidp]

Bonjour à tous ,

désolé de vous déranger , mais je cherche une macro afin de me faire gagner un temps important sur de nombreuses lignes , mon besoin est le suivant .

Sur la plage H7 jusqu'à la dernière ligne pleine de la colonne , si je trouve la valeur ou texte 293 , je voudrai que le mot "TEST " remplace le texte existant de la colonne G dans la cellule à gauche sur la même ligne.

Un grand merci d'avance pour votre aide

DAVID

 

[Robert]

Bonjour David, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim O As Worksheet
Dim PL As Range
Dim R As Range
Dim PA As String

Set O = Worksheets("Feuil1")
Set PL = O.Range("H7:H" & O.Cells(Application.Rows.Count, "H").End(xlUp).Row)
Set R = PL.Find(293, , xlValues, xlWhole)
If Not R Is Nothing Then
    PA = R.Address
    Do
        R.Offset(0, -1).Value = "TEST"
        Set R = PL.FindNext(R)
    Loop While Not R Is Nothing And R.Address <> PA
End If
End Sub

 

[merinos]

Tu peux aussi employer PowerQuery.

Cela ne remplace pas dans le tableau, mais en crée un correct.
Comme ce tableau peut-etre placé dans le data model, tu peux pivoter dessus.

Si dans ton query tu change une colonne de type, tu corriges certaines anomalies (comme "123" qui n'est pas 123...)


Le refresh general adapte tout d'un coup

Merinos

 

[Staple1600]

Bonsoir le fil, le forum

Une autre macro possible (sans boucle)

Sub Macro1()
Dim Lig&: Lig = Cells(Rows.Count, "H").End(3).Row
Range("I7:I" & Lig) = "=IF(RC[-1]=293,""$"",0)"
Columns(9).SpecialCells(-4123, 2).Offset(, -2).Value = "TEST": Columns(9) = Empty
End Sub

PS: Test OK sur le fichier exemple tel qu'il est présenté.

EDITION: Bonsoir Robert
(De retour sur les ondes XLDiennes ? )

 

[davidp]

Bonjour à tous les 3

Un grand merci pour votre aide

davidp