If et End If

P

Papy Novice

Nous a quitté

Repose en paix

• 8 Avril 2005

• #2

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

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 8 Avril 2005

• #3

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

 

Vote positif 0 Vote négatif

P

Papy Novice

Nous a quitté

Repose en paix

• 8 Avril 2005

• #4

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

 

Vote positif 0 Vote négatif

M

mumu

XLDnaute Occasionnel

• 8 Avril 2005

• #5

merci quand même

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 8 Avril 2005

• #6

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

 

Vote positif 0 Vote négatif

P

Papy Novice

Nous a quitté

Repose en paix

• 8 Avril 2005

• #7

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

 

Vote positif 0 Vote négatif

M

mumu

Guest

• 8 Avril 2005

• #8

:woohoo: Yesssss !!

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

@ +

 

Vote positif 0 Vote négatif

M

mumu

Guest

• 8 Avril 2005

• #9

:woohoo: Yesssss !!

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

@ +

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 8 Avril 2005

• #10

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'

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

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


End Sub

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 8 Avril 2005

• #11

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

 

Vote positif 0 Vote négatif