Incrementer une cellule
FerméMike-31 Messages postés 18335 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 septembre 2024 - 19 nov. 2022 à 17:47
- Incrementer une cellule en fonction du contenu d'une autre cellule
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Verrouiller cellule excel - Guide
- Fonction si et - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Excel
3 réponses
Modifié le 19 nov. 2022 à 15:33
Bonjour,
On peut utiliser une option particulière d'Excel. Supprimer le contrôle d'erreur circulaire (utiliser le champ qui contient la formule dans la formule elle même), contrôle utile pour la majorité des utilisateurs ;-)
Fichier/option/Formule, Activer le calcul itératif, nb max itération 1
Et alors mettre une formule =SI(B2="Ok";M2+1;M2)
Soucis cela fonctionne bien sur la feuille ouverte, mais l'enregistrement et l'ouverture de la feuille active la formule, avec chaque fois +1 quand B2="Ok"
On peut alors utiliser une formule alambiquée, en utilisant une partie décimale sur l'accumulateur
=SI(B2="Ok";SI(M2=ENT(M2));M2+1,1;M2);ENT(M2))
et sur M2 mettre un affichage de cellule sans décimale.
Il y a peut être plus simple, avec une macro, en utilisant un champ intermédiaire, ...
19 nov. 2022 à 17:06
Modifié le 19 nov. 2022 à 18:03
Bonjour,
suivant ce que j'ai compris, en VBA
clic droit sur l'onglet de la feuille concerné, colle ce code
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, [B2]) Is Nothing Then If [B2] = "Ok" Then [M2] = [M2] + 1 End If End Sub