Définir un "Range" plusieur colonne

Bonjour,

Voici le code auquel je dois ajouter des colonnes mais je n'y arrive pas.

Ce code fonctionne pour protéger mes cellules de O8 à S3000

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("O8:S3000")) Is Nothing Then
If Target.Offset(0, 0) <> "" Then Range("D1").Select

End If

End Sub

Sauf que je voudrais bloquer de l'édition les colonnes O à Q, S et BD.

Comment faire?

Merci,

JL

Bonjour,

essaie ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("O8:Q3000,S8:S3000,BD8:BD3000")) Is Nothing Then
If Target.Offset(0, 0) <> "" Then Range("D1").Select

End If

End Sub

Merci,

J'avais essayé mais lorsque je clique sur : BD8:BD3000. J'ai un Type mismatch run-time error '13'.

*Ça me fait cette erreur seulement pour la colonne BD par contre et c'est la seule colone qui ne contient pas une formule mais une référence de type : ='Data Base'!X16

JL

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("O8") & Range("P") & Range("Q") & Range("R") & Range("S")  Is Nothing Then
If Target.Offset(0, 0) <> "" Then Range("D1").Select

End If

End Sub

Cdlt.

Merci,

Mais cette ligne devient rouge, il semble que le code est erroné :

If Not Application.Intersect(Target, Range("O8") & Range("P") & Range("Q") & Range("R") & Range("S")  Is Nothing Then

Je vais garder mon bon vieux code et je ne protégerais pas la colonne BD.

Merci,

JL

jacklambert a écrit :

Merci,

J'avais essayé mais lorsque je clique sur : BD8:BD3000. J'ai un Type mismatch run-time error '13'.

*Ça me fait cette erreur seulement pour la colonne BD par contre et c'est la seule colone qui ne contient pas une formule mais une référence de type : ='Data Base'!X16

JL

bonjour,

quelle est la ligne de code qui est en jaune lorsque tu reçois ce message et que tu te mets en debogage ?

Celle-ci :

If Target.Offset(0, 0) <> "" Then

Merci!

Aussi, j'ai la même erreur quand je sélectionne mes cellules bloqués ou que je veux ajouter une ligne.

Voir l'image ci-dessous.

Merci :S

Bonsoir,

peux-tu nous mettre un exemple de fichier qui génère cette erreur ?

j'ai essayé de le reproduire je n'y parviens pas.

Yes!

Voilà le fichier juste à cliquer sur la celulle BD15 ou faire CTRL+A et l'erreur apparait.

Merci H2SO4

JL

bonsoir,

essaie plutôt ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Application.Intersect(Target, Range("O8:Q3000","S8:S3000","BD8:BD3000") Is Nothing Then
If Not IsError(Target) Then
 If Target.Offset(0, 0) <> "" Then Range("D1").Select
End If
End If

End Sub

Bonjour à tous,

Ca ne serait pas plutôt :

If Not Application.Intersect(Target, union(Range("O8:Q3000"), Range("S8:S3000"), Range("BD8:BD3000")))

?

eric

Bonsoir,

Bien que ta cellule BD15 (ainsi que d'autres) contienne une formule, celle-ci renvoie une erreur, car la cellule à laquelle elle fait référence est égale à #N/A....

qu'est-ce que tu veux bloquer?

L'accès à n'importe quelle cellule de la colonne BD?

Dans ce cas, essaie ainsi :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("O8:Q3000,S8:S3000,BD8:BD3000")) Is Nothing Then
    If Target.HasFormula Then Range("D1").Select
End If
End Sub

Bonne soirée

Ça mérite un :"Gooooooooooooooooooooooooooooooooooooooooooooooooood job!!!!" @Cousinhub

Ok je vais mettre ça dans mon calepin de formules!

Cette ligne :

If Target.HasFormula Then Range("D1").Select

Merci beaucoup aussi à H2SO4, Éric (Eriiic), Mattsly

Bonne soirée à vous tous et je pense que vous êtes déjà rendu au 16 avril chez vous!

A+

JL