Le mystère de la ligne 33

Dull

XLDnaute Barbatruc

• 3 Juin 2010

• #2

Re : Le mystère de la ligne 33

Salut Fab291, le Forum

Peut-être comme cela

Code:

If ActiveCell.Row = 33 Then MsgBox "coucou"

Bonne Journée

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 3 Juin 2010

• #3

Re : Le mystère de la ligne 33

Bonjour Fab291
Salut Dull 😉 et merci beaucoup

Grace à toi le mystère de la ligne 33 est, je pense, résolu 😀😛

A quand le mystère de la ligne 34

 

Vote positif 0 Vote négatif

F

Fab291

Guest

• 3 Juin 2010

• #4

Re : Le mystère de la ligne 33

Bonjour Dull, BrunoM45,

Pas complétement résolue! 😛

J'aimerais savoir comment procéder si j'ai nommé la ligne 33 (insertion/nom/définir)

ligne 33 s'appelle chez moi stop_supr1.

Merci 🙂

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 3 Juin 2010

• #5

Re : Le mystère de la ligne 33

Re,

Ahhhh je savais bien .... que le mystère allait s'épaissir 😉😀

Dans ce cas il faut récupérer le numéro de la ligne nommée

Code:

LigStop = Sheets("Truc").Range("stop_supr1").Row
If ActiveCell.Row = LigStop Then MsgBox "ALERTE !"

A+

 

Vote positif 0 Vote négatif

F

Fab291

Guest

• 3 Juin 2010

• #6

Re : Le mystère de la ligne 33

Nickel !

Merci bien! 🙂

Le mystère est résolu ! 😉

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Juin 2010

• #7

Re : Le mystère de la ligne 33

Bonsoir


Une autre façon de résoudre le mystère

Code:

Sub a()
On Error Resume Next
MsgBox "Vous êtes sur la cellule : " & ActiveCell.Name.Name
End Sub

PS: salutations à BrunoM45 qui (ce n'est pas un mystère) m'a souvent ...

 

Vote positif 0 Vote négatif