Bonjour chers développeurs,

SVP j'ai un problème et je ne sais pas pourquoi la macro ne s'éxécute pqs complétement :

Dans un bouton d'un userform on demande d'entrer l'ancien nom d'une zone pour la remplacer avec le nouveau nom et je dois actualiser le nouveau nom dans plusieurs feuilles , toutes les feuilles enregistrent ce nouveau changement sauf la feuille Responsable et je ne sais pas pourquoi même si je suis partie avec la même logique .

La liste des noms dans la feuille responsable se trouve dans la colonne 5 "E"

Code vba : 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub CommandButton1_Click()
Unload Me
Sheets("Responsable").Activate
For S = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(S, 5) = TextBox1.Value Then Cells(S, 5) = TextBox2.Value
Next S
 
 
Sheets("AuditMensuel").Activate
For I = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(I, 1) = TextBox1.Value Then Cells(I, 1) = TextBox2.Value
Next I
 
Sheets("AuditMensuelilot").Activate
For K = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(K, 1) = TextBox1.Value Then Cells(K, 1) = TextBox2.Value
Next K
 
Sheets("AuditMensuelilot").Activate
For l = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(l, 15) = TextBox1.Value Then Cells(l, 15) = TextBox2.Value
Next l
Sheets("AuditMensuelilot").Activate
For m = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(m, 29) = TextBox1.Value Then Cells(m, 29) = TextBox2.Value
Next m
 
Sheets("AuditMensuelilot").Activate
For N = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(N, 43) = TextBox1.Value Then Cells(N, 43) = TextBox2.Value
Next N
 
Sheets("AuditMensuelilot").Activate
For P = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(P, 57) = TextBox1.Value Then Cells(P, 57) = TextBox2.Value
Next P
 
 
Sheets("MapResponsibility").Select
 
MsgBox ("Changer le nom de la zone que vous venez de modifier dans la Map Résultat ! ")
 
End Sub