Répétition de Or Target.Column

porcinet82

XLDnaute Barbatruc

• 2 Janvier 2008

• #2

Re : Répétition de Or Target.Column

Salut,

Comme ceci :

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns("C:J")) Is Nothing Then
Target.Value = "X"
Cancel = True
End If
End Sub

@+

 

Vote positif 0 Vote négatif

F

Format

XLDnaute Nouveau

• 2 Janvier 2008

• #3

Re : Répétition de Or Target.Column

Merci bcp.

 

Vote positif 0 Vote négatif

D

doudo

XLDnaute Nouveau

• 13 Mars 2012

• #4

Re : Répétition de Or Target.Column

Bonjour à tous!

Imaginons que nous voulons seulement les colonnes 3 et 6, est-il possible de s'en sortir avec du code similaire?

Merci!!

Doudo

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Mars 2012

• #5

Re : Répétition de Or Target.Column

Bonjour,

modifie peut être ainsi :

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C:C,F:F")) Is Nothing Then
Target.Value = "X"
Cancel = True
End If
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

D

doudo

XLDnaute Nouveau

• 13 Mars 2012

• #6

Re : Répétition de Or Target.Column

Merci Pierrot tu réponds à ma question mais dans mon cas ça ne fonctionne pas, je t'invite à jeter un oeil ici pour mieux comprendre mon problème :

https://www.excel-downloads.com/threads/empecher-saisi-de-doublon.180527/

Merci d'avance,

Doudo

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Mars 2012

• #7

Re : Répétition de Or Target.Column

Re,

on pourrait également coder ainsi :

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 3 And Target.Column <> 6 Then Exit Sub
Target.Value = "X"
Cancel = True
End Sub

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Mars 2012

• #8

Re : Répétition de Or Target.Column

Re,

pas top de poser plusieurs fois la même question....

 

Vote positif 0 Vote négatif

D

doudo

XLDnaute Nouveau

• 13 Mars 2012

• #9

Re : Répétition de Or Target.Column

Merci Pierrot, le message d'erreur apparaît aussi lors de la suppression du doublon mais je vais essayer d'y remédier

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 2 And Target.Column <> 4 Then Exit Sub



If Application.CountIf(Sheets("saisie_base").Range("CC21:CC" & [CC21].End(xlDown).Row), Cells(Target.Row, 2) & Cells(Target.Row, 4)) > 1 Then
MsgBox "Attention : le numéro de 'sous plan' saisi est déjà existant pour ce budget!"
End If

End Sub


Bonne fin de journée

 

Vote positif 0 Vote négatif