G peut etre la solus en VBA

[kris]

BONSOIR,

sur le code ci dessous qui marche tres bien et que l'on m'a fournit sur ce forum me permet de saisir des valeurs les unes apres les autres en A1 et B1 s'incremente a chaque entrées :
Quelqu un saurait me dire comment le modifier pour que par exemple je puisse faire la meme chose de A1 à A5 ????


Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValTemp As Double
If Target.Address(0, 0) = 'A1' Then
If IsNumeric(Target.Value) Then
ValTemp = Range('A1') + Range('B1')
Range('B1') = ValTemp
End If
End If
End Sub


D'avance merci

 

[Hervé]

Bonsoir

Le code ci-dessous, additionne la valeur de B1 et celle de la cellule active, si celle ci se trouve dans la plage A1:A5.

Est-ce ceci que tu recherches ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range('a1:a5')) Is Nothing Then
Range('b1') = Range('b1') + Target
End If
End Sub

Tiens nous au courant.

A plus

Message édité par: Hervé, à: 27/03/2005 23:17

 

[kris]

je te remercie bcp herve, c presk ca, en fait je souhaitai que A1 incremente B1, A2 incremente B2 ect...
Mais franchement merci de m'avoir repondu deja

 

[Hervé]

re

Alors essaye comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range('a1:a5')) Is Nothing Then
Target.Offset(0, 1) = Target.Offset(0, 1) + Target
End If
End Sub

Comme lu dans ton premier post, cette macro est limité à la plage A1:A5

A plus

 

[kris]

Je te remercie encore une fois, c'est exactement le résultat que j'esperai.

Mille Merci Hervé !