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]

Wow! Merci énormément, ca marche enfin!
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!

[EngueEngue]

Pour toutes les feuilles du classeur ?

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
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

[steam-x]

Je réponds à ma propre question:

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

[EngueEngue]

ton code ne marchera que pour la feuille active

tu aurais pu mettre with activeworksheet

[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"

[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
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

[steam-x]

Parfait! Ca marche bien comme il faut!
Franchement!