Microsoft 365 Ajout d'une constante dans une cellule lors de la saisie

Bonjour
Ouf vous vous êtes surpassées
Merci à tous...
Je vais potasser les dernières évolutions.
Pour le moment je me suis arrêté à ceci qui fait le job


Private Sub Worksheet_Change(ByVal Target As Range)
Dim pl As Range, c As Range
Set pl = Intersect(Target, Range("A1:A50"))
If Not pl Is Nothing Then
Application.EnableEvents = False
For Each c In pl
Select Case Target.Row
Case 1

Case Else
If IsNumeric(Range("A1")) And Range("A1") <> "" And c.Value <> "" And IsNumeric(c.Value) Then c.Value = Range("A1").Value + c.Value
End Select
Next c
Application.EnableEvents = True
End If
End Sub

J'ai placé différentes conditions : vide et si non numérique on ne fait pas l'opération (surtout non numérique cela évite les bugs)

Bonjour à tous,

TU as placé ? https://forum.excel-pratique.com/ex...-cellule-a-la-saisie-par-une-operation-151512
Pourquoi avoir démarré un topic sur un autre site alors que tu avais des réponses ici ?
A l'avenir attendre 24h sans réponse pour le faire.
A procéder ainsi tu cours le risque qu'on zappe te questions en se disant que tu as sans doute déjà la réponse ailleurs...
eric

Oui Eriiic tu as certainement raison..la patience était de mise.
J'en ai profité pour vous faire partager les réponses de l'autre Eriiic
Merci encore pour l'aide

Bonjour le fil

steve74 à dit:

Oui Eriiic tu as certainement raison..la patience était de mise.
J'en ai profité pour vous faire partager les réponses de l'autre Eriiic
Merci encore pour l'aide

Cliquez pour agrandir...

Je dirais même plus.
Il a parfaitement raison.
Pour ceux qui ont oublié que le net est né dans un autre siécle
PS: Et j'ose même pas évoqué la netiquette