Discussion :

[LaPanic]

Bonjour tlm

j'ai un probleme lors de l'execution du code cidessous,il ne reconnait pas les valeurs a rechercher et les valeurs a remplacer.

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
19
20
21
22
23
24
25
26
27
28
Sub Actualisation()

Windows("Ref_File.xls").Activate
    
    Rday = Worksheets("Ref").Cells(1, 1).Value
    RMonth = Worksheets("Ref").Cells(1, 2).Value
    RYear = Worksheets("Ref").Cells(1, 3).Value

    Rday2 = Worksheets("Ref").Cells(2, 1).Value
    RMonth2 = Worksheets("Ref").Cells(2, 2).Value
    RYear2 = Worksheets("Ref").Cells(2, 3).Value

mm = rday & " - " & RMonth & " - " & RYear
pp = rday2 & " - " & RMonth2 & " - " & RYear2

     Windows("AAA.xls").Activate
     Range("A3").Select
     Selection.End(xlDown).Select
    
     T = ActiveCell.Row
     Rows(T & ":" & T + 1).Select
     Selection.FillDown
     Rows(T + 1 & ":" & T + 1).Select

    Selection.Replace What:=pp, Replacement:=mm, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False    
End Sub

Merci de votre aide precieuse

[illight]

tu les a défini comment mm et pp au départ ?

[LaPanic]

Merci illight
je les ai declaré comme string car la cea devrait remplacer des valeurs comme: 19-06-07 par le 20-06-07 .

merci d'avence

[AlainTech]

Si tes valeurs à chercher sont sous la forme "dd-mm-yy", pourquoi introduis-tu des espaces quand tu construis tes chaînes?

Un DebugPrint de mm et pp t'aurait montré ton erreur.

[LaPanic]

Si tes valeurs à chercher sont sous la forme "dd-mm-yy", pourquoi introduis-tu des espaces quand tu construis tes chaînes?

J'ai beau essayer de supprimer les espaces mais en vin
excusez moi mais je crois que j'avais oublié de preciser que les valeurs que veux remplacé sont incues dans des formules comme par exemple:
=RECHERCHEV(B$2;'N:\REPORTS\[Activations.xls]18-06-07'!A:C;3;FAUX)

desolé encore une fois

Merci par avance