Bonjour à tous,

J'ai cherché dans plusieurs discutions et je n'est pas trouvé de solution valide pour mon problème.

Je cherche à remplacer la valeur d'une case par une autre valeur (le format est en text)

J'ai fait ce bout de programme sans aucun résultat, pourtant il me parait correct.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Remplace()
Dim a As Integer 'On définit "a" comme un entier (au maximum égal à 32767)
DerniereligneF7 = Feuil7.Range("A65536").End(xlUp).Row         'On définit la dernière ligne de la feuille 4
Dim Matri As String, Nom As String
 
For a = 2 To DerniereligneF7
 
    Matri = Worksheets("Gestionnaires").Cells(a, 6).Value
    Nom = Worksheets("Gestionnaires").Cells(a, 5).Value
    Sheets("Synthese").Columns("AC:IV").Replace What:=Matri, Replacement:=Nom
 
Next a
 
End Sub