Excel : remettre à 0 une cellule
Résolu/Fermé
A voir également:
- Excel : remettre à 0 une cellule
- Liste déroulante excel - Guide
- Si et excel - Guide
- Formule excel - Guide
- Aller à la ligne excel - Guide
- Mise en forme conditionnelle excel - Guide
2 réponses
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 082
Modifié par Mike-31 le 29/12/2010 à 23:36
Modifié par Mike-31 le 29/12/2010 à 23:36
Salut,
Pour faire cela, il faut passer en VBA
exemple pour traiter la plage A2 à A100 les sommes s'additionnenet en colonne B
Colles ce code dans les propriétés de la feuille (clic droit sur l'onglet de feuille/visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Selection, Range("A2:A100")) Is Nothing Then
If Target > 0 Then
Target.Offset(0, 1).Select
ActiveCell = ActiveCell + Target
Target.ClearContents
Else: Exit Sub
End If
End If
End Sub
il serait tout de même judicieux d'ajouter une boite de dialogue pour activer le code afin d'éviter le transfert de valeurs saisies par erreur, ainsi que la gestion d' erreurs
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Pour faire cela, il faut passer en VBA
exemple pour traiter la plage A2 à A100 les sommes s'additionnenet en colonne B
Colles ce code dans les propriétés de la feuille (clic droit sur l'onglet de feuille/visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Selection, Range("A2:A100")) Is Nothing Then
If Target > 0 Then
Target.Offset(0, 1).Select
ActiveCell = ActiveCell + Target
Target.ClearContents
Else: Exit Sub
End If
End If
End Sub
il serait tout de même judicieux d'ajouter une boite de dialogue pour activer le code afin d'éviter le transfert de valeurs saisies par erreur, ainsi que la gestion d' erreurs
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
