Tutoriel macro excel erreur?

jan_clode

Nouveau membre
Bonjour
J'ai trouve un tutoriel tres bien fait sur les macros excel:
http://www.info-3000.com/vbvba/

Mais il semblerait qu'il y aie un probleme dans la section tableaux.
J'ai teste une macro de tableaux et il y a une erreur qui est generee.

Code:
Sub TableauV6()
  Dim Etagere() As Integer
  Dim NombreCase As Integer
  NombreCase = Val(InputBox("Combien d'éléments voulez-vous ?"))
  ReDim Etagere(NombreCase)
  For compteur = 1 To NombreCase
    Etagere(compteur) = InputBox("Entrez le nombre N°" & compteur & " : ")
  Next
  For compteur = 1 To NombreCase
    Selection.TypeText Etagere(compteur)
    Selection.TypeParagraph
  Next
End Sub

L'erreur apparait apres avoir saisi le nombre d'elements et les elements dans chaque case, par exemple:
2 elements, 100 dans le numero 1 et 200 dans le numero 2.

Paeil pour celle-ci:

Code:
Sub TableauV7()
  Dim Etagere() As Integer
  Dim NombreCase As Integer
  NombreCase = Val(InputBox("Combien d'éléments voulez-vous ?"))
  ReDim Etagere(NombreCase)
  For compteur = 1 To NombreCase
    Etagere(compteur) = InputBox("Entrez le nombre N°" & compteur & " : ")
  Next
  For compteur = 1 To NombreCase
    Selection.TypeText Etagere(compteur)
    Selection.TypeParagraph
  Next
  Dim LePlusGrand As Integer
  LePlusGrand = 0
  For compteur = 1 To NombreCase
    If Etagere(compteur) > LePlusGrand Then 
      LePlusGrand = Etagere(compteur)
    End If
  Next
  Selection.TypeText "Le plus grand est " & LePlusGrand
End Sub

Je crois que l'erreur vient de Selection.TypeText mais je comprends pas pourquoi.
Qqn peut m'aider?
 

zeb

Modérateur
Je confirme, c'est une bonne adresse ;)


[strike]Merci de respecter le règlement scrupuleusement, condition sine qua non pour obtenir une éventuelle solution. [:zeb:4][/strike]
Vous devez être connecté pour voir les images.
 

zeb

Modérateur
humm.... Ça ressemble à du VBA/Word !
Tu es bien sous Excel ?
Alors tout s'explique...
 

jan_clode

Nouveau membre
Je te confirme Polo, c'est bien du VBA/Word et j'etais bien sous Excel!

Merci beaucoup!
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 101
Membres
1 586 287
Dernier membre
lucilleguffey
Partager cette page
Haut