Discussion :

[Kiera]

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

[pasdechances]

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 ?
.
.
.

[Invité]

Code :

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

Dim app As string

[Kiera]

Bonjour ,
apparemment le bug vient à ce niveau

Code :

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

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 :

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

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

[Invité]

Code :

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

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

[Kiera]

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 :

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

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