Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le code
suivant, seul un double clic en colonne A active le formulaire. Comment
l'activer pour les 5 premières colonnes du tableau? Pour un choix de
cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le code
suivant, seul un double clic en colonne A active le formulaire. Comment
l'activer pour les 5 premières colonnes du tableau? Pour un choix de
cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le code
suivant, seul un double clic en colonne A active le formulaire. Comment
l'activer pour les 5 premières colonnes du tableau? Pour un choix de
cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le code
suivant, seul un double clic en colonne A active le formulaire. Comment
l'activer pour les 5 premières colonnes du tableau? Pour un choix de
cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le code
suivant, seul un double clic en colonne A active le formulaire. Comment
l'activer pour les 5 premières colonnes du tableau? Pour un choix de
cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le code
suivant, seul un double clic en colonne A active le formulaire. Comment
l'activer pour les 5 premières colonnes du tableau? Pour un choix de
cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le code
suivant, seul un double clic en colonne A active le formulaire. Comment
l'activer pour les 5 premières colonnes du tableau? Pour un choix de
cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le code
suivant, seul un double clic en colonne A active le formulaire. Comment
l'activer pour les 5 premières colonnes du tableau? Pour un choix de
cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le code
suivant, seul un double clic en colonne A active le formulaire. Comment
l'activer pour les 5 premières colonnes du tableau? Pour un choix de
cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir, "Greg"
Vous nous dites " If Target.Column = 1 " pour la première colonne.
Avant de poster pour demander pour les 5 premières colonnes, avez-vous
essayé " If Target.Column < 6 " ?
Ne prenez surtout pas cette remarque comme un reproche, c'est juste pour
vous dire qu'on ne risque rien à tester par soi-même, et que même c'est
ainsi qu'on apprend le mieux.
--
Bien ,
PatrickBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un choix
de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir, "Greg"
Vous nous dites " If Target.Column = 1 " pour la première colonne.
Avant de poster pour demander pour les 5 premières colonnes, avez-vous
essayé " If Target.Column < 6 " ?
Ne prenez surtout pas cette remarque comme un reproche, c'est juste pour
vous dire qu'on ne risque rien à tester par soi-même, et que même c'est
ainsi qu'on apprend le mieux.
--
Bien amicordi@lement,
Patrick BAST@RD
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un choix
de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir, "Greg"
Vous nous dites " If Target.Column = 1 " pour la première colonne.
Avant de poster pour demander pour les 5 premières colonnes, avez-vous
essayé " If Target.Column < 6 " ?
Ne prenez surtout pas cette remarque comme un reproche, c'est juste pour
vous dire qu'on ne risque rien à tester par soi-même, et que même c'est
ainsi qu'on apprend le mieux.
--
Bien ,
PatrickBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un choix
de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
DanielBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un choix
de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
Daniel
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un choix
de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
DanielBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un choix
de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Je reste coincé également vis à vis de mes cellules non vides qui
n'acceptent pas le code... sauf à supprimer le contenu de la cellule
auparavant, ce que je souhaite éviter.
Greg
"Patrick BASTARD" a écrit dans le
message de news:%Bonsoir, "Greg"
Vous nous dites " If Target.Column = 1 " pour la première colonne.
Avant de poster pour demander pour les 5 premières colonnes, avez-vous
essayé " If Target.Column < 6 " ?
Ne prenez surtout pas cette remarque comme un reproche, c'est juste pour
vous dire qu'on ne risque rien à tester par soi-même, et que même c'est
ainsi qu'on apprend le mieux.
--
Bien ,
PatrickBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un
choix de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Je reste coincé également vis à vis de mes cellules non vides qui
n'acceptent pas le code... sauf à supprimer le contenu de la cellule
auparavant, ce que je souhaite éviter.
Greg
"Patrick BASTARD" <patrick.bastard@dbmail.com.invalid> a écrit dans le
message de news:%2388fkUkvKHA.2436@TK2MSFTNGP04.phx.gbl...
Bonsoir, "Greg"
Vous nous dites " If Target.Column = 1 " pour la première colonne.
Avant de poster pour demander pour les 5 premières colonnes, avez-vous
essayé " If Target.Column < 6 " ?
Ne prenez surtout pas cette remarque comme un reproche, c'est juste pour
vous dire qu'on ne risque rien à tester par soi-même, et que même c'est
ainsi qu'on apprend le mieux.
--
Bien amicordi@lement,
Patrick BAST@RD
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un
choix de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Je reste coincé également vis à vis de mes cellules non vides qui
n'acceptent pas le code... sauf à supprimer le contenu de la cellule
auparavant, ce que je souhaite éviter.
Greg
"Patrick BASTARD" a écrit dans le
message de news:%Bonsoir, "Greg"
Vous nous dites " If Target.Column = 1 " pour la première colonne.
Avant de poster pour demander pour les 5 premières colonnes, avez-vous
essayé " If Target.Column < 6 " ?
Ne prenez surtout pas cette remarque comme un reproche, c'est juste pour
vous dire qu'on ne risque rien à tester par soi-même, et que même c'est
ainsi qu'on apprend le mieux.
--
Bien ,
PatrickBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un
choix de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
DanielBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un choix
de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
Daniel
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un choix
de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
DanielBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un choix
de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
J'ai résolu une partie de mon problème:
En ajoutant la ligne "Selection.ClearContents", j'arrive à faire
fonctionner la macro: le formulaire s'ouvre. Peut-être devrais-je
spécifier que suite au remplissage du formulaire, le contenu de la cellule
sera modifié.
Par contre, le fichier bugue régulièrement: quand je double-clique sur
certaines cellules, tout se bloque et le fichier ne répond plus. Je ne
comprends pas ce qui se passe.... Même sans ne rien ajouter. Je suis alors
obligé de passer par le gestionnaire des tâches pour fermer Excel. (???)
Il doit y avoir qqchose qui m'échappe.
Si l'un d'entre vous avait la gentillesse de regarder, voici le fichier:
http://cjoint.com/?diaJ55c0wF
Pour déclencher le bug, je clique par exemple en B62, feuille "emploi du
temps détaillé". Après, je ne peux plus rien faire.
Merci à vous si vous avez un peu de temps à me consacrer.
Greg
"Daniel.C" a écrit dans le message de
news:Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
DanielBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un
choix de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
J'ai résolu une partie de mon problème:
En ajoutant la ligne "Selection.ClearContents", j'arrive à faire
fonctionner la macro: le formulaire s'ouvre. Peut-être devrais-je
spécifier que suite au remplissage du formulaire, le contenu de la cellule
sera modifié.
Par contre, le fichier bugue régulièrement: quand je double-clique sur
certaines cellules, tout se bloque et le fichier ne répond plus. Je ne
comprends pas ce qui se passe.... Même sans ne rien ajouter. Je suis alors
obligé de passer par le gestionnaire des tâches pour fermer Excel. (???)
Il doit y avoir qqchose qui m'échappe.
Si l'un d'entre vous avait la gentillesse de regarder, voici le fichier:
http://cjoint.com/?diaJ55c0wF
Pour déclencher le bug, je clique par exemple en B62, feuille "emploi du
temps détaillé". Après, je ne peux plus rien faire.
Merci à vous si vous avez un peu de temps à me consacrer.
Greg
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:ugSP1XkvKHA.5008@TK2MSFTNGP05.phx.gbl...
Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
Daniel
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un
choix de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
J'ai résolu une partie de mon problème:
En ajoutant la ligne "Selection.ClearContents", j'arrive à faire
fonctionner la macro: le formulaire s'ouvre. Peut-être devrais-je
spécifier que suite au remplissage du formulaire, le contenu de la cellule
sera modifié.
Par contre, le fichier bugue régulièrement: quand je double-clique sur
certaines cellules, tout se bloque et le fichier ne répond plus. Je ne
comprends pas ce qui se passe.... Même sans ne rien ajouter. Je suis alors
obligé de passer par le gestionnaire des tâches pour fermer Excel. (???)
Il doit y avoir qqchose qui m'échappe.
Si l'un d'entre vous avait la gentillesse de regarder, voici le fichier:
http://cjoint.com/?diaJ55c0wF
Pour déclencher le bug, je clique par exemple en B62, feuille "emploi du
temps détaillé". Après, je ne peux plus rien faire.
Merci à vous si vous avez un peu de temps à me consacrer.
Greg
"Daniel.C" a écrit dans le message de
news:Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
DanielBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un
choix de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Re, "Greg"
Il semble qu'en cliquant sur B62, votre usf "s'affiche" en dehors de
l'écran, ce qui fait qu'Excel attend soit un choix, soit une fermeture de
cet usf dont la propriété ShowModal a été définie à True.
Règlez la propriété Startup position à 2-CenterScreen, par exemple, et le
bug disparait.
Concernant vos fusions de cellule, je rejoins Steph pour vous les
déconseiller formellement. Si cette fonctionnalité est bien pratique pour
des documents de présentation, elle est à proscrire sur les feuilles sur
lesquelles des actions sont susceptibles d'être exécutées.
Double cliquez sur B17 pour vous en convaincre, défusionnez les cellules
et recommencez. Ca va mieux, non ?
--
Bien ,
PatrickJ'ai résolu une partie de mon problème:
En ajoutant la ligne "Selection.ClearContents", j'arrive à faire
fonctionner la macro: le formulaire s'ouvre. Peut-être devrais-je
spécifier que suite au remplissage du formulaire, le contenu de la
cellule sera modifié.
Par contre, le fichier bugue régulièrement: quand je double-clique sur
certaines cellules, tout se bloque et le fichier ne répond plus. Je ne
comprends pas ce qui se passe.... Même sans ne rien ajouter. Je suis
alors obligé de passer par le gestionnaire des tâches pour fermer Excel.
(???)
Il doit y avoir qqchose qui m'échappe.
Si l'un d'entre vous avait la gentillesse de regarder, voici le fichier:
http://cjoint.com/?diaJ55c0wF
Pour déclencher le bug, je clique par exemple en B62, feuille "emploi du
temps détaillé". Après, je ne peux plus rien faire.
Merci à vous si vous avez un peu de temps à me consacrer.
Greg
"Daniel.C" a écrit dans le message de
news:Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
DanielBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un
choix de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Re, "Greg"
Il semble qu'en cliquant sur B62, votre usf "s'affiche" en dehors de
l'écran, ce qui fait qu'Excel attend soit un choix, soit une fermeture de
cet usf dont la propriété ShowModal a été définie à True.
Règlez la propriété Startup position à 2-CenterScreen, par exemple, et le
bug disparait.
Concernant vos fusions de cellule, je rejoins Steph pour vous les
déconseiller formellement. Si cette fonctionnalité est bien pratique pour
des documents de présentation, elle est à proscrire sur les feuilles sur
lesquelles des actions sont susceptibles d'être exécutées.
Double cliquez sur B17 pour vous en convaincre, défusionnez les cellules
et recommencez. Ca va mieux, non ?
--
Bien amicordi@lement,
Patrick BAST@RD
J'ai résolu une partie de mon problème:
En ajoutant la ligne "Selection.ClearContents", j'arrive à faire
fonctionner la macro: le formulaire s'ouvre. Peut-être devrais-je
spécifier que suite au remplissage du formulaire, le contenu de la
cellule sera modifié.
Par contre, le fichier bugue régulièrement: quand je double-clique sur
certaines cellules, tout se bloque et le fichier ne répond plus. Je ne
comprends pas ce qui se passe.... Même sans ne rien ajouter. Je suis
alors obligé de passer par le gestionnaire des tâches pour fermer Excel.
(???)
Il doit y avoir qqchose qui m'échappe.
Si l'un d'entre vous avait la gentillesse de regarder, voici le fichier:
http://cjoint.com/?diaJ55c0wF
Pour déclencher le bug, je clique par exemple en B62, feuille "emploi du
temps détaillé". Après, je ne peux plus rien faire.
Merci à vous si vous avez un peu de temps à me consacrer.
Greg
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:ugSP1XkvKHA.5008@TK2MSFTNGP05.phx.gbl...
Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
Daniel
Bonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un
choix de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous
Re, "Greg"
Il semble qu'en cliquant sur B62, votre usf "s'affiche" en dehors de
l'écran, ce qui fait qu'Excel attend soit un choix, soit une fermeture de
cet usf dont la propriété ShowModal a été définie à True.
Règlez la propriété Startup position à 2-CenterScreen, par exemple, et le
bug disparait.
Concernant vos fusions de cellule, je rejoins Steph pour vous les
déconseiller formellement. Si cette fonctionnalité est bien pratique pour
des documents de présentation, elle est à proscrire sur les feuilles sur
lesquelles des actions sont susceptibles d'être exécutées.
Double cliquez sur B17 pour vous en convaincre, défusionnez les cellules
et recommencez. Ca va mieux, non ?
--
Bien ,
PatrickJ'ai résolu une partie de mon problème:
En ajoutant la ligne "Selection.ClearContents", j'arrive à faire
fonctionner la macro: le formulaire s'ouvre. Peut-être devrais-je
spécifier que suite au remplissage du formulaire, le contenu de la
cellule sera modifié.
Par contre, le fichier bugue régulièrement: quand je double-clique sur
certaines cellules, tout se bloque et le fichier ne répond plus. Je ne
comprends pas ce qui se passe.... Même sans ne rien ajouter. Je suis
alors obligé de passer par le gestionnaire des tâches pour fermer Excel.
(???)
Il doit y avoir qqchose qui m'échappe.
Si l'un d'entre vous avait la gentillesse de regarder, voici le fichier:
http://cjoint.com/?diaJ55c0wF
Pour déclencher le bug, je clique par exemple en B62, feuille "emploi du
temps détaillé". Après, je ne peux plus rien faire.
Merci à vous si vous avez un peu de temps à me consacrer.
Greg
"Daniel.C" a écrit dans le message de
news:Bonsoir.
Pour les 5 premières colonnes, mets :
If Target.Column <= 5 Then
Pour une plage de cellules :
If not intersect(target,[A10:G50]) is nothing then
Pour certaines cellules :
If Not Intersect(Target, Range("A10, B20, C30")) Is Nothing Then
Cordialement.
DanielBonsoir à tous,
Un jeu d'enfant pour vous, je pense... Une galère pour moi... Avec le
code suivant, seul un double clic en colonne A active le formulaire.
Comment l'activer pour les 5 premières colonnes du tableau? Pour un
choix de cellules? Pour tout le tableau?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
If Target.Column = 1 Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci à vous