Discussion :

[vladimi]

bonjour, j'aurais aimé une personne m'explique pourquoi j'ai une erreur de compilation.
merci d'avance.

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
18
Sub designation()

Range("rapport1!g13").Activate
Range("rapport1!g14:g200").Clear

For Each cell In Range("tableau-achat-location!o5:o200")
If cell.Value = Range("A2").Value Then
cell.Offset(0, 3).Copy
ActiveCell.Offset(1, 0).Activate
ActiveSheet.Paste

End If
Next cell

Application.CutCopyMode = False
Application.ScreenUpdating = False

End Sub

[rjamin]

Bonjour,

Sur quelle ligne cette erreur ?

Si le message est directement Variable non définie il faut faire la déclaration de toutes les variables utilisées dans la procédure et dans la vôtre je n'en vois aucune. Donc...

[alsimbad]

c'est parce que cell est un mot du vocabulaire vba qui designe un objet, une cellule
dans la prase for each cell in plage...cell represente une variable et tu ne peux donc pas l'appeler par un nom d'objet vba meme si c'est une cellule
pour exemple tu pourrais dire
for each pingouin in range , si tu l'a prevenu que pingoin est un range, ça marche

Code :

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

1
2
3
4
5
6
7
 
Sub polenord()
Dim pingouin As Range
For Each pingouin In Range("a1:a10")
If pingouin = "manchot" Then MsgBox "c'est pas possible"
Next pingouin
End Sub

[JPierreM]

Bonjour,

Je ne pense pas que cell soit un mot du vocabulaire VBA, c'est cells

Par contre
je remplacerai

Code :

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

For Each cell In Range("tableau-achat-location!o5:o200")

par

Code :

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

For Each cell In Worksheets("tableau-achat-location").Range("o5:o200")

Code :

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

Range("rapport1!g13").Activate

Il faut que la feuille "rapport1" soit sélectionnée sinon il y aura problème
De toute façon les select et activate ne servent en général à rien

Pourquoi mettre en fin de sub?
Application.ScreenUpdating = False

[alsimbad]

oups

j'ai honte

effectivement, je n'avais pas vu la plge dans le nom de la feuille et c'est bien cells
ça m'apprendra a vouloir donner des leçons