Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel argument "scrollarea"

argument "scrollarea"

5 réponses
Avatar
ctmv
rebonjour,
je préfère exposer mes petits problèmes dans des post différents, cela me
semble plus clair.
j'ai trouvé en glanant sur le net une petite ligne de commande qui me plait
bien :
option explicit
const z : "a1:e10"
sub saisieplage()
worksheets(1).scrollarea=z
end sub

ce qui m'intéresse dans cette ligne de commande c'est le fait d'interdire
toute saisie en dehors d'une plage de cellules spécifiées.
seulement j'aimerais que cette plage de cellules ne soient pas contigüe (du
genre "a1:d1,a3,a5:d5"), mais je n'y arrive pas !

est ce que quelqu'un a la solution ?

merci d'avance et bonne nuit !
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
Tu déverrouilles l'ensemble de la feuille (ctrl + A > Clic droit > format
de cellule > protection > décocher "Verrouillé"
Sélection de la plage à ne pas sélectionner > Verrouiller les cellules >
protéger la feuille

Ajouter ce code dans le module de ThisWorkbook

Private Sub Workbook_Open()
With Sheets("Feuil1")
.Protect
.EnableSelection = xlUnlockedCells
End With
End Sub

Exemple là (à enregistrer sur DD avant test)
http://cjoint.com/?cfioUkf4Br

AV
Avatar
ctmv
merci beaucoup AV c'est exactement ce que je recherche ! en plus la ligne de
commande est vraiment simple, ce qui simplifie sa compréhension.


Tu déverrouilles l'ensemble de la feuille (ctrl + A > Clic droit > format
de cellule > protection > décocher "Verrouillé"
Sélection de la plage à ne pas sélectionner > Verrouiller les cellules >
protéger la feuille

Ajouter ce code dans le module de ThisWorkbook

Private Sub Workbook_Open()
With Sheets("Feuil1")
.Protect
.EnableSelection = xlUnlockedCells
End With
End Sub

Exemple là (à enregistrer sur DD avant test)
http://cjoint.com/?cfioUkf4Br

AV






Avatar
claudy
Bonjour à vous deux...et à tous ....
Je profite de ce fil pour poser ma question:
Pour le même fichier mis sur un serveur,
Comment autoriser accès et modification des cellules "A1:B12000" si
l'user.name est "azerty"
Comment autoriser accès et modification des cellules "C1:D12000" si
l'user.name est "Querty"
Comment autoriser accès et modification des cellules "E1:F12000" si
l'user.name est "zaza"

Merci d'avance,
claudy


"AV" a écrit dans le message de news:

Tu déverrouilles l'ensemble de la feuille (ctrl + A > Clic droit >
format
de cellule > protection > décocher "Verrouillé"
Sélection de la plage à ne pas sélectionner > Verrouiller les
cellules >
protéger la feuille

Ajouter ce code dans le module de ThisWorkbook

Private Sub Workbook_Open()
With Sheets("Feuil1")
.Protect
.EnableSelection = xlUnlockedCells
End With
End Sub

Exemple là (à enregistrer sur DD avant test)
http://cjoint.com/?cfioUkf4Br

AV





Avatar
AV
Exemple : http://cjoint.com/?cfpGCaZjRr
Voir code dans le module de ThisWorkbook

AV
Avatar
claudy
Super et merci...
claudy

"AV" a écrit dans le message de news:

Exemple : http://cjoint.com/?cfpGCaZjRr
Voir code dans le module de ThisWorkbook

AV