aide excel / VB

[dav26]

Bonjour,

Je souhaiterai ouvrir une fenetre lors d'un clic sur une cellule et y entrer une valeur numerique. Cette valeur serait ensuite convertie selon une formule math. et le resultat inscrit dans la cellule du début..

Cela est-il possible?

Merci d'avance a tout ceux qui prendra le temps de m'aider.

David

 

[skoobi]

Re : aide excel / VB

Bonsoir dav26, bienvenue sur XLD,

oui c'est possible mais tu es trop vague.
Quelle cellule? Quelle formule?

 

[dav26]

Re : aide excel / VB

par exemple clic sur A1, qui déclenche l'ouverture d'une fenetre ds laquelle je puisse entrer une valeur.
Je souhaite que la valeur de A1 soit le résultat de la valeur entrée dans la fenetre selon la formule de A2 qui serait par exemple ( (x*2) + (x*3) + (x*4) ) pour laquelle x est la valeur entrée dans la fenetre...

Peux tu m'aider?

Merci beaucoup déjà de ta réponse .

david

 

[skoobi]

Re : aide excel / VB

Re,

Place le code suivant dans le code de la feuille.
Double clic sur la cellule A1 pour executer le code.
La formule se trouve dans le code en bleu:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
  Valeur = Application.InputBox("Saisisez un nombre", Type:=1)
  If Valeur = 0 Then Exit Sub
  Range("A1").Value = [COLOR=Blue][B](Valeur * 2) + (Valeur * 3) + (Valeur * 4)[/B][/COLOR]
End If
End Sub

 

[dav26]

Re : aide excel / VB

Merci beaucoup de ton aide.

J'ai essayé de copier le code pour A2 selon une autre formule, avec un meme appel de box mais une autre formule et plouf!!

Je souhaiterai qu'une fenetre apparaisse sur un double clic d'une cellule et que selon la cellule la formule soit differente.

Je te mets une capture écran pour comprendre

Encore merci,

David

 

[skoobi]

Re : aide excel / VB

Re,

tu ne peux pas créer 2 fois le même code.
Il faut mettre une autre condition dans le même code:

If Target.Address = "$A$1" Then
....partie avec la 1ere formule
ElseIf Target.Address = "$A$2" Then
....partie avec la 2eme formule
etc...
EndIf

 

[dav26]

Re : aide excel / VB

Super merci, ca fonctionne.

derniere question si je peux me permettre.
les formules (x*2) + (x*3) ... sont constantes donc pas de souci de les mettre ds le code, par contre x (celui que je rentre ds la box) , comment puis je le visualiser simplement pour verifier que sa valeur est bien la bonne?

Merci d'avance

 

[skoobi]

Re : aide excel / VB

Je ne te comprends pas.
Tu la visualise déjà dans la boite de dialogue 😕