Discussion :

[sholood]

Bonjour,

J'ai un tableau dont la première colonne "Etat " soit des "oui" ou "non", deuxième colonne "Date et heure" ensuite des colonnes "RAF" , "RAP" , "RAM".
J'aimerai calculer l'écart entre une cellule et autre qui la précede selon etat "oui" ou "non" et selon le non de colonne RAF ou RAP ou RAM.

Avec la macro Calcul1 qui est une macro automatique ça marche mais pas avec la macro Calcul2.


Merci par avance.

[78chris]

Bonjour

DE façon générale utiliser soit elseif soit une structure SELECT CASE

[Invité]

Bonjour,

Teste comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Calcul2()
  Dim z%, i%
  Sheets("Feuil1").Activate
  z = Range("A" & Rows.Count).End(xlUp).Row
    For i = 4 To z
      If Cells(i, 1) = "NON" Then
        Cells(i, 3).Value = Cells(i, 2).Value - Cells(i - 2, 2).Value
        Cells(i, 4).Value = Cells(i, 2).Value - Cells(i - 1, 2).Value
      End If
    Next i
    For i = 3 To z
      If Cells(i, 1) = "OUI" Then
        Cells(i, 5).Value = Cells(i, 2).Value - Cells(i - 1, 2).Value
      End If
    Next i
End Sub

[sholood]

Merci beaucoup mimimathy tu m'as vraiment sauvé, j'ai essayé plusieurs solutions mais j'ai pas pu car je ss débutant.