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.
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:
Je crois que l'erreur vient de Selection.TypeText mais je comprends pas pourquoi.
Qqn peut m'aider?
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?