Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro est
désignée sous la forme d'un nom et non en "dur", il n'y a pas de
soucis avec
l'insertion de lignes ou colonnes pour la "retrouver" (si on fait
référence à
son nom)
AV
Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro est
désignée sous la forme d'un nom et non en "dur", il n'y a pas de
soucis avec
l'insertion de lignes ou colonnes pour la "retrouver" (si on fait
référence à
son nom)
AV
Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro est
désignée sous la forme d'un nom et non en "dur", il n'y a pas de
soucis avec
l'insertion de lignes ou colonnes pour la "retrouver" (si on fait
référence à
son nom)
AV
Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7 doit
absolument être complétée car un tableau croisé dynamique effectue un
Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit la date
dans la cellule M7 et à l'ouverture, lors de la mise à jour du tableau
croisé dynamique, la colonne groupant par année ne groupait plus.
Donc j'ai ajouté des codes interdisant de fermer le fichier tant que la
cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M, ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le classeur."
& vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" a écrit dans le message de
news:%23%Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro estdésignée sous la forme d'un nom et non en "dur", il n'y a pas de
soucis avecl'insertion de lignes ou colonnes pour la "retrouver" (si on fait
référence àson nom)
AV
Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7 doit
absolument être complétée car un tableau croisé dynamique effectue un
Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit la date
dans la cellule M7 et à l'ouverture, lors de la mise à jour du tableau
croisé dynamique, la colonne groupant par année ne groupait plus.
Donc j'ai ajouté des codes interdisant de fermer le fichier tant que la
cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M, ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le classeur."
& vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%23%23E5Rp6JEHA.620@TK2MSFTNGP10.phx.gbl...
Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro est
désignée sous la forme d'un nom et non en "dur", il n'y a pas de
soucis avec
l'insertion de lignes ou colonnes pour la "retrouver" (si on fait
référence à
son nom)
AV
Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7 doit
absolument être complétée car un tableau croisé dynamique effectue un
Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit la date
dans la cellule M7 et à l'ouverture, lors de la mise à jour du tableau
croisé dynamique, la colonne groupant par année ne groupait plus.
Donc j'ai ajouté des codes interdisant de fermer le fichier tant que la
cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M, ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le classeur."
& vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" a écrit dans le message de
news:%23%Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro estdésignée sous la forme d'un nom et non en "dur", il n'y a pas de
soucis avecl'insertion de lignes ou colonnes pour la "retrouver" (si on fait
référence àson nom)
AV
Et en nommant, comme je te l'ai suggéré, la cellule M7 ?
Tu pourras tester son contenu quelles que soient les manips
d'insertion de
lignes/colonnes
Ex : If Sheets("Data").Range("maCellule") = 0 Then...blabla
ou encore (pour récupérer sa ligne) :
MsgBox "Veuillez compléter la ligne " & Range("maCellule").Row & "
avant de
fermer le classeur."
AV
"Céline Brien" a écrit dans le message
news:
Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7 doit
absolument être complétée car un tableau croisé dynamique effectue
un
Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit la
date
dans la cellule M7 et à l'ouverture, lors de la mise à jour du
tableau
croisé dynamique, la colonne groupant par année ne groupait plus.
Donc j'ai ajouté des codes interdisant de fermer le fichier tant que
la
cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M, ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le
classeur."
& vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" a écrit dans le message de
news:%23%Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro estdésignée sous la forme d'un nom et non en "dur", il n'y a pas de
soucis avecl'insertion de lignes ou colonnes pour la "retrouver" (si on fait
référence àson nom)
AV
Et en nommant, comme je te l'ai suggéré, la cellule M7 ?
Tu pourras tester son contenu quelles que soient les manips
d'insertion de
lignes/colonnes
Ex : If Sheets("Data").Range("maCellule") = 0 Then...blabla
ou encore (pour récupérer sa ligne) :
MsgBox "Veuillez compléter la ligne " & Range("maCellule").Row & "
avant de
fermer le classeur."
AV
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message
news:
OzbLgK8JEHA.3016@tk2msftngp13.phx.gbl...
Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7 doit
absolument être complétée car un tableau croisé dynamique effectue
un
Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit la
date
dans la cellule M7 et à l'ouverture, lors de la mise à jour du
tableau
croisé dynamique, la colonne groupant par année ne groupait plus.
Donc j'ai ajouté des codes interdisant de fermer le fichier tant que
la
cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M, ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le
classeur."
& vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%23%23E5Rp6JEHA.620@TK2MSFTNGP10.phx.gbl...
Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro est
désignée sous la forme d'un nom et non en "dur", il n'y a pas de
soucis avec
l'insertion de lignes ou colonnes pour la "retrouver" (si on fait
référence à
son nom)
AV
Et en nommant, comme je te l'ai suggéré, la cellule M7 ?
Tu pourras tester son contenu quelles que soient les manips
d'insertion de
lignes/colonnes
Ex : If Sheets("Data").Range("maCellule") = 0 Then...blabla
ou encore (pour récupérer sa ligne) :
MsgBox "Veuillez compléter la ligne " & Range("maCellule").Row & "
avant de
fermer le classeur."
AV
"Céline Brien" a écrit dans le message
news:
Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7 doit
absolument être complétée car un tableau croisé dynamique effectue
un
Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit la
date
dans la cellule M7 et à l'ouverture, lors de la mise à jour du
tableau
croisé dynamique, la colonne groupant par année ne groupait plus.
Donc j'ai ajouté des codes interdisant de fermer le fichier tant que
la
cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M, ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le
classeur."
& vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" a écrit dans le message de
news:%23%Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro estdésignée sous la forme d'un nom et non en "dur", il n'y a pas de
soucis avecl'insertion de lignes ou colonnes pour la "retrouver" (si on fait
référence àson nom)
AV
Bonjour à tous,
Salut Alain,
Merci beaucoup pour ta réponse, mais je n'obtiens pas le résultat
souhaité.
Si la celllule M7 est nommée MaCellule, lors de l'insertion d'une
ligne en ligne 7, le champ nommé MaCellule ne réfère plus à $M$7 mais
à $M$8. C'est normal ?
Par contre si MaCellue réfère à la celllule M1, l'insertion de lignes
n'a pas d'influence et, lors de l'insertion d'une colonneà gauche de
la colonne M, $M$1 devient $N$1.
C'est pourquoi je pensais référer à $M$1 et 6 cellules vers le bas.
Est-ce possible ?
Merci de ton aide,
Céline
"AV" a écrit dans le message de
news:%Et en nommant, comme je te l'ai suggéré, la cellule M7 ?
Tu pourras tester son contenu quelles que soient les manips
d'insertion de lignes/colonnes
Ex : If Sheets("Data").Range("maCellule") = 0 Then...blabla
ou encore (pour récupérer sa ligne) :
MsgBox "Veuillez compléter la ligne " & Range("maCellule").Row & "
avant de fermer le classeur."
AV
"Céline Brien" a écrit dans le
message news:Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7 doit
absolument être complétée car un tableau croisé dynamique effectue
un Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit la
date dans la cellule M7 et à l'ouverture, lors de la mise à jour du
tableau croisé dynamique, la colonne groupant par année ne groupait
plus. Donc j'ai ajouté des codes interdisant de fermer le fichier
tant que la cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M, ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le
classeur." & vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" a écrit dans le message de
news:%23%Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro est désignée sous la forme d'un nom et non en "dur", il n'y
a pas de soucis avec l'insertion de lignes ou colonnes pour la
"retrouver" (si on fait référence à son nom)
AV
Bonjour à tous,
Salut Alain,
Merci beaucoup pour ta réponse, mais je n'obtiens pas le résultat
souhaité.
Si la celllule M7 est nommée MaCellule, lors de l'insertion d'une
ligne en ligne 7, le champ nommé MaCellule ne réfère plus à $M$7 mais
à $M$8. C'est normal ?
Par contre si MaCellue réfère à la celllule M1, l'insertion de lignes
n'a pas d'influence et, lors de l'insertion d'une colonneà gauche de
la colonne M, $M$1 devient $N$1.
C'est pourquoi je pensais référer à $M$1 et 6 cellules vers le bas.
Est-ce possible ?
Merci de ton aide,
Céline
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%23eThvUCKEHA.268@TK2MSFTNGP11.phx.gbl...
Et en nommant, comme je te l'ai suggéré, la cellule M7 ?
Tu pourras tester son contenu quelles que soient les manips
d'insertion de lignes/colonnes
Ex : If Sheets("Data").Range("maCellule") = 0 Then...blabla
ou encore (pour récupérer sa ligne) :
MsgBox "Veuillez compléter la ligne " & Range("maCellule").Row & "
avant de fermer le classeur."
AV
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le
message news: OzbLgK8JEHA.3016@tk2msftngp13.phx.gbl...
Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7 doit
absolument être complétée car un tableau croisé dynamique effectue
un Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit la
date dans la cellule M7 et à l'ouverture, lors de la mise à jour du
tableau croisé dynamique, la colonne groupant par année ne groupait
plus. Donc j'ai ajouté des codes interdisant de fermer le fichier
tant que la cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M, ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le
classeur." & vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%23%23E5Rp6JEHA.620@TK2MSFTNGP10.phx.gbl...
Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro est désignée sous la forme d'un nom et non en "dur", il n'y
a pas de soucis avec l'insertion de lignes ou colonnes pour la
"retrouver" (si on fait référence à son nom)
AV
Bonjour à tous,
Salut Alain,
Merci beaucoup pour ta réponse, mais je n'obtiens pas le résultat
souhaité.
Si la celllule M7 est nommée MaCellule, lors de l'insertion d'une
ligne en ligne 7, le champ nommé MaCellule ne réfère plus à $M$7 mais
à $M$8. C'est normal ?
Par contre si MaCellue réfère à la celllule M1, l'insertion de lignes
n'a pas d'influence et, lors de l'insertion d'une colonneà gauche de
la colonne M, $M$1 devient $N$1.
C'est pourquoi je pensais référer à $M$1 et 6 cellules vers le bas.
Est-ce possible ?
Merci de ton aide,
Céline
"AV" a écrit dans le message de
news:%Et en nommant, comme je te l'ai suggéré, la cellule M7 ?
Tu pourras tester son contenu quelles que soient les manips
d'insertion de lignes/colonnes
Ex : If Sheets("Data").Range("maCellule") = 0 Then...blabla
ou encore (pour récupérer sa ligne) :
MsgBox "Veuillez compléter la ligne " & Range("maCellule").Row & "
avant de fermer le classeur."
AV
"Céline Brien" a écrit dans le
message news:Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7 doit
absolument être complétée car un tableau croisé dynamique effectue
un Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit la
date dans la cellule M7 et à l'ouverture, lors de la mise à jour du
tableau croisé dynamique, la colonne groupant par année ne groupait
plus. Donc j'ai ajouté des codes interdisant de fermer le fichier
tant que la cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M, ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le
classeur." & vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" a écrit dans le message de
news:%23%Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro est désignée sous la forme d'un nom et non en "dur", il n'y
a pas de soucis avec l'insertion de lignes ou colonnes pour la
"retrouver" (si on fait référence à son nom)
AV
Bonjour,
Je ne pense pas avoir tout compris. ;-)
Mais tu devrais y arriver en nommant M1 et en utilisant l'instruction
Offset
pour accéder à ta cellule de la même colonne en rang 7.
HTH
Paul V
Céline Brien wrote:Bonjour à tous,
Salut Alain,
Merci beaucoup pour ta réponse, mais je n'obtiens pas le résultat
souhaité.
Si la celllule M7 est nommée MaCellule, lors de l'insertion d'une
ligne en ligne 7, le champ nommé MaCellule ne réfère plus à $M$7
mais
à $M$8. C'est normal ?
Par contre si MaCellue réfère à la celllule M1, l'insertion de
lignes
n'a pas d'influence et, lors de l'insertion d'une colonneà gauche de
la colonne M, $M$1 devient $N$1.
C'est pourquoi je pensais référer à $M$1 et 6 cellules vers le bas.
Est-ce possible ?
Merci de ton aide,
Céline
"AV" a écrit dans le message de
news:%Et en nommant, comme je te l'ai suggéré, la cellule M7 ?
Tu pourras tester son contenu quelles que soient les manips
d'insertion de lignes/colonnes
Ex : If Sheets("Data").Range("maCellule") = 0 Then...blabla
ou encore (pour récupérer sa ligne) :
MsgBox "Veuillez compléter la ligne " & Range("maCellule").Row & "
avant de fermer le classeur."
AV
"Céline Brien" a écrit dans le
message news:Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7
doit
absolument être complétée car un tableau croisé dynamique effectue
un Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit
la
date dans la cellule M7 et à l'ouverture, lors de la mise à jour
du
tableau croisé dynamique, la colonne groupant par année ne
groupait
plus. Donc j'ai ajouté des codes interdisant de fermer le fichier
tant que la cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M,
ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le
classeur." & vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la
ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" a écrit dans le message de
news:%23%Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro est désignée sous la forme d'un nom et non en "dur", il n'y
a pas de soucis avec l'insertion de lignes ou colonnes pour la
"retrouver" (si on fait référence à son nom)
AV
Bonjour,
Je ne pense pas avoir tout compris. ;-)
Mais tu devrais y arriver en nommant M1 et en utilisant l'instruction
Offset
pour accéder à ta cellule de la même colonne en rang 7.
HTH
Paul V
Céline Brien wrote:
Bonjour à tous,
Salut Alain,
Merci beaucoup pour ta réponse, mais je n'obtiens pas le résultat
souhaité.
Si la celllule M7 est nommée MaCellule, lors de l'insertion d'une
ligne en ligne 7, le champ nommé MaCellule ne réfère plus à $M$7
mais
à $M$8. C'est normal ?
Par contre si MaCellue réfère à la celllule M1, l'insertion de
lignes
n'a pas d'influence et, lors de l'insertion d'une colonneà gauche de
la colonne M, $M$1 devient $N$1.
C'est pourquoi je pensais référer à $M$1 et 6 cellules vers le bas.
Est-ce possible ?
Merci de ton aide,
Céline
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%23eThvUCKEHA.268@TK2MSFTNGP11.phx.gbl...
Et en nommant, comme je te l'ai suggéré, la cellule M7 ?
Tu pourras tester son contenu quelles que soient les manips
d'insertion de lignes/colonnes
Ex : If Sheets("Data").Range("maCellule") = 0 Then...blabla
ou encore (pour récupérer sa ligne) :
MsgBox "Veuillez compléter la ligne " & Range("maCellule").Row & "
avant de fermer le classeur."
AV
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le
message news: OzbLgK8JEHA.3016@tk2msftngp13.phx.gbl...
Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7
doit
absolument être complétée car un tableau croisé dynamique effectue
un Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit
la
date dans la cellule M7 et à l'ouverture, lors de la mise à jour
du
tableau croisé dynamique, la colonne groupant par année ne
groupait
plus. Donc j'ai ajouté des codes interdisant de fermer le fichier
tant que la cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M,
ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le
classeur." & vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la
ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%23%23E5Rp6JEHA.620@TK2MSFTNGP10.phx.gbl...
Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro est désignée sous la forme d'un nom et non en "dur", il n'y
a pas de soucis avec l'insertion de lignes ou colonnes pour la
"retrouver" (si on fait référence à son nom)
AV
Bonjour,
Je ne pense pas avoir tout compris. ;-)
Mais tu devrais y arriver en nommant M1 et en utilisant l'instruction
Offset
pour accéder à ta cellule de la même colonne en rang 7.
HTH
Paul V
Céline Brien wrote:Bonjour à tous,
Salut Alain,
Merci beaucoup pour ta réponse, mais je n'obtiens pas le résultat
souhaité.
Si la celllule M7 est nommée MaCellule, lors de l'insertion d'une
ligne en ligne 7, le champ nommé MaCellule ne réfère plus à $M$7
mais
à $M$8. C'est normal ?
Par contre si MaCellue réfère à la celllule M1, l'insertion de
lignes
n'a pas d'influence et, lors de l'insertion d'une colonneà gauche de
la colonne M, $M$1 devient $N$1.
C'est pourquoi je pensais référer à $M$1 et 6 cellules vers le bas.
Est-ce possible ?
Merci de ton aide,
Céline
"AV" a écrit dans le message de
news:%Et en nommant, comme je te l'ai suggéré, la cellule M7 ?
Tu pourras tester son contenu quelles que soient les manips
d'insertion de lignes/colonnes
Ex : If Sheets("Data").Range("maCellule") = 0 Then...blabla
ou encore (pour récupérer sa ligne) :
MsgBox "Veuillez compléter la ligne " & Range("maCellule").Row & "
avant de fermer le classeur."
AV
"Céline Brien" a écrit dans le
message news:Salut tout le monde,
Salut Alain,
Merci pour ta réponse.
Tu trouveras ci-dessous les codes de ma macro et des explications
supplémentaires.
Merci de ton aide
Céline
---------------------------------------------------------------
Il s'agit d'une liste de données.
Lorsqu'une nouvelle ligne de données est insérée, la cellule M7
doit
absolument être complétée car un tableau croisé dynamique effectue
un Grouper par année sur les dates que contient la colonne M.
Les utilisateurs fermaient parfois le fichier sans avoir inscrit
la
date dans la cellule M7 et à l'ouverture, lors de la mise à jour
du
tableau croisé dynamique, la colonne groupant par année ne
groupait
plus. Donc j'ai ajouté des codes interdisant de fermer le fichier
tant que la cellule M7 n'est pas complétée.
Sauf que si des colonnes sont ajoutées à gauche de la colonne M,
ma
macro ne pointe plus sur la bonne cellule.
---------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Data").Range("M7") = 0 Then
Cancel = True
Msg = "Bonjour !" & vbLf
Msg = Msg & "Veuillez compléter la ligne 7 avant de fermer le
classeur." & vbLf
Msg = Msg & "Merci !"
MsgBox Msg, vbInformatin, "Macro pour rappeler de compléter la
ligne
insérée"
End If
If Sheets("Data").Range("M7") > 0 Then
SupprimeBarreMenu
End If
End Sub
"AV" a écrit dans le message de
news:%23%Faudrait voir ta macro mais si la cellule dont tu te sers dans la
macro est désignée sous la forme d'un nom et non en "dur", il n'y
a pas de soucis avec l'insertion de lignes ou colonnes pour la
"retrouver" (si on fait référence à son nom)
AV