Problème dans l'exécution d 'une macro

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:

---

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

---

bonjour,
un peut de précision sur ton problème nous aiderais un peut je pense.
Pourquoi ne fonctionne t elle pas ?
ou l'erreur survient elle ?
as tu un message ou une information qui ne parvient pas ?
.
.
.

Code:

---

Dim app As string

---

Bonjour ,
apparemment le bug vient à ce niveau

Code:

---

nom = Cells(i, 7)

---

lorsque j'exécute le code
L'objectif de ma macro , c'est qu'à partir d'une liste de noms d'entreprises, je veux qu'il y ait le bon "identifiant".

J'ai fais une macro test avant (sur le principe de une note et de l'appréciation d'un élève.).Cela fonctionnait très bien. Mais pour ce cas, ça ne fonctionne plus.

Je vais faire la modification qui m'a été suggérée et vous ferais un retour .
Merci


Concernant la ligne de code

Code:

---

nom = Cells(i, 7)

---

: Le message d'erreur que j'ai , est : "Erreur définie par l'application ou par l'objet"

malgré la modification concernant la déclaration de variable, cela mets toujours le même message d'erreur :s

Code:

---

1 2 3 4

Dim i As Integer 'i=0 les ligne commence à 1 nom = Cells(i, 7) app = Cells(i, 8)

---

je suis désolée je ne comprends pas.
pour moi je ne vois pas d'erreur .. :s


J'ai fais le code autrement, mais par contre il ne fonctionne que pur la première ligne de données. J'ai essayé des modifications en conséquence , mais ça bug :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub macro13() Dim nom As String Dim app As String       nom = Range("G2").Value   If nom = "Vitol SA" Then app = "50" If nom = "A2A Trading SRL" Then app = " 35" Range("H2").Value = app   End Sub

---

Code:

---

1 2 3 4

Dim i As Integer 'i=0 les ligne commence à 1 nom = Cells(0, 7) app = Cells(0, 8)

---

voia ce que tu faits!

d'accord.

je viens de faire une dernière modification :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub macro4() Dim nom As String Dim app As String Dim i As Integer For i = 2 To Range("G10000").End(xlUp).Row - 1 nom = Cells(i, 7) app = Cells(i, 8)   If nom = "Vitol SA" Then app = "50" If nom = "A2A Trading SRL" Then app = "35" Cells(i, 8).Value = app Next i End Sub

---

elle a l'air de fonctionner pour le moment...