Bonsoir,
Le bouton clic dans la "feuil Exercice2" me permet de générer par macro
(aimablement donnée par AV) des mots aléatoirement dans des cellules. C'est
génial. Cela fonctionne super. Il me permet de faire mes exercices. J'aurais
voulu pouvoir utiliser mon PC et pouvoir inscrire les réponses dans les
cellules correspondantes. Mais lorsque je génère de nouveaux mots, qui peut
me donner une solution pour que les mots incrits par moi, s'effacent. Je
laisse une copie du fichier pour visualiser le tableau.
http://cjoint.com/?dowgqlOCrv
Merci à vous par avance.
Guido
Non, le système d'exploitation n'a pas d'influence. Par contre quelle version d'excel as-tu ? Si tu as Excel 97 la commande est à changer pour :
Application.AutoComplete = False
j-p
JpPradier
Bonjour Alain
C'est vrai que c'est plus malin. Mais si le classeur s'ouvre directement sur la feuille en question, on ne passe pas par la case Worksheet_Activate ,si ?
j-p
Bonjour Alain
C'est vrai que c'est plus malin. Mais si le classeur s'ouvre directement sur la feuille en
question, on ne passe pas par la case Worksheet_Activate ,si ?
C'est vrai que c'est plus malin. Mais si le classeur s'ouvre directement sur la feuille en question, on ne passe pas par la case Worksheet_Activate ,si ?
j-p
AV
. Mais si le classeur s'ouvre directement sur la feuille en | question, on ne passe pas par la case Worksheet_Activate ,si ?
Certes, mais il me semble qu'un petit test dans le ThisWorkbook suffirait :
Private Sub Workbook_Open() If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete = False End Sub
AV
. Mais si le classeur s'ouvre directement sur la feuille en
| question, on ne passe pas par la case Worksheet_Activate ,si ?
Certes, mais il me semble qu'un petit test dans le ThisWorkbook suffirait :
Private Sub Workbook_Open()
If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete = False
End Sub
. Mais si le classeur s'ouvre directement sur la feuille en | question, on ne passe pas par la case Worksheet_Activate ,si ?
Certes, mais il me semble qu'un petit test dans le ThisWorkbook suffirait :
Private Sub Workbook_Open() If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete = False End Sub
AV
Guido
Bonsoir JP et AV, merci pour vos réponses, pour répondre à JP, j'utilise Office 2003 ou Office XP, cela dépend ou je me trouve. j'ai introduit les codes dans la feuille Exercice et le petit, dans le thisworkbook. Désolé, la déasctivation ne s'opère pas. Guido
"JpPradier" a écrit dans le message de news:
Oui, ca me semble bien aussi.
j-p
"AV" a écrit dans le message de news:
. Mais si le classeur s'ouvre directement sur la feuille en | question, on ne passe pas par la case Worksheet_Activate ,si ?
Certes, mais il me semble qu'un petit test dans le ThisWorkbook suffirait :
Private Sub Workbook_Open() If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete False End Sub
AV
Bonsoir JP et AV,
merci pour vos réponses,
pour répondre à JP, j'utilise Office 2003 ou Office XP, cela dépend ou je me
trouve.
j'ai introduit les codes dans la feuille Exercice et le petit, dans le
thisworkbook.
Désolé, la déasctivation ne s'opère pas.
Guido
"JpPradier" <jp.pradier.JVeuxPasDeSpam@wanadoo.fr> a écrit dans le message
de news:e0zA7pBSGHA.196@TK2MSFTNGP10.phx.gbl...
Oui, ca me semble bien aussi.
j-p
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
eNc7nmBSGHA.1608@TK2MSFTNGP09.phx.gbl...
. Mais si le classeur s'ouvre directement sur la feuille en
| question, on ne passe pas par la case Worksheet_Activate ,si ?
Certes, mais il me semble qu'un petit test dans le ThisWorkbook
suffirait :
Private Sub Workbook_Open()
If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete False
End Sub
Bonsoir JP et AV, merci pour vos réponses, pour répondre à JP, j'utilise Office 2003 ou Office XP, cela dépend ou je me trouve. j'ai introduit les codes dans la feuille Exercice et le petit, dans le thisworkbook. Désolé, la déasctivation ne s'opère pas. Guido
"JpPradier" a écrit dans le message de news:
Oui, ca me semble bien aussi.
j-p
"AV" a écrit dans le message de news:
. Mais si le classeur s'ouvre directement sur la feuille en | question, on ne passe pas par la case Worksheet_Activate ,si ?
Certes, mais il me semble qu'un petit test dans le ThisWorkbook suffirait :
Private Sub Workbook_Open() If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete False End Sub
AV
Guido
AV, tu as l'occasion de voir ce que j'ai fait des codes que tu m'as fourni il y a déjà quelques temps. Je mets le fichier en ligne via Cjoint. http://cjoint.com/?dptESJ4IEX
"JpPradier" a écrit dans le message de news:
Oui, ca me semble bien aussi.
j-p
"AV" a écrit dans le message de news:
. Mais si le classeur s'ouvre directement sur la feuille en | question, on ne passe pas par la case Worksheet_Activate ,si ?
Certes, mais il me semble qu'un petit test dans le ThisWorkbook suffirait :
Private Sub Workbook_Open() If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete False End Sub
AV
AV,
tu as l'occasion de voir ce que j'ai fait des codes que tu m'as fourni il y
a déjà quelques temps.
Je mets le fichier en ligne via Cjoint.
http://cjoint.com/?dptESJ4IEX
"JpPradier" <jp.pradier.JVeuxPasDeSpam@wanadoo.fr> a écrit dans le message
de news:e0zA7pBSGHA.196@TK2MSFTNGP10.phx.gbl...
Oui, ca me semble bien aussi.
j-p
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
eNc7nmBSGHA.1608@TK2MSFTNGP09.phx.gbl...
. Mais si le classeur s'ouvre directement sur la feuille en
| question, on ne passe pas par la case Worksheet_Activate ,si ?
Certes, mais il me semble qu'un petit test dans le ThisWorkbook
suffirait :
Private Sub Workbook_Open()
If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete False
End Sub
AV, tu as l'occasion de voir ce que j'ai fait des codes que tu m'as fourni il y a déjà quelques temps. Je mets le fichier en ligne via Cjoint. http://cjoint.com/?dptESJ4IEX
"JpPradier" a écrit dans le message de news:
Oui, ca me semble bien aussi.
j-p
"AV" a écrit dans le message de news:
. Mais si le classeur s'ouvre directement sur la feuille en | question, on ne passe pas par la case Worksheet_Activate ,si ?
Certes, mais il me semble qu'un petit test dans le ThisWorkbook suffirait :
Private Sub Workbook_Open() If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete False End Sub
AV
JpPradier
Bonjour Guido
C'est normal que ca ne marche pas. Pour cette partie :
Private Sub Workbook_Open() If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete = False End Sub
Il faut que tu remplaces Feuil2 par le nom de ton onglet :
If ActiveSheet.Name = "Feuille exercice2" Then Application.EnableAutoComplete = False
Pour celle-ci : Private Sub Worksheet_Activate() Application.EnableAutoComplete = False End Sub Private Sub Worksheet_Deactivate() Application.EnableAutoComplete = True End Sub
il faut mettre ce code dans le module de la feuille Exercice2.
Après, ca marche comme sur des roulettes ;-)
j-p
Bonjour Guido
C'est normal que ca ne marche pas. Pour cette partie :
Private Sub Workbook_Open()
If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete = False
End Sub
Il faut que tu remplaces Feuil2 par le nom de ton onglet :
If ActiveSheet.Name = "Feuille exercice2" Then Application.EnableAutoComplete = False
Pour celle-ci :
Private Sub Worksheet_Activate()
Application.EnableAutoComplete = False
End Sub
Private Sub Worksheet_Deactivate()
Application.EnableAutoComplete = True
End Sub
il faut mettre ce code dans le module de la feuille Exercice2.
C'est normal que ca ne marche pas. Pour cette partie :
Private Sub Workbook_Open() If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete = False End Sub
Il faut que tu remplaces Feuil2 par le nom de ton onglet :
If ActiveSheet.Name = "Feuille exercice2" Then Application.EnableAutoComplete = False
Pour celle-ci : Private Sub Worksheet_Activate() Application.EnableAutoComplete = False End Sub Private Sub Worksheet_Deactivate() Application.EnableAutoComplete = True End Sub
il faut mettre ce code dans le module de la feuille Exercice2.
Après, ca marche comme sur des roulettes ;-)
j-p
Guido
Bonjour JpPradier, Un grand merci pour ton aide, c'étais très simple en fait. ;-o)) Salutations et à bientôt Guido
Bonjour Guido
C'est normal que ca ne marche pas. Pour cette partie :
Private Sub Workbook_Open() If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete = False End Sub
Il faut que tu remplaces Feuil2 par le nom de ton onglet :
If ActiveSheet.Name = "Feuille exercice2" Then Application.EnableAutoComplete = False
Pour celle-ci : Private Sub Worksheet_Activate() Application.EnableAutoComplete = False End Sub Private Sub Worksheet_Deactivate() Application.EnableAutoComplete = True End Sub
il faut mettre ce code dans le module de la feuille Exercice2.
Après, ca marche comme sur des roulettes ;-)
j-p
Bonjour JpPradier,
Un grand merci pour ton aide, c'étais très simple en fait.
;-o))
Salutations et à bientôt
Guido
Bonjour Guido
C'est normal que ca ne marche pas. Pour cette partie :
Private Sub Workbook_Open()
If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete = False
End Sub
Il faut que tu remplaces Feuil2 par le nom de ton onglet :
If ActiveSheet.Name = "Feuille exercice2" Then
Application.EnableAutoComplete = False
Pour celle-ci :
Private Sub Worksheet_Activate()
Application.EnableAutoComplete = False
End Sub
Private Sub Worksheet_Deactivate()
Application.EnableAutoComplete = True
End Sub
il faut mettre ce code dans le module de la feuille Exercice2.
Bonjour JpPradier, Un grand merci pour ton aide, c'étais très simple en fait. ;-o)) Salutations et à bientôt Guido
Bonjour Guido
C'est normal que ca ne marche pas. Pour cette partie :
Private Sub Workbook_Open() If ActiveSheet.Name = "Feuil2" Then Application.EnableAutoComplete = False End Sub
Il faut que tu remplaces Feuil2 par le nom de ton onglet :
If ActiveSheet.Name = "Feuille exercice2" Then Application.EnableAutoComplete = False
Pour celle-ci : Private Sub Worksheet_Activate() Application.EnableAutoComplete = False End Sub Private Sub Worksheet_Deactivate() Application.EnableAutoComplete = True End Sub
il faut mettre ce code dans le module de la feuille Exercice2.
