ecarts entre cellule

  • Initiateur de la discussion Initiateur de la discussion DIDOUS59
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

DIDOUS59

Guest
bonjour
je voudrais calculer UN ECART SI
EXEMPLE
COLONNE A COLONNE B COLONNE C LA REPONSE
1 0
1 0
0 1 2
0 0
0 0
1
SI COLONNE B = 1 COMBIEN EST L ECART EN COLONNE A DU PROCHAIN N° 1 EN COLONNE A

je voudrais la réponse en colonne C qui fait 2 quelle est cette formule?
excusez moi pour des remerciements tardifs mais j ai du mal a vous répondre dans ce forum je suis nouveau!!!!
 
Dernière modification par un modérateur:
Re : ecarts entre cellule

Bonjour,

En supposant les valeurs de A1 à M1, une solution un tantinet capillotractée avec une formule matricielle :

Code:
=MAX(GRANDE.VALEUR((A1:M1=1)*COLONNE(A1:M1);LIGNE(INDIRECT("1:"&NB.SI(A1:M1;1)
+1)))-GRANDE.VALEUR((A1:M1=1)*COLONNE(A1:M1);LIGNE(INDIRECT("2:"&NB.SI(A1:M1;1)
+2))))

Formule matricielle à valider par CTRL + MAJ + ENTREE

Je te laisse tester en grand

@+
 
Re : ecarts entre cellule

Bonjour à tous,
Si la série de chiffres est dans la même cellule (A1):
Code:
Sub EcartMax()
    Dim Chaine As String, n As Integer, i As Integer, k As Integer, Ecart As Variant
    Chaine = Replace(Range("A1"), " ", "")
    n = Len(Chaine)
    Ecart = 0

    For i = 1 To n
        If Mid(Chaine, i, 1) = 1 Then
            For k = i + 1 To n
                If Mid(Chaine, k, 1) = 1 Then
                    Ecart = Ecart & ", " & Len(Mid(Chaine, i, k - i))
                    Exit For
                    GoTo suite
                End If
            Next k
        End If

suite:
    Next i
    MsgBox Evaluate("MAX(" & Ecart & ")")
End Sub

Bonne soirée
Guiv
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 agrandir la liste
Réponses
21
Affichages
642
Réponses
2
Affichages
282
R
  • Question Question
Réponses
3
Affichages
103
regis6460
R
Réponses
3
Affichages
315
Réponses
5
Affichages
909
Retour