Calcul sur une même cellule
jym77
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
jym77 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
jym77 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Calcul sur une même cellule
- Calcul moyenne excel - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Proteger cellule excel - Guide
- Calcul km marche à pied gratuit - Télécharger - Sport
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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
par
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
Encore merci pour ton aide