début dans la macro

[sandraalex2001]

Bonjour,

je débutte dans la macro et je cherche 2 formules.

- la premiere qui me permettrait si la celulle B1 (par exemple) est = X la ligne se masque automatiquement et ça qui s'appliquerait sur toute la colonne 1

Est ce faisable ?

- la deuxieme qui me permettrait d'empêcher de modifier certaines celulles de mon document et qui permettrait aux personnes de completer certains champs

Merci beaucoup de vos réponses

 

[sandraalex2001]

Re : début dans la macro

Re,

donc dans la boite de dialogue qui signale l'erreur, il y a un bouton débogage normalement.
si tu cliques dessus, peux-tu me dire sur quelle ligne de code il s'arrête ? (ligne en jaune)

Cellule.EntireRow.Hidden = True

 

[sandraalex2001]

Re : début dans la macro

Bonsoir et bienvenu(e) sur xld,

Cela veut-il dire que lorsque tu saisis "X" manuellement dans n'importe quelle cellule de la colonne B, cela masque la colonne ?

Il faut protéger ta feuille avec mot de passe, mais avant cela, click droit sur la (les) cellule(s) que tu souhaites ne pas protéger puis Format/Protection/Décoche verrouillée
A+
kjin

en fait si je coche la celulle B1 la ligne 1 disparaitrait

 

[tototiti2008]

Re : début dans la macro

Re,

je ne comprends pas, ça tourne parfaitement chez moi. Quelle est ta version d'Excel ?

 

[sandraalex2001]

Re : début dans la macro

Re,

je ne comprends pas, ça tourne parfaitement chez moi. Quelle est ta version d'Excel ?

j'ai excel 2000

 

[Le Pierre]

Re : début dans la macro

Bonsoir

Voici une nouvelle version V4.
Je ne comprend pas pourquoi tu as cette erreur 1004.

à plus

 

[sandraalex2001]

Re : début dans la macro

Bonsoir

Voici une nouvelle version V4.
Je ne comprend pas pourquoi tu as cette erreur 1004.

à plus

Nickel 😛

j'ai juste l'erreur 1004 au moment d'imprimer et quand je fais débloquer j'ai ce code en jaune

ActiveSheet.Protect UserInterfaceOnly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowDeletingRows:=True, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True

 

[kjin]

Re : début dans la macro

Bonjour
je passais par là
Pas suivi, mais sous xl2000

ActiveSheet.Protect UserInterfaceOnly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= False

Efface le reste
A+
kjin

 

[Le Pierre]

Re : début dans la macro

Bonjour

Le problème si tu effaces le reste, est que tu ne peux plus utiliser les filtres sur la feuille protégée.
En remplaçant la procédure "Deblocage" par ceci :

Sub Deblocage()
    ActiveSheet.EnableOutlining = True  'permet de garder la fonctionnalité PLANS sur feuille protégée
    ActiveSheet.Protect UserInterfaceOnly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= _
         False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
         AllowDeletingRows:=True, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowSorting:=True, _
         AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="toto"
End Sub

est-ce que tu a toujours l'erreur ?
Si oui, il faut effacer le "Call Deblocage" dans la procédure "Sub Imprimer()".

à plus

 

[tototiti2008]

Re : début dans la macro

Bonjour à tous,

une version qui devrait fonctionner en XL2000

 

[sandraalex2001]

Re : début dans la macro

Bonjour à tous,

une version qui devrait fonctionner en XL2000

oui maintenant version la fonctionne merci

 

[sandraalex2001]

Re : début dans la macro

Bonjour

Le problème si tu effaces le reste, est que tu ne peux plus utiliser les filtres sur la feuille protégée.
En remplaçant la procédure "Deblocage" par ceci :

Sub Deblocage()
    ActiveSheet.EnableOutlining = True  'permet de garder la fonctionnalité PLANS sur feuille protégée
    ActiveSheet.Protect UserInterfaceOnly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= _
         False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
         AllowDeletingRows:=True, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowSorting:=True, _
         AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="toto"
End Sub

est-ce que tu a toujours l'erreur ?
Si oui, il faut effacer le "Call Deblocage" dans la procédure "Sub Imprimer()".

à plus

Nickel en enlevant le Call Déblocage je n'ai plus d'erreur 🙂

Merci beaucoup

Maintenant j'attends les vrais compténces à évaluer pour l'appliquer au livret

Est ce que je pourrais te déranger si je n'y arrive pas ?

 

[Le Pierre]

Re : début dans la macro

Le Forum ainsi que moi même sommes la pour t'aider si tu as des problèmes.
à plus