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
jps
bonjour sanaell tu pourrais utiliser un Spinbutton : tu le montes dans ta feuille via le bouton Autres Contrôles (le marteau et la clé) de ta barre d'outils et dans ta liste tu choisis Microsoft Forms 2.0 Spinbutton ton curseur prends la forme d'une croix fine et en pressant ta souris, tu n'as plus qu'à installer le Spinbutton sur ta feuille ; il va y apparaître avec ses poignées de redimensionnement sur lesquelles tu vas pouvoir jouer pour lui donner la taille que tu veux ; ensuite, tu cliques droit sur lui (il doit toujours ses poignées) et dans la liste déroulante, tu cliques gauche sur Visualiser le code et dans la fenêtre qui s'affiche, tu vas avoir cela : Private Sub SpinButton4_Change()
End Sub tu positionnes ton curseur en dessous (ou au dessus, pas grave!!) de ces lignes et tu y copies cela :
Private Sub SpinButton1_SpinUp() ActiveCell.Value = ActiveCell.Value + 1 End Sub Private Sub SpinButton1_Spindown() ActiveCell.Value = ActiveCell.Value - 1 End Sub
tu reviens ensuite sur ta feuille excel, et tu vois que dans ta barre d'outils, à gauche du bouton Autres Controles, tu as un bouton Equerre et crayon qui est comme "allumé" ; tu l'éteins en le cliquant (ce bouton Mode création te permet de modifier les propriétés de ton Spinbutton) ; ensuite, tu t'installes dans une cellule qui a une valeur et tu cliques sur l'une et l'autre des flèches noires du Spinbutton ; tu vas voir alors cette valeur s'incrémenter de + 1 ou -1 selon la flèche cliquée voili, voilou HTH jps
"Sanaell" a écrit dans le message de news:
Bonjour voici ce que je voudrais par exemple si j'ai 100 je voudrais que en tapant + cela mette 101 dans la cellule que j aurais selectionner avant
si possible même chose mais avec "-" (100 -> 99)
Merci d'avance
bonjour sanaell
tu pourrais utiliser un Spinbutton : tu le montes dans ta feuille via le
bouton Autres Contrôles (le marteau et la clé) de ta barre d'outils et dans
ta liste tu choisis Microsoft Forms 2.0 Spinbutton
ton curseur prends la forme d'une croix fine et en pressant ta souris, tu
n'as plus qu'à installer le Spinbutton sur ta feuille ; il va y apparaître
avec ses poignées de redimensionnement sur lesquelles tu vas pouvoir jouer
pour lui donner la taille que tu veux ; ensuite, tu cliques droit sur lui
(il doit toujours ses poignées) et dans la liste déroulante, tu cliques
gauche sur Visualiser le code et dans la fenêtre qui s'affiche, tu vas avoir
cela :
Private Sub SpinButton4_Change()
End Sub
tu positionnes ton curseur en dessous (ou au dessus, pas grave!!) de ces
lignes et tu y copies cela :
Private Sub SpinButton1_SpinUp()
ActiveCell.Value = ActiveCell.Value + 1
End Sub
Private Sub SpinButton1_Spindown()
ActiveCell.Value = ActiveCell.Value - 1
End Sub
tu reviens ensuite sur ta feuille excel, et tu vois que dans ta barre
d'outils, à gauche du bouton Autres Controles, tu as un bouton Equerre et
crayon qui est comme "allumé" ; tu l'éteins en le cliquant (ce bouton Mode
création te permet de modifier les propriétés de ton Spinbutton) ; ensuite,
tu t'installes dans une cellule qui a une valeur et tu cliques sur l'une et
l'autre des flèches noires du Spinbutton ; tu vas voir alors cette valeur
s'incrémenter de + 1 ou -1 selon la flèche cliquée
voili, voilou
HTH
jps
"Sanaell" <Sanaell@discussions.microsoft.com> a écrit dans le message de
news: 290342F3-EBCD-4D8F-8D5E-06B69CA82750@microsoft.com...
Bonjour voici ce que je voudrais
par exemple si j'ai 100 je voudrais que en tapant + cela mette 101 dans la
cellule que j aurais selectionner avant
bonjour sanaell tu pourrais utiliser un Spinbutton : tu le montes dans ta feuille via le bouton Autres Contrôles (le marteau et la clé) de ta barre d'outils et dans ta liste tu choisis Microsoft Forms 2.0 Spinbutton ton curseur prends la forme d'une croix fine et en pressant ta souris, tu n'as plus qu'à installer le Spinbutton sur ta feuille ; il va y apparaître avec ses poignées de redimensionnement sur lesquelles tu vas pouvoir jouer pour lui donner la taille que tu veux ; ensuite, tu cliques droit sur lui (il doit toujours ses poignées) et dans la liste déroulante, tu cliques gauche sur Visualiser le code et dans la fenêtre qui s'affiche, tu vas avoir cela : Private Sub SpinButton4_Change()
End Sub tu positionnes ton curseur en dessous (ou au dessus, pas grave!!) de ces lignes et tu y copies cela :
Private Sub SpinButton1_SpinUp() ActiveCell.Value = ActiveCell.Value + 1 End Sub Private Sub SpinButton1_Spindown() ActiveCell.Value = ActiveCell.Value - 1 End Sub
tu reviens ensuite sur ta feuille excel, et tu vois que dans ta barre d'outils, à gauche du bouton Autres Controles, tu as un bouton Equerre et crayon qui est comme "allumé" ; tu l'éteins en le cliquant (ce bouton Mode création te permet de modifier les propriétés de ton Spinbutton) ; ensuite, tu t'installes dans une cellule qui a une valeur et tu cliques sur l'une et l'autre des flèches noires du Spinbutton ; tu vas voir alors cette valeur s'incrémenter de + 1 ou -1 selon la flèche cliquée voili, voilou HTH jps
"Sanaell" a écrit dans le message de news:
Bonjour voici ce que je voudrais par exemple si j'ai 100 je voudrais que en tapant + cela mette 101 dans la cellule que j aurais selectionner avant
si possible même chose mais avec "-" (100 -> 99)
Merci d'avance
anonymousA
Bonjour,
autre solution possible. A mettre dans le module de feuille où se trouve la cellule. Ici j'ai supposé que la cellule en question est en A1. Anoter qu'il faut une 1ere fois initialiser la variable valeur par tout moyen possible et qu'une fois rentrée cette valeur on ne peut plus changer la valeur de la cellule A1 autrement que par + et - mais peut-être est-ce ce que tu cherches.Par ailleurs, cette proc est difficilement extensible à de nombreuses cellules.
Private valeur
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value = "+" Then valeur = valeur + 1 If Target.Value = "-" Then valeur = valeur - 1 Target.Value = valeur
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then valeur = Target
End Sub
A+
Bonjour voici ce que je voudrais par exemple si j'ai 100 je voudrais que en tapant + cela mette 101 dans la cellule que j aurais selectionner avant
si possible même chose mais avec "-" (100 -> 99)
Merci d'avance
Bonjour,
autre solution possible. A mettre dans le module de feuille où se trouve
la cellule. Ici j'ai supposé que la cellule en question est en A1.
Anoter qu'il faut une 1ere fois initialiser la variable valeur par tout
moyen possible et qu'une fois rentrée cette valeur on ne peut plus
changer la valeur de la cellule A1 autrement que par + et - mais
peut-être est-ce ce que tu cherches.Par ailleurs, cette proc est
difficilement extensible à de nombreuses cellules.
Private valeur
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value = "+" Then valeur = valeur + 1
If Target.Value = "-" Then valeur = valeur - 1
Target.Value = valeur
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then valeur = Target
End Sub
A+
Bonjour voici ce que je voudrais
par exemple si j'ai 100 je voudrais que en tapant + cela mette 101 dans la
cellule que j aurais selectionner avant
autre solution possible. A mettre dans le module de feuille où se trouve la cellule. Ici j'ai supposé que la cellule en question est en A1. Anoter qu'il faut une 1ere fois initialiser la variable valeur par tout moyen possible et qu'une fois rentrée cette valeur on ne peut plus changer la valeur de la cellule A1 autrement que par + et - mais peut-être est-ce ce que tu cherches.Par ailleurs, cette proc est difficilement extensible à de nombreuses cellules.
Private valeur
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value = "+" Then valeur = valeur + 1 If Target.Value = "-" Then valeur = valeur - 1 Target.Value = valeur
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then valeur = Target
End Sub
A+
Bonjour voici ce que je voudrais par exemple si j'ai 100 je voudrais que en tapant + cela mette 101 dans la cellule que j aurais selectionner avant