Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel formule excel

formule excel

8 réponses
Avatar
maurice02
bjr,

j'aimerai trouver la composition d'une formule pour multipliee
automatiquement la valeur entree au clavier par un multiplicateur fixe.

EX : je veux entrer la valeur 15.23 et je veux qu'elle s'affiche dans la
cellule multipliee par 5,4. l'affichage devra etre le resultat

merci de votre aide

il s'agit du logiciel EXCEL !!!!!

j'attends vos reponses avec impatience

merci


--
maurice02@wanadoo.fr
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Manu
a mon niveau, je peux te proposer cela pour A1 et B1 dans ta feuil ou tu
travail avec l'evenement ci dessous

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = [A1] * 3
[B1] = [B1] * 3
End Sub

Mais attention, si tu retournes sur la cellules, tu remultipliera. Il y a
certainement mieux ! attendons les Kador

Manu

"maurice02" a écrit dans le message de news:
45a2664a$0$25948$
bjr,

j'aimerai trouver la composition d'une formule pour multipliee
automatiquement la valeur entree au clavier par un multiplicateur fixe.

EX : je veux entrer la valeur 15.23 et je veux qu'elle s'affiche dans la
cellule multipliee par 5,4. l'affichage devra etre le resultat

merci de votre aide

il s'agit du logiciel EXCEL !!!!!

j'attends vos reponses avec impatience

merci


--




Avatar
FdeCourt
Salut,
Une autre proposition :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then Target.Value = Target.Value * 5.4
Application.EnableEvents = True
End Sub

N'oublie pas les Application.EnableEvents, sinon ca va faire le calcul
jusqu'a plus soif.....


a mon niveau, je peux te proposer cela pour A1 et B1 dans ta feuil ou tu
travail avec l'evenement ci dessous

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = [A1] * 3
[B1] = [B1] * 3
End Sub

Mais attention, si tu retournes sur la cellules, tu remultipliera. Il y a
certainement mieux ! attendons les Kador

Manu

"maurice02" a écrit dans le message de news:
45a2664a$0$25948$
bjr,

j'aimerai trouver la composition d'une formule pour multipliee
automatiquement la valeur entree au clavier par un multiplicateur fixe.

EX : je veux entrer la valeur 15.23 et je veux qu'elle s'affiche dans la
cellule multipliee par 5,4. l'affichage devra etre le resultat

merci de votre aide

il s'agit du logiciel EXCEL !!!!!

j'attends vos reponses avec impatience

merci


--






Avatar
garnote
Bonjour,

Et si tu veux qu'une telle chose arrive quand tu entres une valeur
dans une plage donnée, par exemple A1:B10, voici ceci ;-) :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("$A$1:$B$10")) Is Nothing Then Target.Value = Target.Value * 5.4
Application.EnableEvents = True
End Sub

Serge


"maurice02" a écrit dans le message de news: 45a2664a$0$25948$
bjr,

j'aimerai trouver la composition d'une formule pour multipliee automatiquement la valeur entree au clavier par un multiplicateur
fixe.

EX : je veux entrer la valeur 15.23 et je veux qu'elle s'affiche dans la cellule multipliee par 5,4. l'affichage devra etre le
resultat

merci de votre aide

il s'agit du logiciel EXCEL !!!!!

j'attends vos reponses avec impatience

merci


--




Avatar
garnote
Et si tu ne veux pas que 0 apparaisse quand tu effaces
une donnée, ceci devrait convenir :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("$A$1:$B$10")) Is Nothing Then
n = Target.Value
If n <> "" Then Target.Value = 5.4 * n
End If
Application.EnableEvents = True
End Sub

Serge


"garnote" a écrit dans le message de news: %
Bonjour,

Et si tu veux qu'une telle chose arrive quand tu entres une valeur
dans une plage donnée, par exemple A1:B10, voici ceci ;-) :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("$A$1:$B$10")) Is Nothing Then Target.Value = Target.Value * 5.4
Application.EnableEvents = True
End Sub

Serge


"maurice02" a écrit dans le message de news: 45a2664a$0$25948$
bjr,

j'aimerai trouver la composition d'une formule pour multipliee automatiquement la valeur entree au clavier par un multiplicateur
fixe.

EX : je veux entrer la valeur 15.23 et je veux qu'elle s'affiche dans la cellule multipliee par 5,4. l'affichage devra etre le
resultat

merci de votre aide

il s'agit du logiciel EXCEL !!!!!

j'attends vos reponses avec impatience

merci


--








Avatar
maurice02
est ce qu'entre les guillemets de : If n <> il faut mettre quelque chose ?
et apres 5.4* n doit on remplacer le n ?

--

"garnote" a écrit dans le message de news:

Et si tu ne veux pas que 0 apparaisse quand tu effaces
une donnée, ceci devrait convenir :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("$A$1:$B$10")) Is Nothing Then
n = Target.Value
If n <> "" Then Target.Value = 5.4 * n
End If
Application.EnableEvents = True
End Sub

Serge


"garnote" a écrit dans le message de news:
%
Bonjour,

Et si tu veux qu'une telle chose arrive quand tu entres une valeur
dans une plage donnée, par exemple A1:B10, voici ceci ;-) :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("$A$1:$B$10")) Is Nothing Then
Target.Value = Target.Value * 5.4
Application.EnableEvents = True
End Sub

Serge


"maurice02" a écrit dans le message de news:
45a2664a$0$25948$
bjr,

j'aimerai trouver la composition d'une formule pour multipliee
automatiquement la valeur entree au clavier par un multiplicateur fixe.

EX : je veux entrer la valeur 15.23 et je veux qu'elle s'affiche dans la
cellule multipliee par 5,4. l'affichage devra etre le resultat

merci de votre aide

il s'agit du logiciel EXCEL !!!!!

j'attends vos reponses avec impatience

merci


--












Avatar
FdeCourt
Je me permet de répondre à sa place et te dire que non.
If n <> "" permet de vérifier que n n'est pas vide, donc que ta
cellule n'est pas vide, et ainsi qu'il peut faire le calcul n * 5.4


est ce qu'entre les guillemets de : If n <> il faut mettre quelque chos e ?
et apres 5.4* n doit on remplacer le n ?

--

"garnote" a écrit dans le message de ne ws:

Et si tu ne veux pas que 0 apparaisse quand tu effaces
une donnée, ceci devrait convenir :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("$A$1:$B$10")) Is Nothing Then
n = Target.Value
If n <> "" Then Target.Value = 5.4 * n
End If
Application.EnableEvents = True
End Sub

Serge


"garnote" a écrit dans le message de news:
%
Bonjour,

Et si tu veux qu'une telle chose arrive quand tu entres une valeur
dans une plage donnée, par exemple A1:B10, voici ceci ;-) :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("$A$1:$B$10")) Is Nothing Then
Target.Value = Target.Value * 5.4
Application.EnableEvents = True
End Sub

Serge


"maurice02" a écrit dans le message de news:
45a2664a$0$25948$
bjr,

j'aimerai trouver la composition d'une formule pour multipliee
automatiquement la valeur entree au clavier par un multiplicateur fix e.

EX : je veux entrer la valeur 15.23 et je veux qu'elle s'affiche dans la
cellule multipliee par 5,4. l'affichage devra etre le resultat

merci de votre aide

il s'agit du logiciel EXCEL !!!!!

j'attends vos reponses avec impatience

merci


--














Avatar
maurice02
Un grand merci a tous cela me convient et fonctionne parfaitement selon mes
souhaits.

merci et mes amities

maurice

--

"FdeCourt" a écrit dans le message de news:

Je me permet de répondre à sa place et te dire que non.
If n <> "" permet de vérifier que n n'est pas vide, donc que ta
cellule n'est pas vide, et ainsi qu'il peut faire le calcul n * 5.4


est ce qu'entre les guillemets de : If n <> il faut mettre quelque chose
?
et apres 5.4* n doit on remplacer le n ?

--

"garnote" a écrit dans le message de news:

Et si tu ne veux pas que 0 apparaisse quand tu effaces
une donnée, ceci devrait convenir :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("$A$1:$B$10")) Is Nothing Then
n = Target.Value
If n <> "" Then Target.Value = 5.4 * n
End If
Application.EnableEvents = True
End Sub

Serge


"garnote" a écrit dans le message de
news:
%
Bonjour,

Et si tu veux qu'une telle chose arrive quand tu entres une valeur
dans une plage donnée, par exemple A1:B10, voici ceci ;-) :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("$A$1:$B$10")) Is Nothing Then
Target.Value = Target.Value * 5.4
Application.EnableEvents = True
End Sub

Serge


"maurice02" a écrit dans le message de news:
45a2664a$0$25948$
bjr,

j'aimerai trouver la composition d'une formule pour multipliee
automatiquement la valeur entree au clavier par un multiplicateur
fixe.

EX : je veux entrer la valeur 15.23 et je veux qu'elle s'affiche dans
la
cellule multipliee par 5,4. l'affichage devra etre le resultat

merci de votre aide

il s'agit du logiciel EXCEL !!!!!

j'attends vos reponses avec impatience

merci


--














Avatar
garnote
Bonjour FdeCourt,

Un gros merci pour tes :

Application.EnableEvents = False
...
Application.EnableEvents = True

J'ai passé au moins une heure à essayer
de calmer VBA qui bouclait comme un malade
jusqu'à des valeurs dont la grandeur dépassait
le nombre de particules élémentaires contenues
dans l'entièreté de l'Univers ;-)

Serge




"FdeCourt" a écrit dans le message de news:
Je me permet de répondre à sa place et te dire que non.
If n <> "" permet de vérifier que n n'est pas vide, donc que ta
cellule n'est pas vide, et ainsi qu'il peut faire le calcul n * 5.4


est ce qu'entre les guillemets de : If n <> il faut mettre quelque chose ?
et apres 5.4* n doit on remplacer le n ?

--

"garnote" a écrit dans le message de news:

Et si tu ne veux pas que 0 apparaisse quand tu effaces
une donnée, ceci devrait convenir :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("$A$1:$B$10")) Is Nothing Then
n = Target.Value
If n <> "" Then Target.Value = 5.4 * n
End If
Application.EnableEvents = True
End Sub

Serge


"garnote" a écrit dans le message de news:
%
Bonjour,

Et si tu veux qu'une telle chose arrive quand tu entres une valeur
dans une plage donnée, par exemple A1:B10, voici ceci ;-) :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("$A$1:$B$10")) Is Nothing Then
Target.Value = Target.Value * 5.4
Application.EnableEvents = True
End Sub

Serge


"maurice02" a écrit dans le message de news:
45a2664a$0$25948$
bjr,

j'aimerai trouver la composition d'une formule pour multipliee
automatiquement la valeur entree au clavier par un multiplicateur fixe.

EX : je veux entrer la valeur 15.23 et je veux qu'elle s'affiche dans la
cellule multipliee par 5,4. l'affichage devra etre le resultat

merci de votre aide

il s'agit du logiciel EXCEL !!!!!

j'attends vos reponses avec impatience

merci


--