Bonjour à tous,
J'ai reçu une macro qui me permet de changer le format d'une cellule par un
double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double
clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela
fonctionne, mais la cellule reste sélectionnée comme si l'on voulait
continuer à inscrire quelque chose dans cette cellule.
Qui aurait l'amabilité de me la corriger?
Merci de votre aide.
Nadia
---------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 6
End With
ActiveCell.Formula = "P"
End Sub
--------------------------------------------------------------------
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Elliac
Bonjour Nadia,
seule solution ne pas rester sur la cellule, tu peux terminer par : ActiveCell.Formula = "P" ActiveCell.Offset(1).Select
Camille
"nadia.b" wrote:
Bonjour à tous, J'ai reçu une macro qui me permet de changer le format d'une cellule par un double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela fonctionne, mais la cellule reste sélectionnée comme si l'on voulait continuer à inscrire quelque chose dans cette cellule. Qui aurait l'amabilité de me la corriger? Merci de votre aide. Nadia --------------------------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 6 End With ActiveCell.Formula = "P" End Sub --------------------------------------------------------------------
Bonjour Nadia,
seule solution ne pas rester sur la cellule, tu peux terminer par :
ActiveCell.Formula = "P"
ActiveCell.Offset(1).Select
Camille
"nadia.b" wrote:
Bonjour à tous,
J'ai reçu une macro qui me permet de changer le format d'une cellule par un
double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double
clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela
fonctionne, mais la cellule reste sélectionnée comme si l'on voulait
continuer à inscrire quelque chose dans cette cellule.
Qui aurait l'amabilité de me la corriger?
Merci de votre aide.
Nadia
---------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 6
End With
ActiveCell.Formula = "P"
End Sub
--------------------------------------------------------------------
seule solution ne pas rester sur la cellule, tu peux terminer par : ActiveCell.Formula = "P" ActiveCell.Offset(1).Select
Camille
"nadia.b" wrote:
Bonjour à tous, J'ai reçu une macro qui me permet de changer le format d'une cellule par un double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela fonctionne, mais la cellule reste sélectionnée comme si l'on voulait continuer à inscrire quelque chose dans cette cellule. Qui aurait l'amabilité de me la corriger? Merci de votre aide. Nadia --------------------------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 6 End With ActiveCell.Formula = "P" End Sub --------------------------------------------------------------------
Jacques93
bonjour nadia.b,
Ajoutes :
Cancel = True
avant
Exit Sub
Le fait que la celule reste sélectionnée est le comportement par défaut du double-click.
Bonjour à tous, J'ai reçu une macro qui me permet de changer le format d'une cellule par un double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela fonctionne, mais la cellule reste sélectionnée comme si l'on voulait continuer à inscrire quelque chose dans cette cellule. Qui aurait l'amabilité de me la corriger? Merci de votre aide. Nadia --------------------------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 6 End With ActiveCell.Formula = "P" End Sub --------------------------------------------------------------------
-- Cordialement,
Jacques.
bonjour nadia.b,
Ajoutes :
Cancel = True
avant
Exit Sub
Le fait que la celule reste sélectionnée est le comportement par défaut
du double-click.
Bonjour à tous,
J'ai reçu une macro qui me permet de changer le format d'une cellule par un
double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double
clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela
fonctionne, mais la cellule reste sélectionnée comme si l'on voulait
continuer à inscrire quelque chose dans cette cellule.
Qui aurait l'amabilité de me la corriger?
Merci de votre aide.
Nadia
---------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 6
End With
ActiveCell.Formula = "P"
End Sub
--------------------------------------------------------------------
Le fait que la celule reste sélectionnée est le comportement par défaut du double-click.
Bonjour à tous, J'ai reçu une macro qui me permet de changer le format d'une cellule par un double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela fonctionne, mais la cellule reste sélectionnée comme si l'on voulait continuer à inscrire quelque chose dans cette cellule. Qui aurait l'amabilité de me la corriger? Merci de votre aide. Nadia --------------------------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 6 End With ActiveCell.Formula = "P" End Sub --------------------------------------------------------------------
-- Cordialement,
Jacques.
SL
Bonjour
ajoute "Cancel = True" à la fin.
Stéphane
"nadia.b" a écrit dans le message de news:
Bonjour à tous, J'ai reçu une macro qui me permet de changer le format d'une cellule par un double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela fonctionne, mais la cellule reste sélectionnée comme si l'on voulait continuer à inscrire quelque chose dans cette cellule. Qui aurait l'amabilité de me la corriger? Merci de votre aide. Nadia --------------------------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 6 End With ActiveCell.Formula = "P" End Sub --------------------------------------------------------------------
Bonjour
ajoute "Cancel = True" à la fin.
Stéphane
"nadia.b" <nadia.b@sangene.ch> a écrit dans le message de news:
uKG3rPIgFHA.1248@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
J'ai reçu une macro qui me permet de changer le format d'une cellule par
un
double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double
clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela
fonctionne, mais la cellule reste sélectionnée comme si l'on voulait
continuer à inscrire quelque chose dans cette cellule.
Qui aurait l'amabilité de me la corriger?
Merci de votre aide.
Nadia
---------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 6
End With
ActiveCell.Formula = "P"
End Sub
--------------------------------------------------------------------
Bonjour à tous, J'ai reçu une macro qui me permet de changer le format d'une cellule par un double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela fonctionne, mais la cellule reste sélectionnée comme si l'on voulait continuer à inscrire quelque chose dans cette cellule. Qui aurait l'amabilité de me la corriger? Merci de votre aide. Nadia --------------------------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 6 End With ActiveCell.Formula = "P" End Sub --------------------------------------------------------------------
nadia.b
Cher Elliac, Excellent, ca marche super. Merci Nadia
"Elliac" a écrit dans le message de news:
Bonjour Nadia,
seule solution ne pas rester sur la cellule, tu peux terminer par : ActiveCell.Formula = "P" ActiveCell.Offset(1).Select
Camille
"nadia.b" wrote:
Bonjour à tous, J'ai reçu une macro qui me permet de changer le format d'une cellule par un
double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double
clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela fonctionne, mais la cellule reste sélectionnée comme si l'on voulait continuer à inscrire quelque chose dans cette cellule. Qui aurait l'amabilité de me la corriger? Merci de votre aide. Nadia --------------------------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 6 End With ActiveCell.Formula = "P" End Sub --------------------------------------------------------------------
Cher Elliac,
Excellent, ca marche super.
Merci
Nadia
"Elliac" <Elliac@discussions.microsoft.com> a écrit dans le message de
news:838510F9-8877-4B91-9D75-896B799CDFD0@microsoft.com...
Bonjour Nadia,
seule solution ne pas rester sur la cellule, tu peux terminer par :
ActiveCell.Formula = "P"
ActiveCell.Offset(1).Select
Camille
"nadia.b" wrote:
Bonjour à tous,
J'ai reçu une macro qui me permet de changer le format d'une cellule par
un
double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce
double
clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela
fonctionne, mais la cellule reste sélectionnée comme si l'on voulait
continuer à inscrire quelque chose dans cette cellule.
Qui aurait l'amabilité de me la corriger?
Merci de votre aide.
Nadia
---------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 6
End With
ActiveCell.Formula = "P"
End Sub
--------------------------------------------------------------------
Cher Elliac, Excellent, ca marche super. Merci Nadia
"Elliac" a écrit dans le message de news:
Bonjour Nadia,
seule solution ne pas rester sur la cellule, tu peux terminer par : ActiveCell.Formula = "P" ActiveCell.Offset(1).Select
Camille
"nadia.b" wrote:
Bonjour à tous, J'ai reçu une macro qui me permet de changer le format d'une cellule par un
double clic. Maintenant j'ai essayé de la corriger pour qu'avec ce double
clic de la souris, un P s'inscrit dans la cellule sélectionnée. Cela fonctionne, mais la cellule reste sélectionnée comme si l'on voulait continuer à inscrire quelque chose dans cette cellule. Qui aurait l'amabilité de me la corriger? Merci de votre aide. Nadia --------------------------------------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("plage")) Is Nothing Then Exit Sub With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection.Font .Name = "Arial" .FontStyle = "Gras" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 6 End With ActiveCell.Formula = "P" End Sub --------------------------------------------------------------------
