excel vba appel de sous-routine avec des variables

J'ai défini la sous-routine suivante:

Sub EnterCellValueMonthNumber(cells As range, number As Integer)

range(cells).Select
ActiveCell.FormulaR1C1 = number

End Sub

Quand je l'appelle la sous-routine comme ceci:

EnterCellValueMonthNumber ("N23:Q23",1)

Je reçois le message d'erreur suivant:

Compile error Expected: =

Je n'ai aucune idée de pourquoi j'obtiens ce message. Personne ne sait ce que je suis absent?

InformationsquelleAutor user366121 | 2011-06-06

48

Que vous appelez le sub
```
EnterCellValueMonthNumber "N23:Q23", 1
```
Sans crochets. Ou
```
Call EnterCellValueMonthNumber("N23:Q23", 1)
```
Crochets, et Call avant.

Aussi, vos Sous, s'attend à un objet Range comme premier argument et vous êtes à la fourniture d'une chaîne, vous devez modifier la signature de la sub:
```
Sub EnterCellValueMonthNumber(cells As String, number As Integer)
```
Aussi, je ne suis pas certain de ce que vous essayez d'atteindre avec ce code car il ne le jeu en haut à gauche de la cellule de la plage à 1. Serait quelque chose comme
```
Range(cells).Value = number
' Or, if you're going to be passing in something more complex later...
Range(cells).FormulaR1C1 = number
```
être plus approprié?

Je voudrais aussi être très prudents à l'égard de l'aide Range("...") sans préciser la feuille à laquelle vous faites allusion. Cela permettra d'agir sur celui qui est la feuille active et peut donc causer des problèmes inattendus, presque toujours préférer SheetX.Range("..."). De même pour l'utilisation de .Select, il est inutile, et ne peut que causer des problèmes pour vous dans l'avenir.
- oui c'est vrai et le droit. thx.
- Bien que j'ai défini une autre sous-routine: Sous EnterCellValue(cellules de gamme) gamme(les cellules).Select ActiveCell.FormulaR1C1 = "M" End Sub et l'a appelé comme ceci: EnterCellValue ("N23:Q23") et n'avait pas de problèmes. C'est irritant.
InformationsquelleAutor Simon Cowen
2

En fait, vous avez 2 questions.

D'abord la réponse exacte à votre question. Vous devez vous dire:
```
Call EnterCellValueMonthNumber("N23:Q23",1)
```
Mais cela ne marchera pas si vous l'exécutez, puisque vous avez défini cells de type range... le définir comme type string à l'aide de ce lieu:
```
Sub EnterCellValueMonthNumber(cells As String, number As Integer)
    Range(cells).Select
    ActiveCell.FormulaR1C1 = number
End Sub
```
InformationsquelleAutor Hari Seldon

Essayez le code suivant:

Sub EnterCellValueMonthNumber(ByVal cells As String, number As Integer)

    Range(cells).Select

    ActiveCell.FormulaR1C1 = number

End Sub

InformationsquelleAutor Ramakrishnan N

Vous devez vous connecter pour publier un commentaire.