Discussion :

[Anon1]

Bonjour, j'ai ecris un petit truc pour faire un calcul un peu lourd a la main, et j'ai oublié d'enregistrer la macro , du coup je le réécris mais ce coup là j'ai une erreur "Else sans If" et je n'arrive pas a comprendre pourquoi , ça doit être évident pourtant mais...?

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
Sub dure()
Dim i As Integer
 
For i = 2 To 641
 
If Cells(i, 9) <> "" Then Cells(i, 11) = Cells(i, 12)
ElseIf Cells(i, 8) <> "" Then Cells(i, 11) = Cells(i, 13)
ElseIf Cells(i, 7) <> "" Then Cells(i, 11) = Cells(i, 14)
ElseIf Cells(i, 6) <> "" Then Cells(i, 11) = Cells(i, 15)
ElseIf Cells(i, 5) <> "" Then Cells(i, 11) = Cells(i, 16)
ElseIf Cells(i, 4) <> "" Then Cells(i, 11) = Cells(i, 17)
ElseIf Cells(i, 3) <> "" Then Cells(i, 11) = Cells(i, 18)
Else: Cells(i, 11) = "SANS FU"
 
End If
 
Next i
 
End Sub

[Kentarosan]

Bien le bonjour !

En effet c'est tout bête, il suffit que tu mettes ce qu'il y a après le premier Then à la ligne pour que VBA considère que ton if...elseif...else est sur plusieurs lignes.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub dure()
Dim i As Integer
 
For i = 2 To 641
 
 
If Cells(i, 9) <> "" Then
Cells(i, 11) = Cells(i, 12)
ElseIf Cells(i, 8) <> "" Then Cells(i, 11) = Cells(i, 13)
ElseIf Cells(i, 7) <> "" Then Cells(i, 11) = Cells(i, 14)

En espérant avoir aidé !

PS: Pense à la balise Code la prochaine fois, c'est plus propre

[Anon1]

J'adore VBA , j'ai dû mettre la chose a la ligne sans le faire exprès la première fois

Merci beacoup

[Kentarosan]

Oui, un vrai plaisir quand on n'a pas l'habitude

Pas de soucis. Pense à mettre le post en

[Nicolas JACQUIN]

Bonjour,
Juste une petite précision qu'il aurait été utile de dire c'est comme a été marqué la condition comme là

Code :

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

If Cells(i, 9) <> "" Then Cells(i, 11) = Cells(i, 12)

Vba a conclus que la condition était fini, vu qu'on peu tenir une condition sur une seule ligne, d'où

erreur "Else sans If"

A bientôt