Est-il possible de saisir un chiffre et d'en avoir un autre ?
Je m'explique, je dois saisir des chiffres qui doivent =EAtre multiplier
par 5, est ce que je suis obliger de mettre =E0 la fin de chaque saisie
de chiffres "*5" ou de rajouter une colonne qui le ferais ?
En clair est possible de saisir sur une formule sans l'=E9craser mais au
contraire y rajouter un argument.
Saisir et avoir un r=E9sultat sur la m=EAme cellule, possible o=F9 non ?
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
JB
Bonjour,
B2:B10 champ de saisie
Clic-droit onglet/visualiser code:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10], Target) Is Nothing Then Application.EnableEvents = False Target = Target * 5 Application.EnableEvents = True End If End Sub
JB
On 12 juin, 09:39, Ceno wrote:
Bonjour à tous,
Est-il possible de saisir un chiffre et d'en avoir un autre ?
Je m'explique, je dois saisir des chiffres qui doivent être multiplier par 5, est ce que je suis obliger de mettre à la fin de chaque saisie de chiffres "*5" ou de rajouter une colonne qui le ferais ?
En clair est possible de saisir sur une formule sans l'écraser mais au contraire y rajouter un argument.
Saisir et avoir un résultat sur la même cellule, possible où non ?
Bonjour,
B2:B10 champ de saisie
Clic-droit onglet/visualiser code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B10], Target) Is Nothing Then
Application.EnableEvents = False
Target = Target * 5
Application.EnableEvents = True
End If
End Sub
JB
On 12 juin, 09:39, Ceno <cedric-...@ifrance.com> wrote:
Bonjour à tous,
Est-il possible de saisir un chiffre et d'en avoir un autre ?
Je m'explique, je dois saisir des chiffres qui doivent être multiplier
par 5, est ce que je suis obliger de mettre à la fin de chaque saisie
de chiffres "*5" ou de rajouter une colonne qui le ferais ?
En clair est possible de saisir sur une formule sans l'écraser mais au
contraire y rajouter un argument.
Saisir et avoir un résultat sur la même cellule, possible où non ?
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10], Target) Is Nothing Then Application.EnableEvents = False Target = Target * 5 Application.EnableEvents = True End If End Sub
JB
On 12 juin, 09:39, Ceno wrote:
Bonjour à tous,
Est-il possible de saisir un chiffre et d'en avoir un autre ?
Je m'explique, je dois saisir des chiffres qui doivent être multiplier par 5, est ce que je suis obliger de mettre à la fin de chaque saisie de chiffres "*5" ou de rajouter une colonne qui le ferais ?
En clair est possible de saisir sur une formule sans l'écraser mais au contraire y rajouter un argument.
Saisir et avoir un résultat sur la même cellule, possible où non ?
Ceno
Je te remercie JB,
Ca marche super, un petit souci cependant, je ne peut plus supprimer mes chiffres sans avoir un message erreur.
En tout cas merci
Je te remercie JB,
Ca marche super, un petit souci cependant, je ne peut plus supprimer
mes chiffres sans avoir un message erreur.
Ca marche super, un petit souci cependant, je ne peut plus supprimer mes chiffres sans avoir un message erreur.
En tout cas merci
JB
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1 Then Application.EnableEvents = False Target = Target * 5 Application.EnableEvents = True End If End Sub
JB
On 12 juin, 10:01, Ceno wrote:
Je te remercie JB,
Ca marche super, un petit souci cependant, je ne peut plus supprimer mes chiffres sans avoir un message erreur.
En tout cas merci
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1
Then
Application.EnableEvents = False
Target = Target * 5
Application.EnableEvents = True
End If
End Sub
JB
On 12 juin, 10:01, Ceno <cedric-...@ifrance.com> wrote:
Je te remercie JB,
Ca marche super, un petit souci cependant, je ne peut plus supprimer
mes chiffres sans avoir un message erreur.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([B2:B10], Target) Is Nothing And Target.Count = 1 Then Application.EnableEvents = False Target = Target * 5 Application.EnableEvents = True End If End Sub
JB
On 12 juin, 10:01, Ceno wrote:
Je te remercie JB,
Ca marche super, un petit souci cependant, je ne peut plus supprimer mes chiffres sans avoir un message erreur.
En tout cas merci
Ceno
Encore merci JB,
Encore un petit truc, une fois un chiffre saisi je ne peux plus supprimer le contenu de la cellules sans avoir un 0 à la place comment faire pour supprimer un chiffre et que la cellule redevienne vide ?
Ha oui autre chose comment faire pour sélectionner plusieurs plage de à convertir ?
Encore merci JB
Encore merci JB,
Encore un petit truc, une fois un chiffre saisi je ne peux plus
supprimer le contenu de la cellules sans avoir un 0 à la place comment
faire pour supprimer un chiffre et que la cellule redevienne vide ?
Ha oui autre chose comment faire pour sélectionner plusieurs plage de
à convertir ?
Encore un petit truc, une fois un chiffre saisi je ne peux plus supprimer le contenu de la cellules sans avoir un 0 à la place comment faire pour supprimer un chiffre et que la cellule redevienne vide ?
Ha oui autre chose comment faire pour sélectionner plusieurs plage de à convertir ?
Encore merci JB
JB
Outils/options/Affichage Décocher Valeurs Zéros
JB
On 12 juin, 10:45, Ceno wrote:
Encore merci JB,
Encore un petit truc, une fois un chiffre saisi je ne peux plus supprimer le contenu de la cellules sans avoir un 0 à la place comment faire pour supprimer un chiffre et que la cellule redevienne vide ?
Ha oui autre chose comment faire pour sélectionner plusieurs plage de à convertir ?
Encore merci JB
Outils/options/Affichage Décocher Valeurs Zéros
JB
On 12 juin, 10:45, Ceno <cedric-...@ifrance.com> wrote:
Encore merci JB,
Encore un petit truc, une fois un chiffre saisi je ne peux plus
supprimer le contenu de la cellules sans avoir un 0 à la place comment
faire pour supprimer un chiffre et que la cellule redevienne vide ?
Ha oui autre chose comment faire pour sélectionner plusieurs plage de
à convertir ?
Encore un petit truc, une fois un chiffre saisi je ne peux plus supprimer le contenu de la cellules sans avoir un 0 à la place comment faire pour supprimer un chiffre et que la cellule redevienne vide ?
Ha oui autre chose comment faire pour sélectionner plusieurs plage de à convertir ?
Encore merci JB
Ceno
Merci pour la suppression des 0.
Juste une dernière chose, comment je peux dire qu'il me multiplie par 5 de la B2 à B10 puis de la E2 à E10 sans qu'il prenne de la C2 à la D10.
Encore Merci
Merci pour la suppression des 0.
Juste une dernière chose, comment je peux dire qu'il me multiplie par
5 de la B2 à B10 puis de la E2 à E10 sans qu'il prenne de la C2 à la
D10.
Donne un nom à la plage concernée, "Saisie" paer exemple, et modifie le Intersect :
If Not Intersect(Range("Saisie", Target) Is Nothing Then
Merci pour la suppression des 0.
Juste une dernière chose, comment je peux dire qu'il me multiplie par 5 de la B2 à B10 puis de la E2 à E10 sans qu'il prenne de la C2 à la D10.
Encore Merci
-- Cordialement,
Michel Gaboly www.gaboly.com
JB
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("B2:B10,E2:E10"), Target) Is Nothing And Target.Count = 1 Then Application.EnableEvents = False Target = Target * 5 Application.EnableEvents = True End If End Sub
JB
On 12 juin, 11:08, Ceno wrote:
Merci pour la suppression des 0.
Juste une dernière chose, comment je peux dire qu'il me multiplie par 5 de la B2 à B10 puis de la E2 à E10 sans qu'il prenne de la C2 à la D10.
Encore Merci
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B2:B10,E2:E10"), Target) Is Nothing And
Target.Count = 1 Then
Application.EnableEvents = False
Target = Target * 5
Application.EnableEvents = True
End If
End Sub
JB
On 12 juin, 11:08, Ceno <cedric-...@ifrance.com> wrote:
Merci pour la suppression des 0.
Juste une dernière chose, comment je peux dire qu'il me multiplie par
5 de la B2 à B10 puis de la E2 à E10 sans qu'il prenne de la C2 à la
D10.
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("B2:B10,E2:E10"), Target) Is Nothing And Target.Count = 1 Then Application.EnableEvents = False Target = Target * 5 Application.EnableEvents = True End If End Sub
JB
On 12 juin, 11:08, Ceno wrote:
Merci pour la suppression des 0.
Juste une dernière chose, comment je peux dire qu'il me multiplie par 5 de la B2 à B10 puis de la E2 à E10 sans qu'il prenne de la C2 à la D10.