Bonjour ! Est tu obliger d'inscrire le resultat dans la case A1 ?
Merci a+
papou
Bonjour aussi à toi Clic droit sur l'onglet de ta feuille, Visualiser le code Place le code suivant dans la partie blanche à droite puis ferme l'éditeur VBA. '**** Debut de code **** Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If Target.Column <> 1 Then Exit Sub If Not IsNumeric(Target.Value) Then MsgBox "Valeur incorrecte non numérique", vbInformation, "Erreur" Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If Application.EnableEvents = False Target.Value = Target.Value + [B1] Application.EnableEvents = True End Sub '**** Fin du code ****
De rien ;-) Cordialement Pascal
"exel fonction" <excel fonction @discussions.microsoft.com> a écrit dans le message de news:
je veux affecté aune celule A1 le contenu de A1 et B1
Bonjour aussi à toi
Clic droit sur l'onglet de ta feuille, Visualiser le code
Place le code suivant dans la partie blanche à droite puis ferme l'éditeur
VBA.
'**** Debut de code ****
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Target.Column <> 1 Then Exit Sub
If Not IsNumeric(Target.Value) Then
MsgBox "Valeur incorrecte non numérique", vbInformation, "Erreur"
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
Application.EnableEvents = False
Target.Value = Target.Value + [B1]
Application.EnableEvents = True
End Sub
'**** Fin du code ****
De rien ;-)
Cordialement
Pascal
"exel fonction" <excel fonction @discussions.microsoft.com> a écrit dans le
message de news: 0814CB67-B672-4BBD-9CBC-68CF6E0DCFAF@microsoft.com...
je veux affecté aune celule A1 le contenu de A1 et B1
Bonjour aussi à toi Clic droit sur l'onglet de ta feuille, Visualiser le code Place le code suivant dans la partie blanche à droite puis ferme l'éditeur VBA. '**** Debut de code **** Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub If Target.Column <> 1 Then Exit Sub If Not IsNumeric(Target.Value) Then MsgBox "Valeur incorrecte non numérique", vbInformation, "Erreur" Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If Application.EnableEvents = False Target.Value = Target.Value + [B1] Application.EnableEvents = True End Sub '**** Fin du code ****
De rien ;-) Cordialement Pascal
"exel fonction" <excel fonction @discussions.microsoft.com> a écrit dans le message de news:
je veux affecté aune celule A1 le contenu de A1 et B1
LSteph
Bonsoir , Pas vraiment de la récursivité.En fonction ou directement dans excel il résulterait je pense un pb de Réf. circulaire Je n'ai pas éclairci: si c'est a1+b1 ce serait la somme de a1 et b1 et non le contenu (a1&b1)!? Pas précisé non plus donc postulat: on peut saisir en A1 ou en B1. Aussi voici, si les deux sont numériques on fait la somme,si les deux son texte cela concatène, sinon rien ne change.Sensible seulement à la modification par saisie ou collage. (pas formule dont la valeur changerait) '''*** Private Sub Worksheet_Change(ByVal Target As Range) Dim isect As Range Set isect = Intersect(Target, [a1:b1]) If Not isect Is Nothing Then On Error Resume Next Application.EnableEvents = False [a1] = [a1] + [b1] Application.EnableEvents = True On Error GoTo 0 End If End Sub '''*** 'lSteph
"exel fonction" <excel fonction @discussions.microsoft.com> a écrit dans le message de news:
je veux affecté aune celule A1 le contenu de A1 et B1
Bonsoir ,
Pas vraiment de la récursivité.En fonction ou directement dans excel il
résulterait je pense un pb de Réf. circulaire
Je n'ai pas éclairci: si c'est a1+b1 ce serait la somme de a1 et b1 et non
le contenu (a1&b1)!?
Pas précisé non plus donc postulat: on peut saisir en A1 ou en B1.
Aussi voici, si les deux sont numériques on fait la somme,si les deux son
texte cela concatène,
sinon rien ne change.Sensible seulement à la modification par saisie ou
collage. (pas formule dont la valeur changerait)
'''***
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a1:b1])
If Not isect Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
[a1] = [a1] + [b1]
Application.EnableEvents = True
On Error GoTo 0
End If
End Sub
'''***
'lSteph
"exel fonction" <excel fonction @discussions.microsoft.com> a écrit dans le
message de news: 0814CB67-B672-4BBD-9CBC-68CF6E0DCFAF@microsoft.com...
je veux affecté aune celule A1 le contenu de A1 et B1
Bonsoir , Pas vraiment de la récursivité.En fonction ou directement dans excel il résulterait je pense un pb de Réf. circulaire Je n'ai pas éclairci: si c'est a1+b1 ce serait la somme de a1 et b1 et non le contenu (a1&b1)!? Pas précisé non plus donc postulat: on peut saisir en A1 ou en B1. Aussi voici, si les deux sont numériques on fait la somme,si les deux son texte cela concatène, sinon rien ne change.Sensible seulement à la modification par saisie ou collage. (pas formule dont la valeur changerait) '''*** Private Sub Worksheet_Change(ByVal Target As Range) Dim isect As Range Set isect = Intersect(Target, [a1:b1]) If Not isect Is Nothing Then On Error Resume Next Application.EnableEvents = False [a1] = [a1] + [b1] Application.EnableEvents = True On Error GoTo 0 End If End Sub '''*** 'lSteph
"exel fonction" <excel fonction @discussions.microsoft.com> a écrit dans le message de news:
je veux affecté aune celule A1 le contenu de A1 et B1
