Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Valeur "1" + 1

Valeur "1" + 1

4 réponses
Avatar
Caroline L.
Bonjour,

ma question n'est pas facile à illuster mais je tente le coup.
La valeur "1" va s'inscrire dans l'une des 7 cellules suivantes :
soit en B9,D9,F9,H9,J9,L9 ou N9, la destination peut être variable.
Mon problème est le suivant : je dois faire en sorte avec VBA ou par
formule, qu'à partir de la cellule qui va contenir la valeur "1" les
cellules suivantes vont contenir la valeur +1. Exemple :
si la valeur "1" s'inscrit en D9, voici les valeurs souhaitées
B9=0
D9=1
F9=2
H9=3
J9=4
L9=5
N9=6

Deuxième exemple :
si la valeur "1" s'inscrit en J9, voici les valeurs souhaitées
B9=0
D9=0
F9=0
H9=0
J9=1
L9=2
N9=3

Voilà, j'ai exposé ma question. Votre aide serait bien apprécié.

Merci

Caroline
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
jojolapin
"Caroline L." a écrit dans le message de news:

Bonjour,

ma question n'est pas facile à illuster mais je tente le coup.
La valeur "1" va s'inscrire dans l'une des 7 cellules suivantes :
soit en B9,D9,F9,H9,J9,L9 ou N9, la destination peut être variable.
Mon problème est le suivant : je dois faire en sorte avec VBA ou par
formule, qu'à partir de la cellule qui va contenir la valeur "1" les
cellules suivantes vont contenir la valeur +1. Exemple :
si la valeur "1" s'inscrit en D9, voici les valeurs souhaitées
B9=0
D9=1
F9=2
H9=3
J9=4
L9=5
N9=6

Deuxième exemple :
si la valeur "1" s'inscrit en J9, voici les valeurs souhaitées
B9=0
D9=0
F9=0
H9=0
J9=1
L9=2
N9=3

Voilà, j'ai exposé ma question. Votre aide serait bien apprécié.

Merci

Caroline


D9=si(b9=0;"formule qui te permet de calculer D9";"formule qui te permet de

calculer D9"+1)
"formule qui te permet de calculer D9" est la formule que tu as mis dans D9
Tu fais la même chose dans les autres cases.
a+

Avatar
docm
Bonjour.
Voici une façon en VBA.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Set c = Range("B9,D9,F9,H9,J9,L9,N9")
If Not Intersect(Target, c) Is Nothing Then
If CDbl(Target.Value) = 1 Then
Application.EnableEvents = False
For Each cel In c
If Target.Address = cel.Address Then
ok = 1
End If
valeur = valeur + ok
cel.Value = valeur
Next
Application.EnableEvents = True
End If
End If
End Sub

docm

"Caroline L." a écrit dans le message news:

Bonjour,

ma question n'est pas facile à illuster mais je tente le coup.
La valeur "1" va s'inscrire dans l'une des 7 cellules suivantes :
soit en B9,D9,F9,H9,J9,L9 ou N9, la destination peut être variable.
Mon problème est le suivant : je dois faire en sorte avec VBA ou par
formule, qu'à partir de la cellule qui va contenir la valeur "1" les
cellules suivantes vont contenir la valeur +1. Exemple :
si la valeur "1" s'inscrit en D9, voici les valeurs souhaitées
B9=0
D9=1
F9=2
H9=3
J9=4
L9=5
N9=6

Deuxième exemple :
si la valeur "1" s'inscrit en J9, voici les valeurs souhaitées
B9=0
D9=0
F9=0
H9=0
J9=1
L9=2
N9=3

Voilà, j'ai exposé ma question. Votre aide serait bien apprécié.

Merci

Caroline





Avatar
Caroline L.
Bonjour docm,

super ! tout fonctionne. Merci et bonne journée

Caroline


"docm" a écrit dans le message de news:

Bonjour.
Voici une façon en VBA.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Set c = Range("B9,D9,F9,H9,J9,L9,N9")
If Not Intersect(Target, c) Is Nothing Then
If CDbl(Target.Value) = 1 Then
Application.EnableEvents = False
For Each cel In c
If Target.Address = cel.Address Then
ok = 1
End If
valeur = valeur + ok
cel.Value = valeur
Next
Application.EnableEvents = True
End If
End If
End Sub

docm

"Caroline L." a écrit dans le message news:

Bonjour,

ma question n'est pas facile à illuster mais je tente le coup.
La valeur "1" va s'inscrire dans l'une des 7 cellules suivantes :
soit en B9,D9,F9,H9,J9,L9 ou N9, la destination peut être variable.
Mon problème est le suivant : je dois faire en sorte avec VBA ou par
formule, qu'à partir de la cellule qui va contenir la valeur "1" les
cellules suivantes vont contenir la valeur +1. Exemple :
si la valeur "1" s'inscrit en D9, voici les valeurs souhaitées
B9=0
D9=1
F9=2
H9=3
J9=4
L9=5
N9=6

Deuxième exemple :
si la valeur "1" s'inscrit en J9, voici les valeurs souhaitées
B9=0
D9=0
F9=0
H9=0
J9=1
L9=2
N9=3

Voilà, j'ai exposé ma question. Votre aide serait bien apprécié.

Merci

Caroline









Avatar
Caroline L.
Bonjour jojolapin

Merci pour ta réponse, tu m'as fait donner des idées pour ajuster mes
formules et cela va fonctionner.

Caroline

"jojolapin" a écrit dans le message de
news:

"Caroline L." a écrit dans le message de news:

Bonjour,

ma question n'est pas facile à illuster mais je tente le coup.
La valeur "1" va s'inscrire dans l'une des 7 cellules suivantes :
soit en B9,D9,F9,H9,J9,L9 ou N9, la destination peut être variable.
Mon problème est le suivant : je dois faire en sorte avec VBA ou par
formule, qu'à partir de la cellule qui va contenir la valeur "1" les
cellules suivantes vont contenir la valeur +1. Exemple :
si la valeur "1" s'inscrit en D9, voici les valeurs souhaitées
B9=0
D9=1
F9=2
H9=3
J9=4
L9=5
N9=6

Deuxième exemple :
si la valeur "1" s'inscrit en J9, voici les valeurs souhaitées
B9=0
D9=0
F9=0
H9=0
J9=1
L9=2
N9=3

Voilà, j'ai exposé ma question. Votre aide serait bien apprécié.

Merci

Caroline


D9=si(b9=0;"formule qui te permet de calculer D9";"formule qui te permet

de

calculer D9"+1)
"formule qui te permet de calculer D9" est la formule que tu as mis dans
D9

Tu fais la même chose dans les autres cases.
a+