VBA 2 Questions sur ma procédure
Bonjour le forum
Besoin d'explication sur:
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim cpt As Integer,Dim G1 As String,Dim A1 As Integer
cpt = Range("j1")
If Range("G1") = "RazCompt" Then
Range("j1") = 0
Else
If Range("B1") = "Plus" Then
cpt = cpt + 1
Sheets("Feuil1").Cells(cpt, 1).Select
ActiveCell = cpt
Range("j1") = cpt
Else
End If
End If
End Sub
1er cas ====>B1 contenant =SI(E1="Encore";"Plus";0)===> A chaque écriture de "Encore" le comptage s'effectue !
2eme cas ==>B1 contenant =Si(E1=1;"Plus";0) ==>A chaque écriture de 1 le comptage ne s'effectue pas ??
il faut repasser par Zéro ?? ===> dim de B1 ou autres ??
Comment faire pour obtenir le comptage à chaque présence de 1 ??
Comment dans ma procédure obtenir la remise à zéro immédiate et exclusive de J1 par la cellule G1?
Fichier ci joint
Merci de votre aide
Bisous
Muriel
cher Banzai
C'est parfait, encore merci, grace à toi je progresse beaucoup
Tes réponses sont tj pertinentes
bizous
Cordialement
Muriel