En depit de l aide fourni en ligne, je ne parviens pas a realiser une
incrementation a l issu d un test.
Pour etre plus precis, je souhaiterais incrementer de 1 la cellule C1
(C1 initialement =E9valu=E9 a 0) si A1=3DB1 ou B2 ou B3 si non C1 reste
dans son etat.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Avec une formule, tu vas droit sur les références circulaires; Essaie :
Sub test2() If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then [C1] = [C1] + 1 End If End Sub
Cordialement. Daniel "anthony" a écrit dans le message de news:
Bonjour,
En depit de l aide fourni en ligne, je ne parviens pas a realiser une incrementation a l issu d un test. Pour etre plus precis, je souhaiterais incrementer de 1 la cellule C1 (C1 initialement évalué a 0) si A1± ou B2 ou B3 si non C1 reste dans son etat.
Merci pour votre aide.
Cordialement Anthony
Bonsoir.
Avec une formule, tu vas droit sur les références circulaires;
Essaie :
Sub test2()
If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then
[C1] = [C1] + 1
End If
End Sub
Cordialement.
Daniel
"anthony" <anthony.canu@laposte.net> a écrit dans le message de news:
1166208959.205721.197440@t46g2000cwa.googlegroups.com...
Bonjour,
En depit de l aide fourni en ligne, je ne parviens pas a realiser une
incrementation a l issu d un test.
Pour etre plus precis, je souhaiterais incrementer de 1 la cellule C1
(C1 initialement évalué a 0) si A1± ou B2 ou B3 si non C1 reste
dans son etat.
Bonsoir. Avec une formule, tu vas droit sur les références circulaires; Essaie :
Sub test2() If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then [C1] = [C1] + 1 End If End Sub
Cordialement. Daniel "anthony" a écrit dans le message de news:
Bonjour,
En depit de l aide fourni en ligne, je ne parviens pas a realiser une incrementation a l issu d un test. Pour etre plus precis, je souhaiterais incrementer de 1 la cellule C1 (C1 initialement évalué a 0) si A1± ou B2 ou B3 si non C1 reste dans son etat.
Merci pour votre aide.
Cordialement Anthony
anthony
Bonsoir. Avec une formule, tu vas droit sur les références circulaires; Essaie :
Sub test2() If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then [C1] = [C1] + 1 End If End Sub
Merci pour votre aide mais je ne suis pas sur d avoir bien compris ?
Voici ce que j ai fait : ************************ J ai rentre votre petit programme dans une macro mais l inconvenient c est qu a chaque fois que je change la valeur de B1 par exemple le resultat sur C1 ne suit pas (c est pas dynamique). Il me faut alors reexecuter la macro.
Existe t il une possibilite de faire quelquechose de plus dynamique ou bien j ai mal exploiter votre aide ?
Cordialement Anthony
Bonsoir.
Avec une formule, tu vas droit sur les références circulaires;
Essaie :
Sub test2()
If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then
[C1] = [C1] + 1
End If
End Sub
Merci pour votre aide mais je ne suis pas sur d avoir bien compris ?
Voici ce que j ai fait :
************************
J ai rentre votre petit programme dans une macro mais l inconvenient c
est qu a chaque fois que je change la valeur de B1 par exemple le
resultat sur C1 ne suit pas (c est pas dynamique). Il me faut alors
reexecuter la macro.
Existe t il une possibilite de faire quelquechose de plus dynamique ou
bien j ai mal exploiter votre aide ?
Bonsoir. Avec une formule, tu vas droit sur les références circulaires; Essaie :
Sub test2() If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then [C1] = [C1] + 1 End If End Sub
Merci pour votre aide mais je ne suis pas sur d avoir bien compris ?
Voici ce que j ai fait : ************************ J ai rentre votre petit programme dans une macro mais l inconvenient c est qu a chaque fois que je change la valeur de B1 par exemple le resultat sur C1 ne suit pas (c est pas dynamique). Il me faut alors reexecuter la macro.
Existe t il une possibilite de faire quelquechose de plus dynamique ou bien j ai mal exploiter votre aide ?
Cordialement Anthony
Daniel
Bonsoir. Mets cette macro dans le code de la feuille. Elle se déclenchera à chaque modification de A1, B1, B2 et B3.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [A1], [B1], [B2], [B3]) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then [C1] = [C1] + 1 End If End Sub
Cordialement. Daniel "anthony" a écrit dans le message de news:
Bonsoir. Avec une formule, tu vas droit sur les références circulaires; Essaie :
Sub test2() If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then [C1] = [C1] + 1 End If End Sub
Merci pour votre aide mais je ne suis pas sur d avoir bien compris ?
Voici ce que j ai fait : ************************ J ai rentre votre petit programme dans une macro mais l inconvenient c est qu a chaque fois que je change la valeur de B1 par exemple le resultat sur C1 ne suit pas (c est pas dynamique). Il me faut alors reexecuter la macro.
Existe t il une possibilite de faire quelquechose de plus dynamique ou bien j ai mal exploiter votre aide ?
Cordialement Anthony
Bonsoir.
Mets cette macro dans le code de la feuille. Elle se déclenchera à chaque
modification de A1, B1, B2 et B3.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1], [B1], [B2], [B3]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then
[C1] = [C1] + 1
End If
End Sub
Cordialement.
Daniel
"anthony" <anthony.canu@laposte.net> a écrit dans le message de news:
1166285706.880093.7010@79g2000cws.googlegroups.com...
Bonsoir.
Avec une formule, tu vas droit sur les références circulaires;
Essaie :
Sub test2()
If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then
[C1] = [C1] + 1
End If
End Sub
Merci pour votre aide mais je ne suis pas sur d avoir bien compris ?
Voici ce que j ai fait :
************************
J ai rentre votre petit programme dans une macro mais l inconvenient c
est qu a chaque fois que je change la valeur de B1 par exemple le
resultat sur C1 ne suit pas (c est pas dynamique). Il me faut alors
reexecuter la macro.
Existe t il une possibilite de faire quelquechose de plus dynamique ou
bien j ai mal exploiter votre aide ?
Bonsoir. Mets cette macro dans le code de la feuille. Elle se déclenchera à chaque modification de A1, B1, B2 et B3.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [A1], [B1], [B2], [B3]) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then [C1] = [C1] + 1 End If End Sub
Cordialement. Daniel "anthony" a écrit dans le message de news:
Bonsoir. Avec une formule, tu vas droit sur les références circulaires; Essaie :
Sub test2() If [A1] = [B1] Or [A1] = [B2] Or [A1] = [B3] Then [C1] = [C1] + 1 End If End Sub
Merci pour votre aide mais je ne suis pas sur d avoir bien compris ?
Voici ce que j ai fait : ************************ J ai rentre votre petit programme dans une macro mais l inconvenient c est qu a chaque fois que je change la valeur de B1 par exemple le resultat sur C1 ne suit pas (c est pas dynamique). Il me faut alors reexecuter la macro.
Existe t il une possibilite de faire quelquechose de plus dynamique ou bien j ai mal exploiter votre aide ?
