if plusieurs conditions else

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.

Bonjour

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

Bonjour,

Teste comme ceci

Code:

---

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

---

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