j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
entrer les données
j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
entrer les données
j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
entrer les données
Bonjour,
Dans les options de protection tu pouvais décocher la sélection des
cellules verrouillées.Elles auraient seules été accessibles.
Indépendamment pour ta demande on peut faire cela en vba
supposons l'emplacement global de ton tableau en A2:g100
et que dans outils options affichage valeurs zero est bien coché.
'''dans un module standard
''''''''''''''
sub Azero()
dim c as range
for each c in [a2:g100].cells
if not c.locked then c.value=0
next c
end sub
''''''''''''''
'lSteph
oi ram a écrit :
> j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
> fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
> entrer les données
Bonjour,
Dans les options de protection tu pouvais décocher la sélection des
cellules verrouillées.Elles auraient seules été accessibles.
Indépendamment pour ta demande on peut faire cela en vba
supposons l'emplacement global de ton tableau en A2:g100
et que dans outils options affichage valeurs zero est bien coché.
'''dans un module standard
''''''''''''''
sub Azero()
dim c as range
for each c in [a2:g100].cells
if not c.locked then c.value=0
next c
end sub
''''''''''''''
'lSteph
oi ram a écrit :
> j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
> fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
> entrer les données
Bonjour,
Dans les options de protection tu pouvais décocher la sélection des
cellules verrouillées.Elles auraient seules été accessibles.
Indépendamment pour ta demande on peut faire cela en vba
supposons l'emplacement global de ton tableau en A2:g100
et que dans outils options affichage valeurs zero est bien coché.
'''dans un module standard
''''''''''''''
sub Azero()
dim c as range
for each c in [a2:g100].cells
if not c.locked then c.value=0
next c
end sub
''''''''''''''
'lSteph
oi ram a écrit :
> j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
> fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
> entrer les données
Bonjour,
Dans les options de protection tu pouvais décocher la sélection des
cellules verrouillées.Elles auraient seules été accessibles.
Indépendamment pour ta demande on peut faire cela en vba
supposons l'emplacement global de ton tableau en A2:g100
et que dans outils options affichage valeurs zero est bien coché.
'''dans un module standard
''''''''''''''
sub Azero()
dim c as range
for each c in [a2:g100].cells
if not c.locked then c.value=0
next c
end sub
''''''''''''''
'lSteph
oi ram a écrit :
> j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
> fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
> entrer les données
Bonjour,
Dans les options de protection tu pouvais décocher la sélection des
cellules verrouillées.Elles auraient seules été accessibles.
Indépendamment pour ta demande on peut faire cela en vba
supposons l'emplacement global de ton tableau en A2:g100
et que dans outils options affichage valeurs zero est bien coché.
'''dans un module standard
''''''''''''''
sub Azero()
dim c as range
for each c in [a2:g100].cells
if not c.locked then c.value=0
next c
end sub
''''''''''''''
'lSteph
oi ram a écrit :
> j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
> fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
> entrer les données
Bonjour,
Dans les options de protection tu pouvais décocher la sélection des
cellules verrouillées.Elles auraient seules été accessibles.
Indépendamment pour ta demande on peut faire cela en vba
supposons l'emplacement global de ton tableau en A2:g100
et que dans outils options affichage valeurs zero est bien coché.
'''dans un module standard
''''''''''''''
sub Azero()
dim c as range
for each c in [a2:g100].cells
if not c.locked then c.value=0
next c
end sub
''''''''''''''
'lSteph
oi ram a écrit :
> j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
> fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
> entrer les données
entrer les données
Voici une façon de faire :
Met tout ce qui suit dans un module standard.
'Dans le haut d'un module standard, déclaration de la variable
'tableau qui va contenir l'ensemble des adresses des cellules
'dont tu veux conserver la possibilité d'éditer.
Dim Arr()
'Procédure pour initialer ton tableau. Tu appelles cette procédure
'à partir de l'événement "Private Sub Workbook_Open" situé
'dans le ThisWorkbook de ton classeur
'-------------------------------------------
Sub Initialer_Mon_Tableau()
Arr = Array("A1", "B5:B10", "G1:H32", "K25")
End Sub
'-------------------------------------------
'Au besoin, aide à définir les seules cellules accessibles dans
'ta feuille la toute première fois !
'-------------------------------------------
Sub Définir_Et_Accéder_Aux_Cellules()
With Feuil1
.Unprotect
.Cells.Locked = True
For Each elt In Arr
.Range(elt).Locked = False
Next
.Protect
End With
End Sub
'-------------------------------------------
'Quand tu le désires, remet le contenu de chacune
'des cellules accessibles à Zéro
'-------------------------------------------
Sub Remettre_A_Zéro()
With Feuil1
Application.EnableEvents = False
For Each elt In Arr
.Range(elt).Value = 0
Next
Application.EnableEvents = False
End With
End Sub
'-------------------------------------------
"oi ram" a écrit dans le message de g roupe de discussion
:
En fait je veux créer un bouton en bas de page intitulé
''réinitialisé''losque le calcul est terminé l'utilisateur pour r éinitialiser
les donnés donc les cellules non protégés se mette automatiquement à 0
"LSteph" a écrit :
> Bonjour,
> Dans les options de protection tu pouvais décocher la sélection des
> cellules verrouillées.Elles auraient seules été accessibles.
> Indépendamment pour ta demande on peut faire cela en vba
> supposons l'emplacement global de ton tableau en A2:g100
> et que dans outils options affichage valeurs zero est bien coché.
> '''dans un module standard
> ''''''''''''''
> sub Azero()
> dim c as range
> for each c in [a2:g100].cells
> if not c.locked then c.value=0
> next c
> end sub
> ''''''''''''''
> 'lSteph
> oi ram a écrit :
> > j'ai fait une feuille de calcul,certaines cellules sont verrouillée s, une
> > fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> > réinitialiser les cellules non protégé avec le chiffre 0 de fa çon à voir ou
> > entrer les données- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
entrer les données
Voici une façon de faire :
Met tout ce qui suit dans un module standard.
'Dans le haut d'un module standard, déclaration de la variable
'tableau qui va contenir l'ensemble des adresses des cellules
'dont tu veux conserver la possibilité d'éditer.
Dim Arr()
'Procédure pour initialer ton tableau. Tu appelles cette procédure
'à partir de l'événement "Private Sub Workbook_Open" situé
'dans le ThisWorkbook de ton classeur
'-------------------------------------------
Sub Initialer_Mon_Tableau()
Arr = Array("A1", "B5:B10", "G1:H32", "K25")
End Sub
'-------------------------------------------
'Au besoin, aide à définir les seules cellules accessibles dans
'ta feuille la toute première fois !
'-------------------------------------------
Sub Définir_Et_Accéder_Aux_Cellules()
With Feuil1
.Unprotect
.Cells.Locked = True
For Each elt In Arr
.Range(elt).Locked = False
Next
.Protect
End With
End Sub
'-------------------------------------------
'Quand tu le désires, remet le contenu de chacune
'des cellules accessibles à Zéro
'-------------------------------------------
Sub Remettre_A_Zéro()
With Feuil1
Application.EnableEvents = False
For Each elt In Arr
.Range(elt).Value = 0
Next
Application.EnableEvents = False
End With
End Sub
'-------------------------------------------
"oi ram" <oi...@discussions.microsoft.com> a écrit dans le message de g roupe de discussion
: 6061AE4D-AC4A-4ADD-912E-25053EE9C...@microsoft.com...
En fait je veux créer un bouton en bas de page intitulé
''réinitialisé''losque le calcul est terminé l'utilisateur pour r éinitialiser
les donnés donc les cellules non protégés se mette automatiquement à 0
"LSteph" a écrit :
> Bonjour,
> Dans les options de protection tu pouvais décocher la sélection des
> cellules verrouillées.Elles auraient seules été accessibles.
> Indépendamment pour ta demande on peut faire cela en vba
> supposons l'emplacement global de ton tableau en A2:g100
> et que dans outils options affichage valeurs zero est bien coché.
> '''dans un module standard
> ''''''''''''''
> sub Azero()
> dim c as range
> for each c in [a2:g100].cells
> if not c.locked then c.value=0
> next c
> end sub
> ''''''''''''''
> 'lSteph
> oi ram a écrit :
> > j'ai fait une feuille de calcul,certaines cellules sont verrouillée s, une
> > fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> > réinitialiser les cellules non protégé avec le chiffre 0 de fa çon à voir ou
> > entrer les données- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
entrer les données
Voici une façon de faire :
Met tout ce qui suit dans un module standard.
'Dans le haut d'un module standard, déclaration de la variable
'tableau qui va contenir l'ensemble des adresses des cellules
'dont tu veux conserver la possibilité d'éditer.
Dim Arr()
'Procédure pour initialer ton tableau. Tu appelles cette procédure
'à partir de l'événement "Private Sub Workbook_Open" situé
'dans le ThisWorkbook de ton classeur
'-------------------------------------------
Sub Initialer_Mon_Tableau()
Arr = Array("A1", "B5:B10", "G1:H32", "K25")
End Sub
'-------------------------------------------
'Au besoin, aide à définir les seules cellules accessibles dans
'ta feuille la toute première fois !
'-------------------------------------------
Sub Définir_Et_Accéder_Aux_Cellules()
With Feuil1
.Unprotect
.Cells.Locked = True
For Each elt In Arr
.Range(elt).Locked = False
Next
.Protect
End With
End Sub
'-------------------------------------------
'Quand tu le désires, remet le contenu de chacune
'des cellules accessibles à Zéro
'-------------------------------------------
Sub Remettre_A_Zéro()
With Feuil1
Application.EnableEvents = False
For Each elt In Arr
.Range(elt).Value = 0
Next
Application.EnableEvents = False
End With
End Sub
'-------------------------------------------
"oi ram" a écrit dans le message de g roupe de discussion
:
En fait je veux créer un bouton en bas de page intitulé
''réinitialisé''losque le calcul est terminé l'utilisateur pour r éinitialiser
les donnés donc les cellules non protégés se mette automatiquement à 0
"LSteph" a écrit :
> Bonjour,
> Dans les options de protection tu pouvais décocher la sélection des
> cellules verrouillées.Elles auraient seules été accessibles.
> Indépendamment pour ta demande on peut faire cela en vba
> supposons l'emplacement global de ton tableau en A2:g100
> et que dans outils options affichage valeurs zero est bien coché.
> '''dans un module standard
> ''''''''''''''
> sub Azero()
> dim c as range
> for each c in [a2:g100].cells
> if not c.locked then c.value=0
> next c
> end sub
> ''''''''''''''
> 'lSteph
> oi ram a écrit :
> > j'ai fait une feuille de calcul,certaines cellules sont verrouillée s, une
> > fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> > réinitialiser les cellules non protégé avec le chiffre 0 de fa çon à voir ou
> > entrer les données- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
entrer les données
Voici une façon de faire :
Met tout ce qui suit dans un module standard.
'Dans le haut d'un module standard, déclaration de la variable
'tableau qui va contenir l'ensemble des adresses des cellules
'dont tu veux conserver la possibilité d'éditer.
Dim Arr()
'Procédure pour initialer ton tableau. Tu appelles cette procédure
'à partir de l'événement "Private Sub Workbook_Open" situé
'dans le ThisWorkbook de ton classeur
'-------------------------------------------
Sub Initialer_Mon_Tableau()
Arr = Array("A1", "B5:B10", "G1:H32", "K25")
End Sub
'-------------------------------------------
'Au besoin, aide à définir les seules cellules accessibles dans
'ta feuille la toute première fois !
'-------------------------------------------
Sub Définir_Et_Accéder_Aux_Cellules()
With Feuil1
.Unprotect
.Cells.Locked = True
For Each elt In Arr
.Range(elt).Locked = False
Next
.Protect
End With
End Sub
'-------------------------------------------
'Quand tu le désires, remet le contenu de chacune
'des cellules accessibles à Zéro
'-------------------------------------------
Sub Remettre_A_Zéro()
With Feuil1
Application.EnableEvents = False
For Each elt In Arr
.Range(elt).Value = 0
Next
Application.EnableEvents = False
End With
End Sub
'-------------------------------------------
"oi ram" a écrit dans le message de groupe de
discussion
:
En fait je veux créer un bouton en bas de page intitulé
''réinitialisé''losque le calcul est terminé l'utilisateur pour réinitialiser
les donnés donc les cellules non protégés se mette automatiquement à 0
"LSteph" a écrit :
> Bonjour,
> Dans les options de protection tu pouvais décocher la sélection des
> cellules verrouillées.Elles auraient seules été accessibles.
> Indépendamment pour ta demande on peut faire cela en vba
> supposons l'emplacement global de ton tableau en A2:g100
> et que dans outils options affichage valeurs zero est bien coché.
> '''dans un module standard
> ''''''''''''''
> sub Azero()
> dim c as range
> for each c in [a2:g100].cells
> if not c.locked then c.value=0
> next c
> end sub
> ''''''''''''''
> 'lSteph
> oi ram a écrit :
> > j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
> > fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> > réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
> > entrer les données- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
entrer les données
Voici une façon de faire :
Met tout ce qui suit dans un module standard.
'Dans le haut d'un module standard, déclaration de la variable
'tableau qui va contenir l'ensemble des adresses des cellules
'dont tu veux conserver la possibilité d'éditer.
Dim Arr()
'Procédure pour initialer ton tableau. Tu appelles cette procédure
'à partir de l'événement "Private Sub Workbook_Open" situé
'dans le ThisWorkbook de ton classeur
'-------------------------------------------
Sub Initialer_Mon_Tableau()
Arr = Array("A1", "B5:B10", "G1:H32", "K25")
End Sub
'-------------------------------------------
'Au besoin, aide à définir les seules cellules accessibles dans
'ta feuille la toute première fois !
'-------------------------------------------
Sub Définir_Et_Accéder_Aux_Cellules()
With Feuil1
.Unprotect
.Cells.Locked = True
For Each elt In Arr
.Range(elt).Locked = False
Next
.Protect
End With
End Sub
'-------------------------------------------
'Quand tu le désires, remet le contenu de chacune
'des cellules accessibles à Zéro
'-------------------------------------------
Sub Remettre_A_Zéro()
With Feuil1
Application.EnableEvents = False
For Each elt In Arr
.Range(elt).Value = 0
Next
Application.EnableEvents = False
End With
End Sub
'-------------------------------------------
"oi ram" <oi...@discussions.microsoft.com> a écrit dans le message de groupe de
discussion
: 6061AE4D-AC4A-4ADD-912E-25053EE9C...@microsoft.com...
En fait je veux créer un bouton en bas de page intitulé
''réinitialisé''losque le calcul est terminé l'utilisateur pour réinitialiser
les donnés donc les cellules non protégés se mette automatiquement à 0
"LSteph" a écrit :
> Bonjour,
> Dans les options de protection tu pouvais décocher la sélection des
> cellules verrouillées.Elles auraient seules été accessibles.
> Indépendamment pour ta demande on peut faire cela en vba
> supposons l'emplacement global de ton tableau en A2:g100
> et que dans outils options affichage valeurs zero est bien coché.
> '''dans un module standard
> ''''''''''''''
> sub Azero()
> dim c as range
> for each c in [a2:g100].cells
> if not c.locked then c.value=0
> next c
> end sub
> ''''''''''''''
> 'lSteph
> oi ram a écrit :
> > j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
> > fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> > réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
> > entrer les données- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
entrer les données
Voici une façon de faire :
Met tout ce qui suit dans un module standard.
'Dans le haut d'un module standard, déclaration de la variable
'tableau qui va contenir l'ensemble des adresses des cellules
'dont tu veux conserver la possibilité d'éditer.
Dim Arr()
'Procédure pour initialer ton tableau. Tu appelles cette procédure
'à partir de l'événement "Private Sub Workbook_Open" situé
'dans le ThisWorkbook de ton classeur
'-------------------------------------------
Sub Initialer_Mon_Tableau()
Arr = Array("A1", "B5:B10", "G1:H32", "K25")
End Sub
'-------------------------------------------
'Au besoin, aide à définir les seules cellules accessibles dans
'ta feuille la toute première fois !
'-------------------------------------------
Sub Définir_Et_Accéder_Aux_Cellules()
With Feuil1
.Unprotect
.Cells.Locked = True
For Each elt In Arr
.Range(elt).Locked = False
Next
.Protect
End With
End Sub
'-------------------------------------------
'Quand tu le désires, remet le contenu de chacune
'des cellules accessibles à Zéro
'-------------------------------------------
Sub Remettre_A_Zéro()
With Feuil1
Application.EnableEvents = False
For Each elt In Arr
.Range(elt).Value = 0
Next
Application.EnableEvents = False
End With
End Sub
'-------------------------------------------
"oi ram" a écrit dans le message de groupe de
discussion
:
En fait je veux créer un bouton en bas de page intitulé
''réinitialisé''losque le calcul est terminé l'utilisateur pour réinitialiser
les donnés donc les cellules non protégés se mette automatiquement à 0
"LSteph" a écrit :
> Bonjour,
> Dans les options de protection tu pouvais décocher la sélection des
> cellules verrouillées.Elles auraient seules été accessibles.
> Indépendamment pour ta demande on peut faire cela en vba
> supposons l'emplacement global de ton tableau en A2:g100
> et que dans outils options affichage valeurs zero est bien coché.
> '''dans un module standard
> ''''''''''''''
> sub Azero()
> dim c as range
> for each c in [a2:g100].cells
> if not c.locked then c.value=0
> next c
> end sub
> ''''''''''''''
> 'lSteph
> oi ram a écrit :
> > j'ai fait une feuille de calcul,certaines cellules sont verrouillées, une
> > fois le résultat obtenu ! comment faire pour sélectionner tout le tableau et
> > réinitialiser les cellules non protégé avec le chiffre 0 de façon à voir ou
> > entrer les données- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -