Erreur de compilation

Signaler
-
Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
-
Bonjour,

bonjour je suis étudiant en master j'essaye de faire tourner une macro qui à mes yeux bien écrite mais le message d'erreur de compilation s'affiche par rapport à mon tableau :

Sub macro1()
Dim admissible As String
Dim nonadmissible As String
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim n As Long
Dim x As Long
Dim nbadmissible As Long
Dim nbnonadmissible As Long

x = Range("A1").Offset.End(xlDown).Row - 1

For i = 1 To x
If Range("A1").Offset(i, 6) = "Oui" Then
nbadmissible = nbadmissible + 1
End If
Next i

ReDim Preserve admissible(nbadmissible, 1 To 3)
For i = 1 To x
If Range("A1").Offset(i, 6) = "Oui" Then
j = j + 1
admissible(j, 1) = Range("A1").Offset(i)
admissible(j, 2) = Range("A1").Offset(i, 1)
admissible(j, 3) = Range("A1").Offset(i, 7)

End If


Next i

Sheet.Add
activatesheet.Name = "admissible"

For k = 1 To j
Range("A1").Offset(k - 1) = admissible(k, 1)
Range("A1").Offset(k - 1, 1) = admissible(k, 2)
Range("A1").Offset(k - 1, 2) = admissible(k, 2)

Next k

Sheets("candidat").Select

For l = 1 To x
If Range("A1").Offset(i, 6) = "Non" Then
nbnonadmissible = nbnonadmissible + 1
End If
Next l

ReDim Preserve nonadmissible(nbnonadmissible, 1 To 3)
For l = 1 To x
If Range("A1").Offset(i, 6) = "Non" Then
m = m + 1
admissible(m, 1) = Range("A1").Offset(i)
admissible(m, 2) = Range("A1").Offset(i, 1)
admissible(, 3) = Range("A1").Offset(i, 7)

End If


Next l

Sheet.Add
activatesheet.Name = "nonadmissible"

For n = 1 To m
Range("A1").Offset(n - 1) = admissible(n, 1)
Range("A1").Offset(n - 1, 1) = admissible(n, 2)
Range("A1").Offset(n - 1, 2) = admissible(n, 2)

Next n










End Sub

EDIT : Ajout du LANGAGE dans les balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Merci d'y penser dans tes prochains messages.

Configuration: Windows / Edge 87.0.664.66

2 réponses

Messages postés
13886
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
14 janvier 2021
781
bonjour,
le message d'erreur est-il secret?
merci de tenir compte de ceci: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Messages postés
12235
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
6 janvier 2021
2 553
Bonjour,

admissible et nonadmissible étant des variables "tableaux", il faut les déclarer comme telles :

Dim admissible() As String
Dim nonadmissible() As String


Je n'ai pas regardé le reste...