Discussion :

[DIDIDIDA]

bonjour à toute l'équipe, je voulais verouiller les cellules de ma feuille pour qu'on puisse pas modifier ça structure, mais comme meme qu'on puisse selectionnées les résultats obtenus, alors moi avec ce code le verouillage ça marche bien mais le probleme quand j'ai essaye de selectionner les colonnes de la feuille pour les copier ailleur, il m'affiche ce message d'erreur: '1004' erreur definie par l'application ou par l'objet, et apres il se point sur ce code????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("A:G")) Is Nothing Then Target.Offset(0, 1).Activate
If Not Application.Intersect(Target, Rows("103:104")) Is Nothing Then Target.Offset(1, 0).Activate
End Sub

merci par avance

[DIDIDIDA]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("A:J")) Is Nothing Then Target.Offset(0, 1).Activate
End Sub

pour cette feuille j'ai eliminer la deuxième ligne et ça marche , apparment on peut pas faire deux à la fois! mais bon il me reste cette feuille je verouille que la 1ere ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Then Target.Offset(1, 0).Activate
End Sub

mais ça marche pas quand j'essaye de selectionner!!! et il se pointe vers

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.Offset(1, 0).Activate

!!franchement je ne sais meme pas à quoi correspond le 0 et le 1; merci

j'ai constaté quand je fais la selection par ligne il me genere pas de message d'erreur, est ce qu'il y a une explication à ça?? merci

[tomy7]

si tu veux pas d ennuie utilise la protection d excel , tu peux faire plein de chose avec :


par exemple ici je protege la feuille pour les utilisateurs mais pas pour vba donc vba peut faire des changements sur la feuille mais pas toi .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, userinterfaceonly:=True

pour la deproteger

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Unprotect

si tu veux voir tout les fionctionnalite : tape protect method dans l aide VBA.

@ +

[DIDIDIDA]

salut tom, mais moi je veus par exemple ddans un cas particuulier verouiller que la 1ere ligne!!

[tomy7]

la protection feuille ne protege que les cellules verrouille donc pour verouiller la ligne 1 par exemple tu selectionne toute la ligne et dans protection du coche verouille et pour les lignes que tu ne veux pas verrouille tu fais l inverse et sa fonctionne tres bien

[DIDIDIDA]

si j'ai bien compris cette manipulation je dois la faire sous excel à traver le menu: menu protection....cette protection ne me premet pas de proteger qu'un ligne?? et je pense avec ça il y aura un pbm avec vba par la suite!