Discussion :

[Job3-14]

Bonjour,

J'ai un bouton sur une feuille X. Il contient le code ci-dessous. Lorsque je clic sur le bouton, j'ai un message d'erreur "ERREUR d'éxécution 1004". Pourquoi?

Code :

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

1
2
3
4
 
 
Sheets("test").Activate
Range(Cells(1, 1), Cells(2, 2)).Select

[drakkar_agfa]

Bonjour,

Voici ce qui dit l'aide pour Range

Argument de type Variant obligatoire. Nom de la plage. Il doit s'agir d'une référence de type A1 dans le langage de la macro. Il peut inclure l'opérateur de plage (le signe deux-points), l'opérateur d'intersection (un espace) ou l'opérateur de liaison (une virgule). Il peut aussi inclure des signes dollar, mais ils sont ignorés. Vous pouvez utiliser un nom défini en local dans n'importe quel endroit de la plage. Si vous utilisez un nom, il est considéré comme appartenant au langage de la macro.

Utilises "B1" au lieu de cells(1,2)

[Job3-14]

Merci!

Mais je veux avoir des références R1C1.

[drakkar_agfa]

Est-ce VRAIMENT nécessaire le select? Les select, selection, activate sont à utiliser qu'en dernier recours!

Il a généralement ("toujours...") une façon de ne pas les utiliser.

Que veux-tu faire avec le select? On peut surement t'aider!

Sinon, .... sinon il est possible d'utiliser

Code :

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

    Cells(1, 1).Select

mais... pas de select

[aalex_38]

Bonjour,

Je n'ai pas l'habitude de travailler avec les références, mais as-tu essayé :

Code :

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

Union(Cells(1, 1), Cells(2, 2))

EDIT :

Est-ce VRAIMENT nécessaire le select? Les select, selection, activate sont à utiliser qu'en dernier recours!

Je suis entièrement en accord avec ça.

[alsimbad]

Mis a part que les select et activates sont inutiles, ralentissent le code et font clignoter l'écran, et bien qu'il faille bien passer par leur utilisation pour se rendre compte qu'ils ne servent a rien, j'ai testé ton bout de code, et il fonctionne parfaitement, dans la mesure ou la feuille ("test") existe bien, mais même alors, ça serait une erreur 9. es tu sur que tu nous a tout dis ?

[Job3-14]

Je joins le fichier excel pour aider à la compréhension!

[alsimbad]

là, je dois dire que ça me dépasse. si j'ouvre ta piece jointe, je trouve exactement le probleme que tu décris. par contre si je l'enregiste sur mon bureau pour l'étudier, il n'y a plus de probleme, ça passe impecable [E07; mode compatible 97/03]. donc je passe la main. il me semble que j'avais eu un pb du même genre a mes début sur le forum et si je n'm'abuse c'est ouskel qui m'avais sauvé, une histoire de true or false a rajouter sur l'adresse, mais je sais vraiment plus. donc avec mes excuses a ouskel'nor pour avoir oublié sa leçon, mais si ça peut t'aider...

[drakkar_agfa]

Bonjour,

J'ai vérifié de mon coté, aucune différence si j'ouvre, j'ouvre puis enregistre sur mon poste, enregistre directement, j'ai toujours l'erreur décrite. Je suis E-03!!!

Si ça peut vous éguiller!

[aalex_38]

Bonjour,

Sous [E07] mode compatibilité 97/03 ça ne passe pas non plus.

Par contre si je fais :

Code :

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

MsgBox Range(Cells(1, 1), Cells(2, 2)).Address

alors là j'ai bien l'adresse.

Ni select ni activate ne passent ???


EDIT : Si je place le même code dans un nouveau classeur, ça fonctionne.

[Daranc]

Bonjour
le problème doit être ailleurs
j'ai démarré 2003 le code copier dans le bouton quandclic ça marche comme sur des roulettes

[aalex_38]

Re,

Si au lieu de placer le code dans la feuille mais dans un module, le code fonctionne :

Dans la feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()

Bouton_click

Dim Myrange As Range
Worksheets("sélection des cellules").Activate
Set Myrange = Range(Cells(1, 1), Cells(2, 2))
' Ici toujours le plantage
Myrange.Select

End Sub

Dans un module standard ici tout fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Bouton_click()
Dim Myrange As Range
Worksheets("sélection des cellules").Activate
Range(Cells(1, 1), Cells(2, 2)).Select
 
Set Myrange = Range(Cells(1, 1), Cells(2, 2))
Myrange.Select
Range(Cells(1, 1), Cells(2, 2)).Activate
Worksheets("sélection des cellules").Activate
 
Union(Cells(1, 1), Cells(2, 2)).Select
End Sub

[Job3-14]

J'ai enfin trouvé. Il s'agit d'indiquer le nom de la feuille avant les mots RANGE et CELLS.

Merci de votre aide!

Code :

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

1
2
3
4
5
6
 
 
Worksheets("sélection des cellules").Activate
 
Worksheets("sélection des cellules").Range(Worksheets("sélection des cellules").Cells(1, 1), _
Worksheets("sélection des cellules").Cells(2, 2)).Select