Compter de cellules entre deux cellules variables

Version imprimable

19/07/2013, 13h22
steam-x

Compter de cellules entre deux cellules variables

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!! :roll:

un code à l'arrache qui marchera.

Code:

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

19/07/2013, 13h55
steam-x

Ca a l'air d'être un bon code à l'arrache. Mais ca m'afiche tjr -1 comme résultat :cry:
Merci en tout cas!
19/07/2013, 13h55
EngueEngue

accepte et realise sont sur quelle colonne ? As tu changé :
with Sheets("lenomdetonsheet")
19/07/2013, 14h08
steam-x

1 pièce(s) jointe(s)

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

Code:

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

19/07/2013, 14h42
steam-x

Wow! Merci énormément, ca marche enfin! :ccool:
Sinn si on veut remplacer ' with "la feuille dont on travaille" ' par une macro général a appliqué sur tout les feuille sans mentionner a chaque fois la feuille! c possible?
question de ne pas recopier a chaque fois le même texte pour toute les feuille!

Pour toutes les feuilles du classeur ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub result()
Dim i As Long, debut As Long, fin As Long, resultat As Long
dim sh as sheet
dim wb as workbook
for each sh in wb
with sh
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
next
End Sub

Je réponds à ma propre question:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub result()
Dim i As Long, debut As Long, fin As Long, resultat As Long
 
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 Sub

Merci encore EngueEngue pour ton aide!

19/07/2013, 14h50
EngueEngue

ton code ne marchera que pour la feuille active

tu aurais pu mettre with activeworksheet
19/07/2013, 14h54
steam-x

Oué! j'avoue ton code est mieux! il calcul la somme de cellules au niveau de toutes les feuilles! c ca?

je l'ai appliqué, mais apparemment y'a qlq chose qui cloche au niveau de "For Each Sh In wb"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub result()
Dim i As Long, debut As Long, fin As Long, resultat As Long
dim sh as worksheet
for each sh in thisworkbook.sheets
with sh
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
next 
end sub

19/07/2013, 15h50
steam-x

Parfait! Ca marche bien comme il faut! :ccool:
Franchement! :plusser: