A voir également:
- Petit prôblème de formules sous Excel
- Formule excel - Guide
- Liste déroulante excel - Guide
- Formule excel si et - Guide
- Formule moyenne excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
2 réponses
danielc0
Messages postés
837
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
22 avril 2024
74
20 juil. 2018 à 12:14
20 juil. 2018 à 12:14
Bonjour,
En attendant mieux, en supposant qu'il n'y ait qu'une valeur 1 en colonne B et avec deux colonnes de calcul :
en C6 à recopier vers le bas :
=SI(OU(LIGNE()=MAX($D$6:$D$15);LIGNE()=MIN($E$6:$E$15));1;"")
en D6 à recopier vers le bas :
=SI(ET(B6=0;A6=1;ESTNUM(EQUIV(1;B6:$B$15;0)));LIGNE();"")
en E6, à recopier vers le bas :
=SI(ET(A6=1;B6=0;ESTNUM(EQUIV(1;$B5:B$6;0)));LIGNE();"")
Cordialement.
Daniel
En attendant mieux, en supposant qu'il n'y ait qu'une valeur 1 en colonne B et avec deux colonnes de calcul :
en C6 à recopier vers le bas :
=SI(OU(LIGNE()=MAX($D$6:$D$15);LIGNE()=MIN($E$6:$E$15));1;"")
en D6 à recopier vers le bas :
=SI(ET(B6=0;A6=1;ESTNUM(EQUIV(1;B6:$B$15;0)));LIGNE();"")
en E6, à recopier vers le bas :
=SI(ET(A6=1;B6=0;ESTNUM(EQUIV(1;$B5:B$6;0)));LIGNE();"")
Cordialement.
Daniel
Hutg
Messages postés
8
Date d'inscription
mercredi 11 juillet 2018
Statut
Membre
Dernière intervention
20 juillet 2018
20 juil. 2018 à 12:34
20 juil. 2018 à 12:34
Bonjour,
Sinon en VBA :
Sub un()
Set zone = Range(Cells(1, 2), Cells(10, 2))
For Each C In zone
If C = 1 Then
i = 0
Do While Not Cells(C.Row + i, 3) = 1
If Cells(C.Row + i, 1) = 1 Then
Cells(C.Row + i, 3) = 1
Else
i = i + 1
End If
Loop
i = 0
Do While Not Cells(C.Row - i, 3) = 1
If Cells(C.Row - i, 1) = 1 Then
Cells(C.Row - i, 3) = 1
Else
i = i + 1
End If
Loop
End If
Next C
End Sub
Bon courage
Sinon en VBA :
Sub un()
Set zone = Range(Cells(1, 2), Cells(10, 2))
For Each C In zone
If C = 1 Then
i = 0
Do While Not Cells(C.Row + i, 3) = 1
If Cells(C.Row + i, 1) = 1 Then
Cells(C.Row + i, 3) = 1
Else
i = i + 1
End If
Loop
i = 0
Do While Not Cells(C.Row - i, 3) = 1
If Cells(C.Row - i, 1) = 1 Then
Cells(C.Row - i, 3) = 1
Else
i = i + 1
End If
Loop
End If
Next C
End Sub
Bon courage
25 juil. 2018 à 10:29