Bonjour
Est-il possible de me traduire cette macro qui ne marche pas, bien sûr, en une
macro qui marche ?
Mais ou diable vais-je chercher ça ?
Cordialement
JMM
'Private Sub Worksheet_Change(ByVal Target As Range)
'Ou-bien ?
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Target.Column = 6 And Target.Font.Bold = False Then
'Attendre une action clavier
' if action clavier = touche + du pavé numérique then
' Target = Target + 0.01
' Elseif action clavier = touche - du pavé numérique then
' Target = Target - 0.01
'Else
'Exit sub
'End If
'End if
'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
dunkelzahn
Bonjour,
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me rappelle plus le lien où je devais utiliser la touche flèche droite ou gauche. Je n'ai pas vu la possibilité de séparer le + du clavier numérique et le + du clavier alphanumérique. En même temps, ce n'est pas trop grave.
Private Sub Workbook_Open() Application.OnKey "%{+}", "PlusUn" Application.OnKey "%{+}", "MoinsUn" end sub
Sub PlusUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value + 0.01 End If End If End Sub
Sub MoinsUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value - 0.01 End If End If End Sub
On 24 fév, 18:00, "milloche" wrote:
Bonjour Est-il possible de me traduire cette macro qui ne marche pas, bien sûr, en une macro qui marche ? Mais ou diable vais-je chercher ça ? Cordialement JMM
'Private Sub Worksheet_Change(ByVal Target As Range) 'Ou-bien ? 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Target.Column = 6 And Target.Font.Bold = False Then 'Attendre une action clavier ' if action clavier = touche + du pavé numérique then ' Target = Target + 0.01 ' Elseif action clavier = touche - du pavé numérique then ' Target = Target - 0.01 'Else 'Exit sub 'End If 'End if 'End Sub
Bonjour,
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me
rappelle plus le lien où je devais utiliser la touche flèche droite ou
gauche. Je n'ai pas vu la possibilité de séparer le + du clavier
numérique et le + du clavier alphanumérique. En même temps, ce n'est
pas trop grave.
Private Sub Workbook_Open()
Application.OnKey "%{+}", "PlusUn"
Application.OnKey "%{+}", "MoinsUn"
end sub
Sub PlusUn()
If ActiveSheet.CodeName = "Feuil1" Then
If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then
ActiveCell.value = ActiveCell.value + 0.01
End If
End If
End Sub
Sub MoinsUn()
If ActiveSheet.CodeName = "Feuil1" Then
If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then
ActiveCell.value = ActiveCell.value - 0.01
End If
End If
End Sub
On 24 fév, 18:00, "milloche" <mille.jean-marie...@neuf.fr> wrote:
Bonjour
Est-il possible de me traduire cette macro qui ne marche pas, bien sûr, en une
macro qui marche ?
Mais ou diable vais-je chercher ça ?
Cordialement
JMM
'Private Sub Worksheet_Change(ByVal Target As Range)
'Ou-bien ?
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Target.Column = 6 And Target.Font.Bold = False Then
'Attendre une action clavier
' if action clavier = touche + du pavé numérique then
' Target = Target + 0.01
' Elseif action clavier = touche - du pavé numérique then
' Target = Target - 0.01
'Else
'Exit sub
'End If
'End if
'End Sub
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me rappelle plus le lien où je devais utiliser la touche flèche droite ou gauche. Je n'ai pas vu la possibilité de séparer le + du clavier numérique et le + du clavier alphanumérique. En même temps, ce n'est pas trop grave.
Private Sub Workbook_Open() Application.OnKey "%{+}", "PlusUn" Application.OnKey "%{+}", "MoinsUn" end sub
Sub PlusUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value + 0.01 End If End If End Sub
Sub MoinsUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value - 0.01 End If End If End Sub
On 24 fév, 18:00, "milloche" wrote:
Bonjour Est-il possible de me traduire cette macro qui ne marche pas, bien sûr, en une macro qui marche ? Mais ou diable vais-je chercher ça ? Cordialement JMM
'Private Sub Worksheet_Change(ByVal Target As Range) 'Ou-bien ? 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Target.Column = 6 And Target.Font.Bold = False Then 'Attendre une action clavier ' if action clavier = touche + du pavé numérique then ' Target = Target + 0.01 ' Elseif action clavier = touche - du pavé numérique then ' Target = Target - 0.01 'Else 'Exit sub 'End If 'End if 'End Sub
milloche
Salut Crocblanc Le + et - du clavier alpha étant désagréables (un avec shift et l'autre non), je vais faire comme toi avec les flèches droite et gauche. A moins qu'un astucieux connaisse le KeyCode de + et - du pavé numérique. L'aide VB en tous cas ne connait pas. Mais avec les malins de ce forum.... on sait jamais. Merci en tous cas de ta "pompe" d'auteur inconnu. Cordialement
"dunkelzahn" a écrit dans le message de news:
Bonjour,
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me rappelle plus le lien où je devais utiliser la touche flèche droite ou gauche. Je n'ai pas vu la possibilité de séparer le + du clavier numérique et le + du clavier alphanumérique. En même temps, ce n'est pas trop grave.
Private Sub Workbook_Open() Application.OnKey "%{+}", "PlusUn" Application.OnKey "%{+}", "MoinsUn" end sub
Sub PlusUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value + 0.01 End If End If End Sub
Sub MoinsUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value - 0.01 End If End If End Sub
On 24 fév, 18:00, "milloche" wrote:
Bonjour Est-il possible de me traduire cette macro qui ne marche pas, bien sûr, en une macro qui marche ? Mais ou diable vais-je chercher ça ? Cordialement JMM
'Private Sub Worksheet_Change(ByVal Target As Range) 'Ou-bien ? 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Target.Column = 6 And Target.Font.Bold = False Then 'Attendre une action clavier ' if action clavier = touche + du pavé numérique then ' Target = Target + 0.01 ' Elseif action clavier = touche - du pavé numérique then ' Target = Target - 0.01 'Else 'Exit sub 'End If 'End if 'End Sub
Salut Crocblanc
Le + et - du clavier alpha étant désagréables (un avec shift et l'autre non), je
vais faire comme toi avec les flèches droite et gauche.
A moins qu'un astucieux connaisse le KeyCode de + et - du pavé numérique.
L'aide VB en tous cas ne connait pas. Mais avec les malins de ce forum.... on
sait jamais.
Merci en tous cas de ta "pompe" d'auteur inconnu.
Cordialement
"dunkelzahn" <dunkelzahn.dunkelzahn@gmail.com> a écrit dans le message de news:
35bcdd47-f96d-4804-b417-0c7858d57061@o11g2000yql.googlegroups.com...
Bonjour,
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me
rappelle plus le lien où je devais utiliser la touche flèche droite ou
gauche. Je n'ai pas vu la possibilité de séparer le + du clavier
numérique et le + du clavier alphanumérique. En même temps, ce n'est
pas trop grave.
Private Sub Workbook_Open()
Application.OnKey "%{+}", "PlusUn"
Application.OnKey "%{+}", "MoinsUn"
end sub
Sub PlusUn()
If ActiveSheet.CodeName = "Feuil1" Then
If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then
ActiveCell.value = ActiveCell.value + 0.01
End If
End If
End Sub
Sub MoinsUn()
If ActiveSheet.CodeName = "Feuil1" Then
If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then
ActiveCell.value = ActiveCell.value - 0.01
End If
End If
End Sub
On 24 fév, 18:00, "milloche" <mille.jean-marie...@neuf.fr> wrote:
Bonjour
Est-il possible de me traduire cette macro qui ne marche pas, bien sûr, en une
macro qui marche ?
Mais ou diable vais-je chercher ça ?
Cordialement
JMM
'Private Sub Worksheet_Change(ByVal Target As Range)
'Ou-bien ?
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Target.Column = 6 And Target.Font.Bold = False Then
'Attendre une action clavier
' if action clavier = touche + du pavé numérique then
' Target = Target + 0.01
' Elseif action clavier = touche - du pavé numérique then
' Target = Target - 0.01
'Else
'Exit sub
'End If
'End if
'End Sub
Salut Crocblanc Le + et - du clavier alpha étant désagréables (un avec shift et l'autre non), je vais faire comme toi avec les flèches droite et gauche. A moins qu'un astucieux connaisse le KeyCode de + et - du pavé numérique. L'aide VB en tous cas ne connait pas. Mais avec les malins de ce forum.... on sait jamais. Merci en tous cas de ta "pompe" d'auteur inconnu. Cordialement
"dunkelzahn" a écrit dans le message de news:
Bonjour,
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me rappelle plus le lien où je devais utiliser la touche flèche droite ou gauche. Je n'ai pas vu la possibilité de séparer le + du clavier numérique et le + du clavier alphanumérique. En même temps, ce n'est pas trop grave.
Private Sub Workbook_Open() Application.OnKey "%{+}", "PlusUn" Application.OnKey "%{+}", "MoinsUn" end sub
Sub PlusUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value + 0.01 End If End If End Sub
Sub MoinsUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value - 0.01 End If End If End Sub
On 24 fév, 18:00, "milloche" wrote:
Bonjour Est-il possible de me traduire cette macro qui ne marche pas, bien sûr, en une macro qui marche ? Mais ou diable vais-je chercher ça ? Cordialement JMM
'Private Sub Worksheet_Change(ByVal Target As Range) 'Ou-bien ? 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Target.Column = 6 And Target.Font.Bold = False Then 'Attendre une action clavier ' if action clavier = touche + du pavé numérique then ' Target = Target + 0.01 ' Elseif action clavier = touche - du pavé numérique then ' Target = Target - 0.01 'Else 'Exit sub 'End If 'End if 'End Sub
dunkelzahn
Arf désolé des erreurs. J'ai retranscrit trop vite le code adapté à ta demande en laissant la séquence de la touche ALT(%) et en laissant une coquille.
Il fallait mettre : Application.OnKey "+", "PlusUn Application.OnKey "-", "MoinsUn
On 25 fév, 12:54, "milloche" wrote:
Salut Crocblanc Le + et - du clavier alpha étant désagréables (un avec shift et l'a utre non), je vais faire comme toi avec les flèches droite et gauche. A moins qu'un astucieux connaisse le KeyCode de + et - du pavé numéri que. L'aide VB en tous cas ne connait pas. Mais avec les malins de ce forum... . on sait jamais. Merci en tous cas de ta "pompe" d'auteur inconnu. Cordialement
"dunkelzahn" a écrit dans le message de news:
Bonjour,
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me rappelle plus le lien où je devais utiliser la touche flèche droite o u gauche. Je n'ai pas vu la possibilité de séparer le + du clavier numérique et le + du clavier alphanumérique. En même temps, ce n'es t pas trop grave.
Private Sub Workbook_Open() Application.OnKey "%{+}", "PlusUn" Application.OnKey "%{+}", "MoinsUn" end sub
Sub PlusUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false The n ActiveCell.value = ActiveCell.value + 0.01 End If End If End Sub
Sub MoinsUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false The n ActiveCell.value = ActiveCell.value - 0.01 End If End If End Sub
On 24 fév, 18:00, "milloche" wrote:
> Bonjour > Est-il possible de me traduire cette macro qui ne marche pas, bien sû r, en une > macro qui marche ? > Mais ou diable vais-je chercher ça ? > Cordialement > JMM
> 'Private Sub Worksheet_Change(ByVal Target As Range) > 'Ou-bien ? > 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) > 'If Target.Column = 6 And Target.Font.Bold = False Then > 'Attendre une action clavier > ' if action clavier = touche + du pavé numérique then > ' Target = Target + 0.01 > ' Elseif action clavier = touche - du pavé numérique then > ' Target = Target - 0.01 > 'Else > 'Exit sub > 'End If > 'End if > 'End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Arf désolé des erreurs. J'ai retranscrit trop vite le code adapté à ta
demande en laissant la séquence de la touche ALT(%) et en laissant une
coquille.
Il fallait mettre :
Application.OnKey "+", "PlusUn
Application.OnKey "-", "MoinsUn
On 25 fév, 12:54, "milloche" <mille.jean-marie...@neuf.fr> wrote:
Salut Crocblanc
Le + et - du clavier alpha étant désagréables (un avec shift et l'a utre non), je
vais faire comme toi avec les flèches droite et gauche.
A moins qu'un astucieux connaisse le KeyCode de + et - du pavé numéri que.
L'aide VB en tous cas ne connait pas. Mais avec les malins de ce forum... . on
sait jamais.
Merci en tous cas de ta "pompe" d'auteur inconnu.
Cordialement
"dunkelzahn" <dunkelzahn.dunkelz...@gmail.com> a écrit dans le message de news:
35bcdd47-f96d-4804-b417-0c7858d57...@o11g2000yql.googlegroups.com...
Bonjour,
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me
rappelle plus le lien où je devais utiliser la touche flèche droite o u
gauche. Je n'ai pas vu la possibilité de séparer le + du clavier
numérique et le + du clavier alphanumérique. En même temps, ce n'es t
pas trop grave.
Private Sub Workbook_Open()
Application.OnKey "%{+}", "PlusUn"
Application.OnKey "%{+}", "MoinsUn"
end sub
Sub PlusUn()
If ActiveSheet.CodeName = "Feuil1" Then
If ActiveCell.Column = 6 and ActiveCell.font.bold = false The n
ActiveCell.value = ActiveCell.value + 0.01
End If
End If
End Sub
Sub MoinsUn()
If ActiveSheet.CodeName = "Feuil1" Then
If ActiveCell.Column = 6 and ActiveCell.font.bold = false The n
ActiveCell.value = ActiveCell.value - 0.01
End If
End If
End Sub
On 24 fév, 18:00, "milloche" <mille.jean-marie...@neuf.fr> wrote:
> Bonjour
> Est-il possible de me traduire cette macro qui ne marche pas, bien sû r, en une
> macro qui marche ?
> Mais ou diable vais-je chercher ça ?
> Cordialement
> JMM
> 'Private Sub Worksheet_Change(ByVal Target As Range)
> 'Ou-bien ?
> 'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> 'If Target.Column = 6 And Target.Font.Bold = False Then
> 'Attendre une action clavier
> ' if action clavier = touche + du pavé numérique then
> ' Target = Target + 0.01
> ' Elseif action clavier = touche - du pavé numérique then
> ' Target = Target - 0.01
> 'Else
> 'Exit sub
> 'End If
> 'End if
> 'End Sub- Masquer le texte des messages précédents -
Arf désolé des erreurs. J'ai retranscrit trop vite le code adapté à ta demande en laissant la séquence de la touche ALT(%) et en laissant une coquille.
Il fallait mettre : Application.OnKey "+", "PlusUn Application.OnKey "-", "MoinsUn
On 25 fév, 12:54, "milloche" wrote:
Salut Crocblanc Le + et - du clavier alpha étant désagréables (un avec shift et l'a utre non), je vais faire comme toi avec les flèches droite et gauche. A moins qu'un astucieux connaisse le KeyCode de + et - du pavé numéri que. L'aide VB en tous cas ne connait pas. Mais avec les malins de ce forum... . on sait jamais. Merci en tous cas de ta "pompe" d'auteur inconnu. Cordialement
"dunkelzahn" a écrit dans le message de news:
Bonjour,
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me rappelle plus le lien où je devais utiliser la touche flèche droite o u gauche. Je n'ai pas vu la possibilité de séparer le + du clavier numérique et le + du clavier alphanumérique. En même temps, ce n'es t pas trop grave.
Private Sub Workbook_Open() Application.OnKey "%{+}", "PlusUn" Application.OnKey "%{+}", "MoinsUn" end sub
Sub PlusUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false The n ActiveCell.value = ActiveCell.value + 0.01 End If End If End Sub
Sub MoinsUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false The n ActiveCell.value = ActiveCell.value - 0.01 End If End If End Sub
On 24 fév, 18:00, "milloche" wrote:
> Bonjour > Est-il possible de me traduire cette macro qui ne marche pas, bien sû r, en une > macro qui marche ? > Mais ou diable vais-je chercher ça ? > Cordialement > JMM
> 'Private Sub Worksheet_Change(ByVal Target As Range) > 'Ou-bien ? > 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) > 'If Target.Column = 6 And Target.Font.Bold = False Then > 'Attendre une action clavier > ' if action clavier = touche + du pavé numérique then > ' Target = Target + 0.01 > ' Elseif action clavier = touche - du pavé numérique then > ' Target = Target - 0.01 > 'Else > 'Exit sub > 'End If > 'End if > 'End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
milloche
Arf Arf J'avais vu, mais ça ne change rien. C'est toujours le clavier alpha. Et tu oublie les guillemets à la fin. Alors ! Arf Arf Arf <{;o))
"dunkelzahn" a écrit dans le message de news:
Arf désolé des erreurs. J'ai retranscrit trop vite le code adapté à ta demande en laissant la séquence de la touche ALT(%) et en laissant une coquille.
Il fallait mettre : Application.OnKey "+", "PlusUn Application.OnKey "-", "MoinsUn
On 25 fév, 12:54, "milloche" wrote:
Salut Crocblanc Le + et - du clavier alpha étant désagréables (un avec shift et l'autre non), je vais faire comme toi avec les flèches droite et gauche. A moins qu'un astucieux connaisse le KeyCode de + et - du pavé numérique. L'aide VB en tous cas ne connait pas. Mais avec les malins de ce forum.... on sait jamais. Merci en tous cas de ta "pompe" d'auteur inconnu. Cordialement
"dunkelzahn" a écrit dans le message de news:
Bonjour,
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me rappelle plus le lien où je devais utiliser la touche flèche droite ou gauche. Je n'ai pas vu la possibilité de séparer le + du clavier numérique et le + du clavier alphanumérique. En même temps, ce n'est pas trop grave.
Private Sub Workbook_Open() Application.OnKey "%{+}", "PlusUn" Application.OnKey "%{+}", "MoinsUn" end sub
Sub PlusUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value + 0.01 End If End If End Sub
Sub MoinsUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value - 0.01 End If End If End Sub
On 24 fév, 18:00, "milloche" wrote:
> Bonjour > Est-il possible de me traduire cette macro qui ne marche pas, bien > sûr, en une > macro qui marche ? > Mais ou diable vais-je chercher ça ? > Cordialement > JMM
> 'Private Sub Worksheet_Change(ByVal Target As Range) > 'Ou-bien ? > 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) > 'If Target.Column = 6 And Target.Font.Bold = False Then > 'Attendre une action clavier > ' if action clavier = touche + du pavé numérique then > ' Target = Target + 0.01 > ' Elseif action clavier = touche - du pavé numérique then > ' Target = Target - 0.01 > 'Else > 'Exit sub > 'End If > 'End if > 'End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Arf Arf
J'avais vu, mais ça ne change rien.
C'est toujours le clavier alpha.
Et tu oublie les guillemets à la fin.
Alors !
Arf Arf Arf
<{;o))
"dunkelzahn" <dunkelzahn.dunkelzahn@gmail.com> a écrit dans le message
de news:
0de46287-17e9-43cc-8bed-acc66bf9cd63@n30g2000vba.googlegroups.com...
Arf désolé des erreurs. J'ai retranscrit trop vite le code adapté à ta
demande en laissant la séquence de la touche ALT(%) et en laissant une
coquille.
Il fallait mettre :
Application.OnKey "+", "PlusUn
Application.OnKey "-", "MoinsUn
On 25 fév, 12:54, "milloche" <mille.jean-marie...@neuf.fr> wrote:
Salut Crocblanc
Le + et - du clavier alpha étant désagréables (un avec shift et
l'autre non), je
vais faire comme toi avec les flèches droite et gauche.
A moins qu'un astucieux connaisse le KeyCode de + et - du pavé
numérique.
L'aide VB en tous cas ne connait pas. Mais avec les malins de ce
forum.... on
sait jamais.
Merci en tous cas de ta "pompe" d'auteur inconnu.
Cordialement
"dunkelzahn" <dunkelzahn.dunkelz...@gmail.com> a écrit dans le message
de news:
35bcdd47-f96d-4804-b417-0c7858d57...@o11g2000yql.googlegroups.com...
Bonjour,
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me
rappelle plus le lien où je devais utiliser la touche flèche droite ou
gauche. Je n'ai pas vu la possibilité de séparer le + du clavier
numérique et le + du clavier alphanumérique. En même temps, ce n'est
pas trop grave.
Private Sub Workbook_Open()
Application.OnKey "%{+}", "PlusUn"
Application.OnKey "%{+}", "MoinsUn"
end sub
Sub PlusUn()
If ActiveSheet.CodeName = "Feuil1" Then
If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then
ActiveCell.value = ActiveCell.value + 0.01
End If
End If
End Sub
Sub MoinsUn()
If ActiveSheet.CodeName = "Feuil1" Then
If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then
ActiveCell.value = ActiveCell.value - 0.01
End If
End If
End Sub
On 24 fév, 18:00, "milloche" <mille.jean-marie...@neuf.fr> wrote:
> Bonjour
> Est-il possible de me traduire cette macro qui ne marche pas, bien
> sûr, en une
> macro qui marche ?
> Mais ou diable vais-je chercher ça ?
> Cordialement
> JMM
> 'Private Sub Worksheet_Change(ByVal Target As Range)
> 'Ou-bien ?
> 'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> 'If Target.Column = 6 And Target.Font.Bold = False Then
> 'Attendre une action clavier
> ' if action clavier = touche + du pavé numérique then
> ' Target = Target + 0.01
> ' Elseif action clavier = touche - du pavé numérique then
> ' Target = Target - 0.01
> 'Else
> 'Exit sub
> 'End If
> 'End if
> 'End Sub- Masquer le texte des messages précédents -
Arf Arf J'avais vu, mais ça ne change rien. C'est toujours le clavier alpha. Et tu oublie les guillemets à la fin. Alors ! Arf Arf Arf <{;o))
"dunkelzahn" a écrit dans le message de news:
Arf désolé des erreurs. J'ai retranscrit trop vite le code adapté à ta demande en laissant la séquence de la touche ALT(%) et en laissant une coquille.
Il fallait mettre : Application.OnKey "+", "PlusUn Application.OnKey "-", "MoinsUn
On 25 fév, 12:54, "milloche" wrote:
Salut Crocblanc Le + et - du clavier alpha étant désagréables (un avec shift et l'autre non), je vais faire comme toi avec les flèches droite et gauche. A moins qu'un astucieux connaisse le KeyCode de + et - du pavé numérique. L'aide VB en tous cas ne connait pas. Mais avec les malins de ce forum.... on sait jamais. Merci en tous cas de ta "pompe" d'auteur inconnu. Cordialement
"dunkelzahn" a écrit dans le message de news:
Bonjour,
C'est un dérivé de la fonciton PlusUn pris sur un site dont je ne me rappelle plus le lien où je devais utiliser la touche flèche droite ou gauche. Je n'ai pas vu la possibilité de séparer le + du clavier numérique et le + du clavier alphanumérique. En même temps, ce n'est pas trop grave.
Private Sub Workbook_Open() Application.OnKey "%{+}", "PlusUn" Application.OnKey "%{+}", "MoinsUn" end sub
Sub PlusUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value + 0.01 End If End If End Sub
Sub MoinsUn() If ActiveSheet.CodeName = "Feuil1" Then If ActiveCell.Column = 6 and ActiveCell.font.bold = false Then ActiveCell.value = ActiveCell.value - 0.01 End If End If End Sub
On 24 fév, 18:00, "milloche" wrote:
> Bonjour > Est-il possible de me traduire cette macro qui ne marche pas, bien > sûr, en une > macro qui marche ? > Mais ou diable vais-je chercher ça ? > Cordialement > JMM
> 'Private Sub Worksheet_Change(ByVal Target As Range) > 'Ou-bien ? > 'Private Sub Worksheet_SelectionChange(ByVal Target As Range) > 'If Target.Column = 6 And Target.Font.Bold = False Then > 'Attendre une action clavier > ' if action clavier = touche + du pavé numérique then > ' Target = Target + 0.01 > ' Elseif action clavier = touche - du pavé numérique then > ' Target = Target - 0.01 > 'Else > 'Exit sub > 'End If > 'End if > 'End Sub- Masquer le texte des messages précédents -
