If et End If

[mumu]

Bonjour,

Je tatonne un peu sous VBA et là j'ai un probleme avec une commande 'If' qui marchait bien jusqu'à présent. La voici

Do While count <> 0
ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value = -32768 Then ActiveCell.EntireRow.Delete
countl = countl - 1
ActiveCell.Offset(-1, 0).Activate
End If
count = count - 1
Loop

Et maintenant j'ai un message d'erreur qui dit :
Erreur de compilation
End If sans bloc If

Est-ce ma boucle qui n'est pas bonne ou VBA qui craque

Merci pour les futures réponses

 

[Papy Novice]

Salut Mumu
Essaye de mettre End If avant :
ActiveCell.Offset(-1, 0).Activate
Courage
Jean

 

[mumu]

je l'ai déjà fait mais c'est pareil

 

[Papy Novice]

Désolé Mumu, mes connaissances sont égales aux tiennes, mais garde courage et bon après midi à toi.
Jean

 

[mumu]

merci quand même

 

[PascalXLD]

Bonjour

c'est normal car avec cette ligne
If ActiveCell.Value = -32768 Then ActiveCell.EntireRow.Delete

c'est comme si tu avais un end if à la fin car tu as tout ecris sur la même ligne

donc il faut

If ActiveCell.Value = -32768 Then
ActiveCell.EntireRow.Delete
countl = countl - 1
ActiveCell.Offset(-1, 0).Activate
End If

Bon courage

 

[Papy Novice]

Salut Pascal
Et merci à toi, effectivement j'avais vu cette ligne qui me paraissait bizarre mais sans plus, j'en prends note à titre perso.
Bon après midi
Jean

 

[mumu]

:woohoo: Yesssss !!

Merci ça marche !! Tu viens de sauver mon après-midi

@ +

 

[mumu]

:woohoo: Yesssss !!

Merci ça marche !! Tu viens de sauver mon après-midi

@ +

 

[_Thierry]

Bonjour à tous

En complément d'information sur le 'IfEndIf' ...

Option Explicit

Sub IfEndIf()
Dim Texte As String
Texte = 'Si J'avais su je ne serais pas venu'

If Left(Texte, 2) = 'Si' Then MsgBox 'Bingo'

&nbsp; &nbsp; If Len(Texte) = 35 Then
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox 'Glop Glop'
&nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox 'Pas Glop'
&nbsp; &nbsp; End If

If Mid(Texte, 4, 1) = 'J' Then MsgBox 'Good' Else MsgBox 'Pas Good'


End Sub

Les trois méthodes sont possibles. En fait tout dépend du nombre d'actions que tu dois déclencher, le multilignes en indentation étant plus lisible pour beaucoup d'actions.

Bon Aprèm
@+Thierry

 

[mutzik]

B'jour le fil

_Thierry,

Pour autant que je sache, la valeur de la variable texte doit être la suivante :

au lieu de : Texte = 'Si J'avais su je ne serais pas venu'

il faut écrire : Texte = 'Si j'avions su j'aurions pas venu'

lol

Bon week-end à tous et à lundi
Bertrand