selection de plage

[GHISLAIN]

bonjour a tous ,

j'utilise ce sode pour interdire a modification de cellule si elles sont remplies

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set Target = Worksheets("CHAMBRE FROIDE SUD").Range("a3:j65000")
Dim Cell As Range
If ActiveCell.Offset(0, 0) <> "" Then
MsgBox "LA CELLULE EST DEJA RENSEIGNEE, VOUS NE POUVEZ PAS LA MODIFIER. "
Range("A1").Select
Exit Sub
Else
End If

end sub


je souhaiterai la meme chose sans devoir nomer la feuille

j ai testé ça mais sans grand resultat


Set Target = sheets.Range("a3:j65000")

merci a tous de votre aide

amicalement

ghislain

 

[tototiti2008]

Re : selection de plage

Bonjour Ghislain,

Target est une plage de cellule renvoyée par la procédure évènementielle Worksheet_SelectionChange, qui te permet de savoir sur quelle cellule tu viens de te déplacer, ce n'est pas une variable à affecter avec Set..
Pourquoi ActiveCell.Offset(0,0), et pas Activecell tout seul ?
C'est pas un peu lourd d'afficher une Msgbox à chaque fois qu'on clique sur une cellule remplie ?

 

[Pierrot93]

Re : selection de plage

Bonjour,

essaye ceci, si j'ai bien compris, pas sur...

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target <> "" Then
    MsgBox "LA CELLULE EST DEJA RENSEIGNEE, VOUS NE POUVEZ PAS LA MODIFIER. "
    Range("A1").Select
End If
End Sub

A noter "target" est déjà une variable de l'événement "SelectionChange" et représente la cellule sélectionnée..; ce code est à utiliser dans un module de feuille et s'appliquera à la feuille concernée, nul besoin de la nommer...

bonne journée
@+

 

[GHISLAIN]

Re : selection de plage

bonjour tototiti2008,

je vais tenter de modifier avec tes remarques le seul souci etant de selectionner une plage de cellule .

pour le mess, c est un dossier partagé ou plusieurs personnes y auront acces en réseau , dons je souhaite informer toute personne voulant modifier une cellule remplies que ça n est pas possible

merci de ton aide

 

[GHISLAIN]

Re : selection de plage

bonjour pierrot93,

je viens de tester le code , j ai une erreur d incompatibilité 13,
j ai les cellules b1 a b11 qui sont fusionnées , l 'eereur viendrai de la ??

merci de ton aide

 

[tototiti2008]

Re : selection de plage

Bonjour Pierrot,
Re,

ou bien, pour permettre de sélectionner plusieurs cellules

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cellule As Range, BoolRemp As Boolean
    If Not Application.Intersect(Target, Range("a3:j65000")) Is Nothing Then
        For Each Cellule In Application.Intersect(Target, Range("a3:j65000"))
            BoolRemp = False
            If Cellule <> "" Then
                BoolRemp = True
                Exit For
            End If
        Next Cellule
        If BoolRemp Then
            MsgBox "LA CELLULE EST DEJA RENSEIGNEE, VOUS NE POUVEZ PAS LA MODIFIER. "
            Range("A1").Select
        End If
    End If
End Sub

 

[Pierrot93]

Re : selection de plage

Re,

oui vba et les cellules fusionnées.. pas top à gérer... essaye ceci :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Target
    If c <> "" Then
        MsgBox "LA CELLULE EST DEJA RENSEIGNEE, VOUS NE POUVEZ PAS LA MODIFIER. "
        Range("A1").Select
    End If
Next c
End Sub

Edition : bonjour Toto