Une partie de ma macro ne s'éxecute pas

Version imprimable

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:

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

13/04/2015, 13h23
eriiic

Bonjour,

Avec un fichier on pourrait éviter les devinettes...
Pas dû à une différence majuscule/minuscule ?
eric
13/04/2015, 13h42
piotr76
Bonjour

Avec le code suivant, je suis plutôt surpris que le code fonctionne sur les autres feuilles:wow:
Code:

1 2 3 4 5 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
Si "Unload Me" décharge le UserForm, alors, a quoi font référence les TextBox1 et TextBox2?
Ne faudrait-il pas mettre les TextBox1.Text et TextBox2.Text dans des variables avant le "Unload Me"?

@+

j'ai déplacé le Unload Me en bas , j'ai changé les lettres toutes en majuscule mais sans aucun résultat , :calim2: :? :calim2:

N.B: cette feuille de Responsable est appelée dans une autre feuille ; je ne sais pas si cela a un effet sur le code ou quoi exactement

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then 'B5 est le nom de la zone auditée
      For I = 4 To Worksheets("Responsable").Range("E" & Rows.Count).End(xlUp).Row
        If Range("B5").Value = Worksheets("Responsable").Cells(I, 5).Value Then
            Range("B6").Value = Worksheets("Responsable").Range("F" & I).Value 'récupère la valeur de la cellule
            Exit For
        End If
      Next
 
End If
End Sub

pour t'affranchir de problème de la case et bloquer le Change met :

Code:

1
2
3
4
5
6
7
    For S = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If UCase(Cells(S, 5)) = UCase(TextBox1.Value) Then
            Application.EnableEvents = False
            Cells(S, 5) = TextBox2.Value
            Application.EnableEvents = True
        End If
    Next S

eric

13/04/2015, 15h17
rihab92

Bonsoir eriic , j'ai essayé mais sans résultat :calim2: :calim2: c vraiment bizarre
13/04/2015, 21h36
eriiic

Avec un fichier on pourrait éviter les devinettes...
Bis repetita ;-)
eric