Discussion :

[Asimonu]

Bonjour

Je suis nouveau dans le domaine du VBA et alors que je codais une macro simple l'erreur 1004 (la méthode range de l'objet Global a échoué) est apparue. J'ai fait pas mal de recherches sur cette erreur mais il semble qu'il s'agisse d'un problème différent pour chaque cas et je n'ai pas trouvé comment résoudre le mien.
La macro est sensée tirer une valeur aléatoire dans la colonne A, et n'est pas achevée, mais sera sensée le faire aussi dans B C D E F. Ce qui compte c'est l'erreur que j'ai surligné, et que je n'arrive pas à comprendre.

Voilà le code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub Tirage_aleatoire()
'
' Tirage_aleatoire Macro
' Macro enregistrée le 05/12/2015 par Asimonu
'
Sheets("Feuil1").Select
Dim ligne As Long
Dim nbobjets As Long
Dim cellule As String
Dim colone As String
colone = "H" 'exemple
ligne = 2 'Après le nom de la ville
Dim ligneobjets As Long 'Ligne d'affichage de l'objet dans la liste tirée
ligneobjets = 8 'après le nom de la ville et les nb d'objets
Dim coloneobjets As String
Dim objetchoisi As String
While ligne <= 7
    cellule = "H" + Trim(Str(ligne)) 'quantité d'un objet
    nbobjets = Range(cellule).Value
    coloneobjets = "A"
    While nbobjets <> 0
        cellule = coloneobjets + Trim(Str((Range(coloneobjets + "1").Value) * Rnd() + 2)) 'objet choisi
        objetchoisi = cellule
'-------------------------------------------------------------------------------------------------------------------------------
        Range(colone + Str(ligneobjets)) = objetchoisi 'dans la cellule de l'obj en H on met ce dernier
'-------------------------------------------------------------------------------------------------------------------------------
        ligneobjets = ligneobjets + 1
        nbobjets = nbobjets - 1
        Wend
    ligne = ligne + 1
    ligne = ligne + 1
    Wend
End Sub

Merci

[SfJ5Rpw8]

Bonjour,

déjà une chose il ne faut JAMAIS utiliser un objet Range, Cells , Columns .. sans en préciser le parent ( classeur et feuille ..)

ensuite essai de débugger ton code pour voir si ton calcul de l'adresse que tu passe à range est bon.... à défaut de savoir utiliser le déboggage (voir le tutoriel Le débogage sous Visual Basic 6 dont les grands principes s'appliquent aussi au VBA d'Excel) ... rajoute un message box avant ta ligne ..:

Code :

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

msgbox colone + Str(ligneobjets)

[Asimonu]

Merci pour le conseil effectivement l'adresse de la cellule n'était pas correcte, il y avait un espace entre la colonne et la ligne (H 8 pour la première). Un trim a résolu le problème.

Mais pour ce qui est de la référence à une feuille de calcul, si on ne change pas de feuille et qu'on en a sélectionné une au début, quel est l'intérêt de préciser cette feuille à chaque range ?

[Invité]

Bonjour,
Les mauvaises comme les bonnes marnières s'acquière avec l'habitude ! Donc si tu code en respect d'une certaine déontologie tu évitera de multiplier les problèmes!

[HopPopPop]

Bonsoir à tous, l'erreur est là :

Code :

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

1
2
3
cellule = coloneobjets + Trim(Str((Range(coloneobjets + "1").Value) * Rnd() + 2)) 'objet choisi
objetchoisi = cellule
Range(colone + Str(ligneobjets)) = objetchoisi 'dans la cellule de l'obj en H on met ce dernier

car la valeur obtenue par la fonction, Rnd() est entre 0 et 1, donc multipliée par Str((Range(coloneobjets + "1").Value auquelle on ajoute 2 donnera toujours une valeur non entière.
ex: dès la 1ère boucle, si Range[A1]=1, cellule pourrait être égal à "A2.702359781"
Il faut que le Rnd aléatoire soit borné ou enlevé de la partie décimale