Bonjour,
| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" a écrit dans le message de groupe de
discussion :
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," & Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Bonjour,
| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" <albert@invalid.com> a écrit dans le message de groupe de
discussion :
euYuc9YvKHA.4604@TK2MSFTNGP02.phx.gbl...
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," & Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Bonjour,
| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" a écrit dans le message de groupe de
discussion :
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," & Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions (environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," & Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions (environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," & Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions (environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," & Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Bonjour,
| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" a écrit dans le message de groupe de
discussion :
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," & Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Bonjour,
| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" <albert@invalid.com> a écrit dans le message de groupe de
discussion :
euYuc9YvKHA.4604@TK2MSFTNGP02.phx.gbl...
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," & Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Bonjour,
| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" a écrit dans le message de groupe de
discussion :
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," & Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Si possible, après avoir enlevé toute information sensible,
publie ton fichier en utilisant l'un des sites cjoint.com ou cijoint.fr.
Reviens-nous avec l'adresse obtenue ici.
"Albert" a écrit dans le message de groupe de
discussion :
#
Bonjour
"michdenis" a écrit dans le message de
news:Bonjour,
Mon fichier occupe la plage A1:BC500
Il n'y a aucun commentaire sur la feuille ni aucun objet, si ce n'est les
deux boutons pour les macros en A1:A2 et B2
J'ai regardé les colonnes BD:XFD rien trouvé.
J'ai changé à RANGE("C:BE") et ça fonctionne
Le Range("C:BF") donne le message d'erreur
J'ai supprimé les colonnes BD:XFD pour supprimer tout contenu mais aucun
changement, je ne trouve rien sur la colonne BF.
Bonne nuit
Albert| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" a écrit dans le message de groupe de
discussion :
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," &
Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Si possible, après avoir enlevé toute information sensible,
publie ton fichier en utilisant l'un des sites cjoint.com ou cijoint.fr.
Reviens-nous avec l'adresse obtenue ici.
"Albert" <albert@invalid.com> a écrit dans le message de groupe de
discussion :
#DZLY3avKHA.3408@TK2MSFTNGP06.phx.gbl...
Bonjour
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:516F4D62-0BCC-4193-BF0D-35C44F92BDFD@microsoft.com...
Bonjour,
Mon fichier occupe la plage A1:BC500
Il n'y a aucun commentaire sur la feuille ni aucun objet, si ce n'est les
deux boutons pour les macros en A1:A2 et B2
J'ai regardé les colonnes BD:XFD rien trouvé.
J'ai changé à RANGE("C:BE") et ça fonctionne
Le Range("C:BF") donne le message d'erreur
J'ai supprimé les colonnes BD:XFD pour supprimer tout contenu mais aucun
changement, je ne trouve rien sur la colonne BF.
Bonne nuit
Albert
| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" <albert@invalid.com> a écrit dans le message de groupe de
discussion :
euYuc9YvKHA.4604@TK2MSFTNGP02.phx.gbl...
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," &
Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Si possible, après avoir enlevé toute information sensible,
publie ton fichier en utilisant l'un des sites cjoint.com ou cijoint.fr.
Reviens-nous avec l'adresse obtenue ici.
"Albert" a écrit dans le message de groupe de
discussion :
#
Bonjour
"michdenis" a écrit dans le message de
news:Bonjour,
Mon fichier occupe la plage A1:BC500
Il n'y a aucun commentaire sur la feuille ni aucun objet, si ce n'est les
deux boutons pour les macros en A1:A2 et B2
J'ai regardé les colonnes BD:XFD rien trouvé.
J'ai changé à RANGE("C:BE") et ça fonctionne
Le Range("C:BF") donne le message d'erreur
J'ai supprimé les colonnes BD:XFD pour supprimer tout contenu mais aucun
changement, je ne trouve rien sur la colonne BF.
Bonne nuit
Albert| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" a écrit dans le message de groupe de
discussion :
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," &
Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Si possible, après avoir enlevé toute information sensible,
publie ton fichier en utilisant l'un des sites cjoint.com ou cijoint.fr.
Reviens-nous avec l'adresse obtenue ici.
"Albert" a écrit dans le message de groupe de
discussion :
#
Bonjour
"michdenis" a écrit dans le message de
news:Bonjour,
Mon fichier occupe la plage A1:BC500
Il n'y a aucun commentaire sur la feuille ni aucun objet, si ce n'est les
deux boutons pour les macros en A1:A2 et B2
J'ai regardé les colonnes BD:XFD rien trouvé.
J'ai changé à RANGE("C:BE") et ça fonctionne
Le Range("C:BF") donne le message d'erreur
J'ai supprimé les colonnes BD:XFD pour supprimer tout contenu mais aucun
changement, je ne trouve rien sur la colonne BF.
Bonne nuit
Albert| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" a écrit dans le message de groupe de
discussion :
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," &
Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Si possible, après avoir enlevé toute information sensible,
publie ton fichier en utilisant l'un des sites cjoint.com ou cijoint.fr.
Reviens-nous avec l'adresse obtenue ici.
"Albert" <albert@invalid.com> a écrit dans le message de groupe de
discussion :
#DZLY3avKHA.3408@TK2MSFTNGP06.phx.gbl...
Bonjour
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:516F4D62-0BCC-4193-BF0D-35C44F92BDFD@microsoft.com...
Bonjour,
Mon fichier occupe la plage A1:BC500
Il n'y a aucun commentaire sur la feuille ni aucun objet, si ce n'est les
deux boutons pour les macros en A1:A2 et B2
J'ai regardé les colonnes BD:XFD rien trouvé.
J'ai changé à RANGE("C:BE") et ça fonctionne
Le Range("C:BF") donne le message d'erreur
J'ai supprimé les colonnes BD:XFD pour supprimer tout contenu mais aucun
changement, je ne trouve rien sur la colonne BF.
Bonne nuit
Albert
| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" <albert@invalid.com> a écrit dans le message de groupe de
discussion :
euYuc9YvKHA.4604@TK2MSFTNGP02.phx.gbl...
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," &
Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Si possible, après avoir enlevé toute information sensible,
publie ton fichier en utilisant l'un des sites cjoint.com ou cijoint.fr.
Reviens-nous avec l'adresse obtenue ici.
"Albert" a écrit dans le message de groupe de
discussion :
#
Bonjour
"michdenis" a écrit dans le message de
news:Bonjour,
Mon fichier occupe la plage A1:BC500
Il n'y a aucun commentaire sur la feuille ni aucun objet, si ce n'est les
deux boutons pour les macros en A1:A2 et B2
J'ai regardé les colonnes BD:XFD rien trouvé.
J'ai changé à RANGE("C:BE") et ça fonctionne
Le Range("C:BF") donne le message d'erreur
J'ai supprimé les colonnes BD:XFD pour supprimer tout contenu mais aucun
changement, je ne trouve rien sur la colonne BF.
Bonne nuit
Albert| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" a écrit dans le message de groupe de
discussion :
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," &
Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Bonjour,
Tu as un commentaire en B2 qui est caché par
le bouton du filtre automatique.
Exécute cette macro lorsque ta feuille est active :
Observe la dimension de ton commentaire.
Cette ligne de code " .Placement = xlMoveAndSize"
te permettra de procéder sans le problème connu.
Après l'exécution de la macro, si tu veux masquer
le commentaire, exécute à nouveau la procédure en
utilisant : .Visible = False
'---------------------------------
Sub test()
Dim C As Comment
For Each C In ActiveSheet.Comments
With C
.Visible = True
With .Shape.OLEFormat.Object
.AutoSize = True
.Placement = xlMoveAndSize
End With
End With
Next
End Sub
'---------------------------------
"Albert" a écrit dans le message de groupe de
discussion :
Bonjour
"michdenis" a écrit dans le message de
news:Si possible, après avoir enlevé toute information sensible,
publie ton fichier en utilisant l'un des sites cjoint.com ou cijoint.fr.
Reviens-nous avec l'adresse obtenue ici.
voir http://www.cijoint.fr/cjlink.php?file=cj201003/cijrzdLAQp.zip
J'ai réduit la plage du fichier à A1:AC18, j'ai la même erreur
Tous les noms sont fictifs
Cliquez sur R en A1, choisir la colonne 3 mars (L) ou une autre et
reclique
sur R, c'est à ce moment que l'erreur s'afiche.
J'ai enregistré le fichier en EXCEL 97-2003 XLS, et changé XFD à IV et
l'erreur n'apparait pas.
Merci
Albert"Albert" a écrit dans le message de groupe de
discussion :
#
Bonjour
"michdenis" a écrit dans le message de
news:Bonjour,
Mon fichier occupe la plage A1:BC500
Il n'y a aucun commentaire sur la feuille ni aucun objet, si ce n'est
les
deux boutons pour les macros en A1:A2 et B2
J'ai regardé les colonnes BD:XFD rien trouvé.
J'ai changé à RANGE("C:BE") et ça fonctionne
Le Range("C:BF") donne le message d'erreur
J'ai supprimé les colonnes BD:XFD pour supprimer tout contenu mais
aucun
changement, je ne trouve rien sur la colonne BF.
Bonne nuit
Albert| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" a écrit dans le message de groupe de
discussion :
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," &
Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Bonjour,
Tu as un commentaire en B2 qui est caché par
le bouton du filtre automatique.
Exécute cette macro lorsque ta feuille est active :
Observe la dimension de ton commentaire.
Cette ligne de code " .Placement = xlMoveAndSize"
te permettra de procéder sans le problème connu.
Après l'exécution de la macro, si tu veux masquer
le commentaire, exécute à nouveau la procédure en
utilisant : .Visible = False
'---------------------------------
Sub test()
Dim C As Comment
For Each C In ActiveSheet.Comments
With C
.Visible = True
With .Shape.OLEFormat.Object
.AutoSize = True
.Placement = xlMoveAndSize
End With
End With
Next
End Sub
'---------------------------------
"Albert" <albert@invalid.com> a écrit dans le message de groupe de
discussion :
uvQUEvfvKHA.3408@TK2MSFTNGP06.phx.gbl...
Bonjour
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:C91A50B1-0267-416F-8113-1432C39916AC@microsoft.com...
Si possible, après avoir enlevé toute information sensible,
publie ton fichier en utilisant l'un des sites cjoint.com ou cijoint.fr.
Reviens-nous avec l'adresse obtenue ici.
voir http://www.cijoint.fr/cjlink.php?file=cj201003/cijrzdLAQp.zip
J'ai réduit la plage du fichier à A1:AC18, j'ai la même erreur
Tous les noms sont fictifs
Cliquez sur R en A1, choisir la colonne 3 mars (L) ou une autre et
reclique
sur R, c'est à ce moment que l'erreur s'afiche.
J'ai enregistré le fichier en EXCEL 97-2003 XLS, et changé XFD à IV et
l'erreur n'apparait pas.
Merci
Albert
"Albert" <albert@invalid.com> a écrit dans le message de groupe de
discussion :
#DZLY3avKHA.3408@TK2MSFTNGP06.phx.gbl...
Bonjour
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:516F4D62-0BCC-4193-BF0D-35C44F92BDFD@microsoft.com...
Bonjour,
Mon fichier occupe la plage A1:BC500
Il n'y a aucun commentaire sur la feuille ni aucun objet, si ce n'est
les
deux boutons pour les macros en A1:A2 et B2
J'ai regardé les colonnes BD:XFD rien trouvé.
J'ai changé à RANGE("C:BE") et ça fonctionne
Le Range("C:BF") donne le message d'erreur
J'ai supprimé les colonnes BD:XFD pour supprimer tout contenu mais
aucun
changement, je ne trouve rien sur la colonne BF.
Bonne nuit
Albert
| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" <albert@invalid.com> a écrit dans le message de groupe de
discussion :
euYuc9YvKHA.4604@TK2MSFTNGP02.phx.gbl...
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," &
Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert
Bonjour,
Tu as un commentaire en B2 qui est caché par
le bouton du filtre automatique.
Exécute cette macro lorsque ta feuille est active :
Observe la dimension de ton commentaire.
Cette ligne de code " .Placement = xlMoveAndSize"
te permettra de procéder sans le problème connu.
Après l'exécution de la macro, si tu veux masquer
le commentaire, exécute à nouveau la procédure en
utilisant : .Visible = False
'---------------------------------
Sub test()
Dim C As Comment
For Each C In ActiveSheet.Comments
With C
.Visible = True
With .Shape.OLEFormat.Object
.AutoSize = True
.Placement = xlMoveAndSize
End With
End With
Next
End Sub
'---------------------------------
"Albert" a écrit dans le message de groupe de
discussion :
Bonjour
"michdenis" a écrit dans le message de
news:Si possible, après avoir enlevé toute information sensible,
publie ton fichier en utilisant l'un des sites cjoint.com ou cijoint.fr.
Reviens-nous avec l'adresse obtenue ici.
voir http://www.cijoint.fr/cjlink.php?file=cj201003/cijrzdLAQp.zip
J'ai réduit la plage du fichier à A1:AC18, j'ai la même erreur
Tous les noms sont fictifs
Cliquez sur R en A1, choisir la colonne 3 mars (L) ou une autre et
reclique
sur R, c'est à ce moment que l'erreur s'afiche.
J'ai enregistré le fichier en EXCEL 97-2003 XLS, et changé XFD à IV et
l'erreur n'apparait pas.
Merci
Albert"Albert" a écrit dans le message de groupe de
discussion :
#
Bonjour
"michdenis" a écrit dans le message de
news:Bonjour,
Mon fichier occupe la plage A1:BC500
Il n'y a aucun commentaire sur la feuille ni aucun objet, si ce n'est
les
deux boutons pour les macros en A1:A2 et B2
J'ai regardé les colonnes BD:XFD rien trouvé.
J'ai changé à RANGE("C:BE") et ça fonctionne
Le Range("C:BF") donne le message d'erreur
J'ai supprimé les colonnes BD:XFD pour supprimer tout contenu mais
aucun
changement, je ne trouve rien sur la colonne BF.
Bonne nuit
Albert| Range("C:XFD").EntireColumn.Hidden = True
*** Le code tel que présenté ne présente pas de faille !
Cependant, il s'agit d'ajouter par exemple un commentaire
dans une des cellules de la plage C:XFD pour obtenir ce
message d'erreur. Si tel est le cas, tu dois t'assurer que la
propriété "Déplacer et dimensionner avec les cellules"
est activée. Pour ce faire, à partir de la commande de menu
contextuel "modifier le commentaire", tu sélectionnes le
commentaire et un clic droit - Format de commentaire... -
onglet propriétés.
*** Est-ce que tu as des objets dans ta feuille ? Si oui, quelle est
la nature de ces objets que tu as insérés ? Le cas échéant, as-tu
vérifié la propriété mentionnée pour ces objets ?
"Albert" a écrit dans le message de groupe de
discussion :
Bonsoir / Bonjour
Un fichier 2007 XLSM pour enregistrer les présences de membres au
réunions
(environ 450 membres et 50 réunions par années).
Ce fichier fonctionne bien depuis plus d'un an.
Au 2e clic du bouton la macro *Sub QuelleReunion()* à la ligne suivant
le
Mot ELSE est affichée en jaune et le message suivant apparait
Erreur d'exécution '1004':
Impossible de définir la propriété Hidden de la classe Range
Quel peut en être la cause ?
Il semble que le bouton de la macro ne reconnait pas le 2e clic.
Si nous utilisons le fichier sauvegardé le mois dernier il fonctionne
très
bien sur ce même PC, mais il y a plusieurs centaines de corrections à
faire
pour le mettre à jour.
Sub QuelleReunion()
If yEtape = 0 Then
MsgBox ("Placez vous sur une cellule de la colonne à saisir," &
Chr(10)
& _
"Puis cliquez à nouveau sur le bouton 'Réunion'.")
Range("C:XFD").EntireColumn.Hidden = False
yEtape = 1
Else (La ligne suivante est en jaune)
Range("C:XFD").EntireColumn.Hidden = True
ActiveCell.EntireColumn.Hidden = False
yEtape = 0
End If
Range("B2").Select
End Sub
Vos conseils sont attendus
merci
--
Retransmis pour votre plaisir °¿° par
Albert