F Fab291 XLDnaute Junior 3 Juin 2010 #1 Bonjour, J'aimerais savoir comment dire en langage VBA: SI la cellule active se trouve (ou est positionné) sur la ligne 33 (par exemple) Alors If activecell ... Then Merci
Bonjour, J'aimerais savoir comment dire en langage VBA: SI la cellule active se trouve (ou est positionné) sur la ligne 33 (par exemple) Alors If activecell ... Then Merci
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
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
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
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
F Fab291 XLDnaute Junior 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
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
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
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+
F Fab291 XLDnaute Junior 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
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 ...