aide excel / VB

skoobi

XLDnaute Barbatruc

• 16 Septembre 2009

• #2

Re : aide excel / VB

Bonsoir dav26, bienvenue sur XLD,

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

 

Vote positif 0 Vote négatif

D

dav26

Guest

• 16 Septembre 2009

• #3

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 16 Septembre 2009

• #4

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:

Code:

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

 

Vote positif 0 Vote négatif

D

dav26

Guest

• 16 Septembre 2009

• #5

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

 

Pièces jointes

• Sans titre.jpg

  37.6 KB · Affichages: 37
• Sans titre.jpg

  37.6 KB · Affichages: 41
• Sans titre.jpg

  37.6 KB · Affichages: 43

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 16 Septembre 2009

• #6

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:

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

 

Vote positif 0 Vote négatif

D

dav26

Guest

• 16 Septembre 2009

• #7

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

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 16 Septembre 2009

• #8

Re : aide excel / VB

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

 

Vote positif 0 Vote négatif