Salut,
je voudrais avoir a l=92=E9cran sur un userform ou encadre tel le cadran
d'une calculatrice le r=E9sultat de tous les chiffres que je saisie. Un
cadran fixe et qui ne d=E9file pas au fur et =E0 mesure de la saisie dans
les cellules. Merci
MichD -------------------------------------------- "Ylias" a écrit dans le message de groupe de discussion :
Salut, je voudrais avoir a l’écran sur un userform ou encadre tel le cadran d'une calculatrice le résultat de tous les chiffres que je saisie. Un cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans les cellules. Merci
Bonjour,
Aucune idée de ce que tu veux.
MichD
--------------------------------------------
"Ylias" a écrit dans le message de groupe de discussion :
e3c056f6-3b07-4068-b1a0-c517271057cc@34g2000pru.googlegroups.com...
Salut,
je voudrais avoir a l’écran sur un userform ou encadre tel le cadran
d'une calculatrice le résultat de tous les chiffres que je saisie. Un
cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans
les cellules. Merci
MichD -------------------------------------------- "Ylias" a écrit dans le message de groupe de discussion :
Salut, je voudrais avoir a l’écran sur un userform ou encadre tel le cadran d'une calculatrice le résultat de tous les chiffres que je saisie. Un cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans les cellules. Merci
Ylias
Je m'explique. Vous avez une colonne A de 200 nombres. Je voudrais la somme de cette colonne à lécran a tout moment même si je vais à la cellule A1 ou A200. Un peu comme lécran des machines de caisse des supermarchés.
Je m'explique. Vous avez une colonne A de 200 nombres. Je voudrais la
somme de cette colonne à lécran a tout moment même si je vais à la
cellule A1 ou A200. Un peu comme lécran des machines de caisse des
supermarchés.
Je m'explique. Vous avez une colonne A de 200 nombres. Je voudrais la somme de cette colonne à lécran a tout moment même si je vais à la cellule A1 ou A200. Un peu comme lécran des machines de caisse des supermarchés.
MichD
Un fichier exemple quant à la manière de saisir des données et d'additionner des textbox au fur et à mesure que l'on modifie un chiffre dans l'un des textbox.
Si tu veux avoir la somme de la colonne A1:A200, Userform1.Textbox = Application.Sum(Worksheets("Feuil1").range("A1:A200")) et ce à chaque fois que ton action modifie une valeur de cette plage. Pour ce faire, tu emploies les événements des contrôles que ton application utilise.
MichD -------------------------------------------- "Ylias" a écrit dans le message de groupe de discussion :
Je m'explique. Vous avez une colonne A de 200 nombres. Je voudrais la somme de cette colonne à l’écran a tout moment même si je vais à la cellule A1 ou A200. Un peu comme l’écran des machines de caisse des supermarchés.
Un fichier exemple quant à la manière de saisir des données et d'additionner des textbox
au fur et à mesure que l'on modifie un chiffre dans l'un des textbox.
Si tu veux avoir la somme de la colonne A1:A200,
Userform1.Textbox = Application.Sum(Worksheets("Feuil1").range("A1:A200"))
et ce à chaque fois que ton action modifie une valeur de cette plage. Pour ce
faire, tu emploies les événements des contrôles que ton application utilise.
MichD
--------------------------------------------
"Ylias" a écrit dans le message de groupe de discussion :
eb98a6bd-fcc7-4138-8b09-1be58d15affa@q14g2000prh.googlegroups.com...
Je m'explique. Vous avez une colonne A de 200 nombres. Je voudrais la
somme de cette colonne à l’écran a tout moment même si je vais à la
cellule A1 ou A200. Un peu comme l’écran des machines de caisse des
supermarchés.
Un fichier exemple quant à la manière de saisir des données et d'additionner des textbox au fur et à mesure que l'on modifie un chiffre dans l'un des textbox.
Si tu veux avoir la somme de la colonne A1:A200, Userform1.Textbox = Application.Sum(Worksheets("Feuil1").range("A1:A200")) et ce à chaque fois que ton action modifie une valeur de cette plage. Pour ce faire, tu emploies les événements des contrôles que ton application utilise.
MichD -------------------------------------------- "Ylias" a écrit dans le message de groupe de discussion :
Je m'explique. Vous avez une colonne A de 200 nombres. Je voudrais la somme de cette colonne à l’écran a tout moment même si je vais à la cellule A1 ou A200. Un peu comme l’écran des machines de caisse des supermarchés.
Jacky
Bonsoir,
Un cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans les cellules
Autre exemple... http://www.cijoint.fr/cjlink.php?file=cj201105/cijR75uJ60.xls
-- Salutations JJ
"Ylias" a écrit dans le message de news:
Salut, je voudrais avoir a l’écran sur un userform ou encadre tel le cadran d'une calculatrice le résultat de tous les chiffres que je saisie. Un cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans les cellules. Merci
Bonsoir,
Un cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans les cellules
Autre exemple...
http://www.cijoint.fr/cjlink.php?file=cj201105/cijR75uJ60.xls
--
Salutations
JJ
"Ylias" <ilissou@gmail.com> a écrit dans le message de news:
e3c056f6-3b07-4068-b1a0-c517271057cc@34g2000pru.googlegroups.com...
Salut,
je voudrais avoir a l’écran sur un userform ou encadre tel le cadran
d'une calculatrice le résultat de tous les chiffres que je saisie. Un
cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans
les cellules. Merci
Un cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans les cellules
Autre exemple... http://www.cijoint.fr/cjlink.php?file=cj201105/cijR75uJ60.xls
-- Salutations JJ
"Ylias" a écrit dans le message de news:
Salut, je voudrais avoir a l’écran sur un userform ou encadre tel le cadran d'une calculatrice le résultat de tous les chiffres que je saisie. Un cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans les cellules. Merci
Ylias
Merci à vous. Le Userform1 et le Textbox1 ont l'air de marcher. Mais comment afficher le userform1 dès la saisie de la 1ère cellule ou deuxieme au clavier. Et chaque je fais entrée au clavier, comment mettre à jour le Textbox1. Sympa votre soutien.
Merci à vous.
Le Userform1 et le Textbox1 ont l'air de marcher. Mais comment
afficher le userform1 dès la saisie de la 1ère cellule ou deuxieme au
clavier. Et chaque je fais entrée au clavier, comment mettre à jour le
Textbox1.
Sympa votre soutien.
Merci à vous. Le Userform1 et le Textbox1 ont l'air de marcher. Mais comment afficher le userform1 dès la saisie de la 1ère cellule ou deuxieme au clavier. Et chaque je fais entrée au clavier, comment mettre à jour le Textbox1. Sympa votre soutien.
Péhemme
Bonjour Ylias,
De mon côté je me suis amusé à ça : Après avoir incorporé un Label sur ta feuille, et dans le code de la feuille : Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) With Feuil1.Shapes("Label1") .Top = Rows(((ActiveCell.Row) + 2)).Top .Left = Columns((ActiveCell.Column) + 3).Left End With Feuil1.Label1.Caption = Application.WorksheetFunction.Sum(Range("A1:A" & ActiveCell.Row)) End Sub "Ylias" a écrit dans le message de news: Salut, je voudrais avoir a l’écran sur un userform ou encadre tel le cadran d'une calculatrice le résultat de tous les chiffres que je saisie. Un cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans les cellules. Merci
Bonjour Ylias,
De mon côté je me suis amusé à ça :
Après avoir incorporé un Label sur ta feuille, et dans le code de la feuille
:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Feuil1.Shapes("Label1")
.Top = Rows(((ActiveCell.Row) + 2)).Top
.Left = Columns((ActiveCell.Column) + 3).Left
End With
Feuil1.Label1.Caption = Application.WorksheetFunction.Sum(Range("A1:A" &
ActiveCell.Row))
End Sub
"Ylias" <ilissou@gmail.com> a écrit dans le message de
news:e3c056f6-3b07-4068-b1a0-c517271057cc@34g2000pru.googlegroups.com...
Salut,
je voudrais avoir a l’écran sur un userform ou encadre tel le cadran
d'une calculatrice le résultat de tous les chiffres que je saisie. Un
cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans
les cellules. Merci
De mon côté je me suis amusé à ça : Après avoir incorporé un Label sur ta feuille, et dans le code de la feuille : Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) With Feuil1.Shapes("Label1") .Top = Rows(((ActiveCell.Row) + 2)).Top .Left = Columns((ActiveCell.Column) + 3).Left End With Feuil1.Label1.Caption = Application.WorksheetFunction.Sum(Range("A1:A" & ActiveCell.Row)) End Sub "Ylias" a écrit dans le message de news: Salut, je voudrais avoir a l’écran sur un userform ou encadre tel le cadran d'une calculatrice le résultat de tous les chiffres que je saisie. Un cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans les cellules. Merci
Péhemme
Pour faire comme mes petits camarades, que je salue au passage : http://www.cijoint.fr/cjlink.php?file=cj201105/cijcV7fz1j.xls
Michel
"Péhemme" a écrit dans le message de news:4dcc42a9$0$30790$
Bonjour Ylias,
De mon côté je me suis amusé à ça : Après avoir incorporé un Label sur ta feuille, et dans le code de la feuille : Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) With Feuil1.Shapes("Label1") .Top = Rows(((ActiveCell.Row) + 2)).Top .Left = Columns((ActiveCell.Column) + 3).Left End With Feuil1.Label1.Caption = Application.WorksheetFunction.Sum(Range("A1:A" & ActiveCell.Row)) End Sub "Ylias" a écrit dans le message de news: Salut, je voudrais avoir a l’écran sur un userform ou encadre tel le cadran d'une calculatrice le résultat de tous les chiffres que je saisie. Un cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans les cellules. Merci
Pour faire comme mes petits camarades, que je salue au passage :
http://www.cijoint.fr/cjlink.php?file=cj201105/cijcV7fz1j.xls
Michel
"Péhemme" <xx@xx.xx> a écrit dans le message de
news:4dcc42a9$0$30790$ba4acef3@reader.news.orange.fr...
Bonjour Ylias,
De mon côté je me suis amusé à ça :
Après avoir incorporé un Label sur ta feuille, et dans le code de la
feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Feuil1.Shapes("Label1")
.Top = Rows(((ActiveCell.Row) + 2)).Top
.Left = Columns((ActiveCell.Column) + 3).Left
End With
Feuil1.Label1.Caption = Application.WorksheetFunction.Sum(Range("A1:A"
& ActiveCell.Row))
End Sub
"Ylias" <ilissou@gmail.com> a écrit dans le message de
news:e3c056f6-3b07-4068-b1a0-c517271057cc@34g2000pru.googlegroups.com...
Salut,
je voudrais avoir a l’écran sur un userform ou encadre tel le cadran
d'une calculatrice le résultat de tous les chiffres que je saisie. Un
cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans
les cellules. Merci
Pour faire comme mes petits camarades, que je salue au passage : http://www.cijoint.fr/cjlink.php?file=cj201105/cijcV7fz1j.xls
Michel
"Péhemme" a écrit dans le message de news:4dcc42a9$0$30790$
Bonjour Ylias,
De mon côté je me suis amusé à ça : Après avoir incorporé un Label sur ta feuille, et dans le code de la feuille : Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) With Feuil1.Shapes("Label1") .Top = Rows(((ActiveCell.Row) + 2)).Top .Left = Columns((ActiveCell.Column) + 3).Left End With Feuil1.Label1.Caption = Application.WorksheetFunction.Sum(Range("A1:A" & ActiveCell.Row)) End Sub "Ylias" a écrit dans le message de news: Salut, je voudrais avoir a l’écran sur un userform ou encadre tel le cadran d'une calculatrice le résultat de tous les chiffres que je saisie. Un cadran fixe et qui ne défile pas au fur et à mesure de la saisie dans les cellules. Merci
Maude Este
Bonsour®
"Ylias" a écrit -
Merci à vous.
autre exemple : code à copier dans le module de la feuille souhaitée :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' ============= création de bulle info si selection dans la plage If Not Intersect(ActiveCell, Range("a1:a200")) Is Nothing Then ' ============= Teste si pré-existence de la bulle info. On Error Resume Next ActiveSheet.Shapes("InfoYlias").Delete On Error GoTo 0 Set w = ActiveCell ' ============= Ajoute la bulle ActiveSheet.Shapes.AddShape(msoShapeUpDownArrowCallout, w.Offset(0, 1).Left, w.Top, 2 * w.Width, 6 * w.Height).Name = "InfoYlias" With ActiveSheet.Shapes("infoYlias") ' ============= Affichage de la somme de la plage considérée en colonne A .TextFrame.Characters.Text = Application.Sum(Range("a1:a200")) End With Else '============= pas de bulle si selection pas dans la plage On Error Resume Next ActiveSheet.Shapes("InfoYlias").Delete On Error GoTo 0 End If End Sub
Bonsour®
"Ylias" a écrit -
Merci à vous.
autre exemple :
code à copier dans le module de la feuille souhaitée :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' ============= création de bulle info si selection dans la plage
If Not Intersect(ActiveCell, Range("a1:a200")) Is Nothing Then
' ============= Teste si pré-existence de la bulle info.
On Error Resume Next
ActiveSheet.Shapes("InfoYlias").Delete
On Error GoTo 0
Set w = ActiveCell
' ============= Ajoute la bulle
ActiveSheet.Shapes.AddShape(msoShapeUpDownArrowCallout, w.Offset(0, 1).Left,
w.Top, 2 * w.Width, 6 * w.Height).Name = "InfoYlias"
With ActiveSheet.Shapes("infoYlias")
' ============= Affichage de la somme de la plage considérée en colonne A
.TextFrame.Characters.Text = Application.Sum(Range("a1:a200"))
End With
Else
'============= pas de bulle si selection pas dans la plage
On Error Resume Next
ActiveSheet.Shapes("InfoYlias").Delete
On Error GoTo 0
End If
End Sub
autre exemple : code à copier dans le module de la feuille souhaitée :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' ============= création de bulle info si selection dans la plage If Not Intersect(ActiveCell, Range("a1:a200")) Is Nothing Then ' ============= Teste si pré-existence de la bulle info. On Error Resume Next ActiveSheet.Shapes("InfoYlias").Delete On Error GoTo 0 Set w = ActiveCell ' ============= Ajoute la bulle ActiveSheet.Shapes.AddShape(msoShapeUpDownArrowCallout, w.Offset(0, 1).Left, w.Top, 2 * w.Width, 6 * w.Height).Name = "InfoYlias" With ActiveSheet.Shapes("infoYlias") ' ============= Affichage de la somme de la plage considérée en colonne A .TextFrame.Characters.Text = Application.Sum(Range("a1:a200")) End With Else '============= pas de bulle si selection pas dans la plage On Error Resume Next ActiveSheet.Shapes("InfoYlias").Delete On Error GoTo 0 End If End Sub
Ylias
On 12 mai, 21:02, "Maude Este" wrote:
Bonsour®
"Ylias" a écrit -> Merci à vous.
autre exemple : code à copier dans le module de la feuille souhaitée :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' ============= création de bulle info si sel ection dans la plage If Not Intersect(ActiveCell, Range("a1:a200")) Is Nothing Then ' ============= Teste si pré-existence de la bulle info. On Error Resume Next ActiveSheet.Shapes("InfoYlias").Delete On Error GoTo 0 Set w = ActiveCell ' ============= Ajoute la bulle ActiveSheet.Shapes.AddShape(msoShapeUpDownArrowCallout, w.Offset(0, 1).Le ft, w.Top, 2 * w.Width, 6 * w.Height).Name = "InfoYlias" With ActiveSheet.Shapes("infoYlias") ' ============= Affichage de la somme de la pla ge considérée en colonne A .TextFrame.Characters.Text = Application.Sum(Range("a1:a200")) End With Else '============= pas de bulle si selection pas da ns la plage On Error Resume Next ActiveSheet.Shapes("InfoYlias").Delete On Error GoTo 0 End If End Sub
Ya peut etre une erreur dans le paragraphe ========== === Ajoute la bulle! il est souligna en rouge dans vbe
On 12 mai, 21:02, "Maude Este" <nom...@live.fr> wrote:
Bonsour®
"Ylias" a écrit -> Merci à vous.
autre exemple :
code à copier dans le module de la feuille souhaitée :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' ============= création de bulle info si sel ection dans la plage
If Not Intersect(ActiveCell, Range("a1:a200")) Is Nothing Then
' ============= Teste si pré-existence de la bulle info.
On Error Resume Next
ActiveSheet.Shapes("InfoYlias").Delete
On Error GoTo 0
Set w = ActiveCell
' ============= Ajoute la bulle
ActiveSheet.Shapes.AddShape(msoShapeUpDownArrowCallout, w.Offset(0, 1).Le ft,
w.Top, 2 * w.Width, 6 * w.Height).Name = "InfoYlias"
With ActiveSheet.Shapes("infoYlias")
' ============= Affichage de la somme de la pla ge considérée en colonne A
.TextFrame.Characters.Text = Application.Sum(Range("a1:a200"))
End With
Else
'============= pas de bulle si selection pas da ns la plage
On Error Resume Next
ActiveSheet.Shapes("InfoYlias").Delete
On Error GoTo 0
End If
End Sub
Ya peut etre une erreur dans le paragraphe ========== === Ajoute la
bulle! il est souligna en rouge dans vbe
autre exemple : code à copier dans le module de la feuille souhaitée :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' ============= création de bulle info si sel ection dans la plage If Not Intersect(ActiveCell, Range("a1:a200")) Is Nothing Then ' ============= Teste si pré-existence de la bulle info. On Error Resume Next ActiveSheet.Shapes("InfoYlias").Delete On Error GoTo 0 Set w = ActiveCell ' ============= Ajoute la bulle ActiveSheet.Shapes.AddShape(msoShapeUpDownArrowCallout, w.Offset(0, 1).Le ft, w.Top, 2 * w.Width, 6 * w.Height).Name = "InfoYlias" With ActiveSheet.Shapes("infoYlias") ' ============= Affichage de la somme de la pla ge considérée en colonne A .TextFrame.Characters.Text = Application.Sum(Range("a1:a200")) End With Else '============= pas de bulle si selection pas da ns la plage On Error Resume Next ActiveSheet.Shapes("InfoYlias").Delete On Error GoTo 0 End If End Sub
Ya peut etre une erreur dans le paragraphe ========== === Ajoute la bulle! il est souligna en rouge dans vbe
Maude Este
Bonsour®
"Ylias" a écrit
Ya peut etre une erreur dans le paragraphe ============= Ajoute la bulle! il est souligna en rouge dans vbe