Bonjour,

Je souhaiterai exécuter ma macro (le but de cette macro est d'ajouter un code qui correspond au nom de l'entreprise)
Néanmoins elle ne fonctionne pas.

Voici le code .
Merci d'avance pour votre aide

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 macro4()
Dim nom As String
Dim app As Byte
Dim i As Integer
 
nom = Cells(i, 7)
app = Cells(i, 8)
For i = 2 To Range("G10000").End(xlDown).Row - 1
 If nom = "Vitol SA   " Then app = "50"
 If nom = "A2A Trading SRL" Then app = "   35"
Range("H2").Value = app
Next i
End Sub