Discussion :

[steam-x]

Bonjour Tout le monde,
Après plusieurs tentatives de modification de macros existantes du même sujet, sans résultat.
Je voudrais créer une macro qui permettra sur une page excel est sur la même colonne de trouver une cellule où y'est écrit "accepte", une autre ou y'a écrit "Réalise", de compter le nombre de cellules entre ces deux et d’insérer au niveau de la même page le résultat dans la cellule "O3" sous forme de "Résultat=....". Aidez moi svp! Urgent!!

[EngueEngue]

un code à l'arrache qui marchera.

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
sub result()
dim i as long, debut as long, fin as long, resultat as long
with Sheets("lenomdetonsheet")
For i = 1 to .range("A"& rows.count)
If .range("A" & i) ="accepte" then
debut = i
end if
If .range("A" & i) ="Réalise" then
fin = i
end if
next i
resultat = fin - debut -1
.range("O3")= "Résultat= " & resultat
end with
end sub

[steam-x]

Ca a l'air d'être un bon code à l'arrache. Mais ca m'afiche tjr -1 comme résultat
Merci en tout cas!

[EngueEngue]

accepte et realise sont sur quelle colonne ? As tu changé :
with Sheets("lenomdetonsheet")

[steam-x]

accepte et Réalise sont toujours en A, oui j'ai changé le nom de la feuille en feuil2 comme qui suit:

[EngueEngue]

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
Sub result()
Dim i As Long, debut As Long, fin As Long, resultat As Long
With Sheets("Feuil2")
For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("A" & i) = "accepte" Then
debut = i
End If
If .Range("A" & i) = "Réalise" Then
fin = i
End If
Next i
resultat = fin - debut - 1
.Range("O3") = "Résultat= " & resultat
End With
End Sub

[steam-x]

Parfait! Ca marche bien comme il faut!
Franchement!