Discussion :

[b.bilel]

Salut; je voudrai savoir comment pourais-je changer de valeur dans la cellule A1
ex:
je fais entré le nombre 10 dans la cellule A2 le resultat dans A1 = 10, puis je refais la méme chose et j'entre 10 dans A2 et je trouve A1 = 20 .
Merci pour votre aide.

[Bevan]

Salut,
AMHA hors du VBA point de salut (ou choisis une autre ergonomie...)

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$2" Then
    With Range("A1")
        .Value = .Value + Target.Value
    End With
End If
End Sub

Le "on error" est là pour limiter les dégats en cas de saisie alpha.

[b.bilel]

je vous remercie , c'est reussi

[b.bilel]

salut; Je mexcuse d'avoir réouvert ce sujet aprés avoir dir "Resolu"
le code est bon mais j'ai voulu lier la feuil 2 a la feuil 1 avec ce code mais je n'est pas reussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "feuil2!$A$2" Then
    With Range("feuil1!A1")
        .Value = .Value + Target.Value
    End With
End If
End Sub

Je m'excuse encore une fois

[Pierre Fauconnier]

Bonsoir

Tu ne dois pas préciser la feuille de A2, mais tu dois placer tout le bloc de la procédure dans le module de la feuille Feuil2

Ceci fonctionnera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$A$2" Then
    With Worksheets("feuil1").Range("A1")
        .Value = .Value + Target.Value
    End With
End If
End Sub

J'attire toutefois ton attention sur le fait que si l'utilisateur renomme les onglets dans Excel, la procédure ne fonctionnera plus. Tu aurais, à mon avis, intérêt à utiliser le CodeName de la feuille. Tu peux voir cette propriété dans les propriétés de la feuille. Tu peux modifier cette propriété et remplacer feuil1 ou feuil2 par des noms de ton choix. Ainsi, tant que la propriété CodeName n'est pas modifiée, la macro fonctionnera.

Ok?


Ok?

[b.bilel]

rebonsoir
et comment pourai-re faire une boucle
par exemple je voudrai faire ca a plusieur cellule
Merci