Fonction Modulo sur no de ligne

[Temjeh]

Bonjour et merci d'avance

Dans une exécution doubleclic j'esxécute un code et j'aimerais aussi y faire un test aucas ou on a supprimé des lignes si possible.
i = 21,41,61,81,101 ....toujours la ligne divisable par 20 +1
Si l'Activecell.offset(-1,0) n'est pas une row de i then MsgBox "Erreur sur la ligne "
Merci pour un indice je reviens plus tard

Temjeh

 

[tototiti2008]

Re : Fonction Modulo sur no de ligne

Bonjour Temjeh,

peut-être

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row Mod 20 <> 2 Or Target.Row < 3 Then MsgBox "erreur sur la ligne"
End Sub

 

[Pierrot93]

Re : Fonction Modulo sur no de ligne

Bonjour Temjeh, Toto

peut être ainsi :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Target.Row Mod 20) <> 1 Then MsgBox "erreur de ligne"
Cancel = True
End Sub

pas trop compris ton histoire d'offset, il y a peut être lieu de remplacer "<> 1" par "<> 2" dans mon code...

bon après midi
@+

 

[Temjeh]

Re : Fonction Modulo sur no de ligne

Bonjour ...enfin de retour

tototiti merci mais peut importe la ligne cliqué il y a msgbox!

Merci aussi Pierrot c'est exactement cela que je voulais

A++

Temjeh

La final:
If (ActiveCell.Offset(-1, 0).Row Mod 20) <> 1 Then MsgBox "erreur de ligne": Exit Sub