Discussion :

[Lubberla]

Bonjour j'ai un petit problème, ma macro ne rentre pas dans ma deuxième pour une raison que j'ignore.

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
Sub uniformisation()
Application.ScreenUpdating = False
Dim i As Long, b As Long, derniereLigne As Long
With ThisWorkbook
derniereLigne = .Worksheets("Astradec").Range("E" & Rows.Count).End(xlUp).Row
 
For i = 10 To derniereLigne
 For b = 10 To deriereLigne
        If .ActiveSheet.Range("E" & b).Value = .Worksheets("Astradec").Range("E" & i).Value Then
            .ActiveSheet.Range("D" & b).Value = .Worksheets("Astradec").Range("D" & i).Value
            Exit For
        End If
    Next
Next
End With
Application.ScreenUpdating = True
End Sub

[halaster08]

Bonjour,

Relis-toi bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For i = 10 To derniereLigne
 For b = 10 To deriereLigne

Il ne te manquerais pas une lettre dans ta variable?

Du coup il doit prendre la valeur par défaut 0, et une boucle de 10 a 0 ne fait rien.

edit: L'ajout de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

option explicit

en haut du module qui te force a déclaré toutes tes variables t'aurais permis de trouver le problème

[Lubberla]

Ah oui une erreur d'inattention merci, oui je vais rajouter ça pour plus avoir ce problème