Discussion :

[Majaaaax]

Bonjour à tous,

Je continue dans mon fichier excel avec toujours un peu plus de connaissance grâce aux contributeurs de ce forum. Cette fois-ci je bloque sur les cellules vides.


Le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub test()
Dim i As String
Dim a As String
Dim Existe As Boolean
Dim rs As String
Dim snturbine As String
Dim parc As String
Dim year As Long
Dim objLink As Hyperlink
 
'initialisation de i
i = 3
 
 
'Début de la boucle de vérification
While i < 10
 
snturbine = Range("E" & i)
parc = Range("C" & i)
year = Range("G" & i)
rs = "RSTO155_" & snturbine & "_" & Range("G" & i)
 
'vérification de l'existance de fichier
Existe = Fichier_Existe("monchemin" & parc & "\" & "Return Sheet\" & snturbine & "\" & year & "\" & rs & ".xlsx")
 
'Si le fichier ne se trouve pas sur le réseau
If Not Existe Then Range("L" & i).Font.ColorIndex = 3
 
 
'Si le fichier existe sur le réseau création du lien pour la machine concerné
If Existe Then Range("L" & i).Font.ColorIndex = 10
 
'incrémentation de i
i = i + 1
 
'Retour à la boucle tant que i n'a pas remplie la condition
Wend
 
End Sub

Problématique

Dans l'ensemble le code fonctionne parfaitement. Seulement dans le cas ou la cellule de la variable year est vide, on m'affichera forcément une erreur puisque year sera = a rien. Je souhaiterais pouvoir ignorer les cas ou year (Colonne G)sera vide et continuer la boucle sans pour autant ignorer le cas ou snturbine (Colonne E) sera vide.


Auriez vous une direction a suivre ?

Merci

[joe.levrai]

Bonjour,

je te propose, juste après la ligne de début de ton While, d'introduire un bloc If/End If qui vérifiera si la cellule en G n'est pas vide

Code :

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

1
2
3
4
5
While blabla
    If Not IsEmpty(Range("G" & i).Value) Then
        ' Le traitement de ta procédure
    End If
Wend

[Majaaaax]

Merci.

J'était partie sur quelque chose similaire.

Code :

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

If Range("G" & i).Value <> "" Then

Mais du coup je ne vois pas comment je peux continuer à faire incrémenter i et continuer la boucle.

[Kentarosan]

Bien le bonjour !

La solution proposée par Joe est bonne, tu mets tout ton code dans un bloc if ... end if à l'exception du i = i + 1. Et comme ça, ta boucle s'incrémente toujours, mais ton code n'est exécuté que si la condition est vraie.

Après, il ne me semble pas que dans le cas que tu nous présentes il soit très pertinent d'utiliser une boucle While. Une boucle For serait peut-être plus adaptée.

En espérant avoir aidé.

[Majaaaax]

Merci de votre aide en tout cas.

Bon voilà le résultat de la structure du code. Cependant j'ai toujours l'erreur 13 quand (G & i) renvoie sur une cellule vide. (Ligne 20 surligné en jaune)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub test()
Dim i As Long
Dim a As String
Dim Existe As Boolean
Dim rs As String
Dim snturbine As String
Dim parc As String
Dim year As Long
Dim objLink As Hyperlink
 
 
'Début de la boucle de vérification
For i = 3 To 13
 
 
If Not IsEmpty(Range("G" & i).Value) Then
 
snturbine = Range("E" & i)
parc = Range("C" & i)
year = Range("G" & i)
rs = "RSTO155_" & snturbine & "_" & Range("G" & i)
 
'vérification de l'existance de fichier
Existe = Fichier_Existe("monchemin" & parc & "\" & "Return Sheet\" & snturbine & "\" & year & "\" & rs & ".xlsx")
 
'Si le fichier ne se trouve pas sur le réseau
If Not Existe Then Range("L" & i).Font.ColorIndex = 3
 
 
'Si le fichier existe sur le réseau création du lien pour la machine concerné
If Existe Then Range("L" & i).Font.ColorIndex = 10
 
End If
 
Next i
 
 
End Sub

[Majaaaax]

C'est bon en passant la variable year en Variant, l'erreur a disparue et le code se poursuit correctement. Merci

[Kentarosan]

Si c'est une erreur 13 qui apparaît sur la ligne 20 du code que tu as posté, c'est parce qu'il doit pas aimer que tu passes un string dans un long.

Tu peux essayer de changer ta variable year pour que ce soit désormais un string, ou sinon tu castes la valeur de la cellule en long.

Si ça ne fonctionne toujours pas, essaye de déboguer ton code en posant un point d'arrêt dès le début et en regardant pas à pas ce qu'il se passe et ce que vaut chaque variable.