Menu

Calcul sur une même cellule

Messages postés
7
Date d'inscription
jeudi 4 avril 2019
Statut
Membre
Dernière intervention
5 avril 2019
-
Bonjour,
Sur mon tableau en copie, je souhaite faire un calcul sur une seule cellule. Avec comme référence C3=0, je tape +2 en C3, il va afficher 2. je tape +3 donc C3=5.
En fouillant, j'ai trouvé ce code. Or, il ne fonctionne que sur A1. Je souhaite qu'il calcule pour chaque cellule de C3 à C16. Merci à vous.

je joins le code

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
If [mémo] <> "" Then
Target = Target + [mémo]
End If
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
End If
End Sub
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Messages postés
7733
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 avril 2019
460
1
Merci
bonjour je ne pense pas comprendre à 100% ce que tu fais ni comment tu le fais.
cependant, je pense qu'il te suffit de remplacer les 2 lignes
If Target.Column = 1 And Target.Count = 1 Then

par
If Target.Column = 3 And Target.count = 1 And Target.Row >= 3 And Target.Row <= 16 Then

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 40434 internautes nous ont dit merci ce mois-ci

jym77
Messages postés
7
Date d'inscription
jeudi 4 avril 2019
Statut
Membre
Dernière intervention
5 avril 2019
-
Merciiiiiii ça fonction très bien
Encore merci pour ton aide
Commenter la réponse de yg_be