Modification automatique de la valeur d'une cellule

[Steffdu41]

Bonjour tout le monde,

Débutant Excel, j'essaie de créer une macro pour que la valeur d'une cellule soit modifiée automatiquement. Je m'explique: 😀
J'aimerai que lorsque l'utilisateur entre une valeur A dans la cellule A1, une valeur B soit automatiquement rajoutée et que la valeur C obtenue (C = A + B) apparraisse dans la cellule A1...🙄
J'ai essayé avec des InputBox mais je n'ai jamais réussi à faire apparaître la box...🙁 Et j'aimerai que ça se fasse sans boîte de dialogue...

Si quelqu'un peut m'aider 🙂

Merci d'avance pour toute votre aide et vos réponses.

 

[camarchepas]

Re : Modification automatique de la valeur d'une cellule

Bonjour,

Le code est dans l'onglet (Clique droit sur le nom de la feuil1 et visualiser le code)

 

[Steffdu41]

Re : Modification automatique de la valeur d'une cellule

Merci pour le code mais ce n'est pas tout à fait ce que j'essaie d'avoir...🙁

En fait dans ton code la valeur change quand tu sélectionnes la cellule. Mais quand tu y rentres une valeur, l'incrément ne se fait pas... Je ne sais pas si je sui clair...

Pour faire plus simple voilà ce que j'aimerai avoir:
Je rentre 12345,9 dans la cellule A1 et en appuyant sur OK, la valeur 36 s'y rajoute. Et donc au final s'affiche la valeur 12381,9 dans la cellule A1
Mais le lendemain je dois rentrer 12355,4 dans A1 et donc je dois voir afficher 12391,4 (12355,4 + 36) dans A1.

Merci en tous cas de passer du temps sur mon soushi... 😉

 

[camarchepas]

Re : Modification automatique de la valeur d'une cellule

Re moi,
Ceci peut être , lol

 

[Steffdu41]

Re : Modification automatique de la valeur d'une cellule

Là c'est beaucoup mieux !!! 😉

De mon côté j'ai réussi à faire apparaître ma boîte de dialogue... 🙂 Que j'aimerai éviter... 🙁

T'auras pas une solution pour que le OK se fasse automatiquement ?

Merci encore pour ton sacré coup de pouce...

 

[Steffdu41]

Re : Modification automatique de la valeur d'une cellule

Trouvé !!!

Voilà le code miracle:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$A$3" Then
Toto = Range("A2").Value
Range("A2") = Toto + 32
End If

End Sub


Merci énormément pour ton aide sans laquelle je n'y serai jamais arrivé !!!

 

[camarchepas]

Re : Modification automatique de la valeur d'une cellule

Super , Bravo