bonjour à tous.
j'aurais besoin d'aide pour écrire un code qui ferai a peu près ceci:
regarder de combien de semaine est composé le trimestre (valeur contenue dans une cellule définie)
ouvrir sucessivement les feuilles correspondante (j'ai une feuille par semaine)
jusque la tout va bien
pour chaque feuille
lire la collone B (qui contient des destination)
pour chaque destination, trouver la ligne correspondante dans le tableau Trimestriel (la je bloque)
puis lire la case de la collone C et si elle commence par 911, il faudrait incrémenter une cellule dans le tableau
sinon incrémenter une autre cellule.
j'espère être clair. et je remercie toute attention porté à mon problème
je suis preneur de tout idée
j'ai une peu avancé mais cela ne marche pas voici mon code
et ma fonction:
j'aurais besoin d'aide pour écrire un code qui ferai a peu près ceci:
regarder de combien de semaine est composé le trimestre (valeur contenue dans une cellule définie)
ouvrir sucessivement les feuilles correspondante (j'ai une feuille par semaine)
jusque la tout va bien
pour chaque feuille
lire la collone B (qui contient des destination)
pour chaque destination, trouver la ligne correspondante dans le tableau Trimestriel (la je bloque)
puis lire la case de la collone C et si elle commence par 911, il faudrait incrémenter une cellule dans le tableau
sinon incrémenter une autre cellule.
j'espère être clair. et je remercie toute attention porté à mon problème
je suis preneur de tout idée
j'ai une peu avancé mais cela ne marche pas voici mon code
Code:
Select Case Trim
Case "Trim1" 'choix trimestre
Sheets(Trim).Activate
Range("E5") = "Janvier"
Range("I5") = "Février"
Range("M5") = "Mars"
g = recherche(Trim, "Janvier", Janv, 1) 'appel fonction recherche
h = recherche(Trim, Fevrier, Fev, i)
L = recherche(Trim, Mars, Mar, Fev)
et ma fonction:
Code:
Function recherche(Trim As String, Month As String, z As Integer, i As Integer)
Dim a, b As Integer
Dim Mach1 As String
Dim DebutMoi, FinMoi As Integer
Select Case Trim
Case "Trim1"
Select Case Month
Case "Janvier"
DebutMoi = 1
FinMoi = z
Case "février"
DebutMoi = i + 1
FinMoi = z
Case "mars"
DebutMoi = i + 1
FinMoi = z
End Select
For r = DebutMoi To FinMoi
Sheets("sem" & i).Select
For a = 1 To 60
If Range("B" & a) <> "" Then
Mach1 = Range("B" & a).Value
End If
Sheets(Trim).Activate
b = 7
Do Until StrComp(Mach1, Range("A" & b).Text, vbcompare) = 0
b = b + 1
Loop
If Range("sem" & i!["c" & a]).Value = "911???" Then
Range("F" & b).Value = Range("F" & b).Value + 1
Else
Range("E" & b).Value = Range("E" & b).Value + 1
End If
Next a
Next r
Case "Trim2"
Case "Trim3"
Case "Trim4"
End Select
End Function
Dernière édition: