mulpiplication

[jmk318]

Bonsoir a tous et a toutes

J'aimerais faire des multiplications dans une cellule et meme cellule
ex ; une fois je multipli 2x2 en a1 qui me donne la reponse donc 4 toujours dans la meme cllule a1

une autre fois toujours dans la mm cellule donc en a1 une autre muliplication
ex 3x3 qui me donne la reponse et qui me marque 9 toujours dans la mm cellule qui est a1 .

je ne sais pas si c'est possible de faire ça ??

merci pour vos reponses

Jean Marc

 

[jmk318]

Re : mulpiplication

oui c 'est ca a part que pour voir la reponse il faut que je remonte avec la fleche sur A1
peut on pas faire quil affiche tout de suite la reponse sans remonter avec la fleche ???

 

[mth]

Re : mulpiplication

re 🙂

euh ... re 😱

message annulé, ça n'allait pas (du tout!! ) je recommence ...

@ +

mth

 

[jmk318]

Re : mulpiplication

oui niquel ca marche Merci pourrais tu me dire comment faire pour quil me fais ce calcul sur les cellules
en A3 B3 C3

 

[Staple1600]

Re : mulpiplication

Bonjour

A tester:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Address = "$A$3" Or Target.Address = "$B$3" Or Target.Address = "$C$3" Then 
Target.Value = Evaluate(Target.Text) 
End If 
End Sub

 

[jmk318]

Re : mulpiplication

Bonjour Staple
merci pour le code ça marche bien
seul probleme qui a c'est quil faut aller de nouveau sur les cellules pour voir le resulta y a t'il pas un moyen de faire pour quil affiche tout de suite le resulta sans selectionner les cellules????
Merci jean marc

 

[Staple1600]

Re : mulpiplication

Bonjour


Comme cela, tu préfères 😉

Private Sub [B]Worksheet_Change[/B](ByVal Target As Range)
If IsEmpty(Target) Then Exit Sub
If Target.Address = "$A$3" Or Target.Address = "$B$3" Or Target.Address = "$C$3" Then
Target.Value = Evaluate(Target.Text)
End If
End Sub

PS: Ne pas oublier de supprimer le code VBA précédent avant d'utiliser celui-ci

 

[jmk318]

Re : mulpiplication

re
Un grand Merci a Staple et a Mth ça marche impeccable. Il existe encore des gens qui donne un peut de temps aux autres pour leurs aider et ça c'est formidable.
Un grand merci a vous deux
Jean Marc

 

[jmk318]

Re : mulpiplication

re
Encore une petite question
Je voudrais faire ce calcule sur plusieurs lignes est-ce possible ???

 

[Staple1600]

Re : mulpiplication

Re



Oui.

Quelles sont ces lignes ?



PS1: essayes de comprendre le code VBA que je t'ai soumis
car l'adaptation à ta nouvelle demande est relativement simple
et je pense que tu devrais désormais être en mesure de faire cette adaptation toi-même , non ? (Me trompe-je ?)

PS2: je retourne au taf, donc je laisse la main à mth ou tout autre membre du forum qui passera par là.

Je reviendrai ici ce soir.

 

[jmk318]

Re : mulpiplication

Oui "ai trouvé comment faire c'est simple il faut juste continuer
Or Target.Address = "$B$4" est changer la valeur"$B$4" et mettre la cellule qui corespond.

OK merci beaucoup a vous deux
jean marc

 

[Staple1600]

Re : mulpiplication

Re


Cela risque d'être long, cites moi toutes les cellules concernées, stp

Est-ce par exemple ? A3:C10
Dans ce cas , tu peux ne pas essayer ce code ci-dessous

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [A3:C10]) Is Nothing And Not IsEmpty(Target) Then
Target.Value = Evaluate(Target.Text)
End If
End Sub

PS: help needed

 

[jmk318]

Re : mulpiplication

re
c'est bon j"ai pratiquement fini mon tableau ca marche pour le moment
A plus jean marc
et merci pour les codes