Discussion :

[nianko]

Bonjour,

J'ai pas mal travaillé sur un exercice et je ne trouve toujours pas de soluce convenable.
J'ai un classeur dans lequel il y a entre les lignes 2 à 100 et les colonnes A à Z des années sous le format "annéeXX" et à immédiatement à côté à droite des chiffres correspondant à des CA. On veut écrire une fonction qui est appelée par une procédure SUb et qui fait la somme des valeurs correspondant à un CA donné (l'année à traiter est indiqué en A1 feuille 1).

J'obtiens un message d'erreur 'argument not optional' avec ce code:

Function rechercher(annee As String) As Double
Dim rec As Date, i As Integer, j As Integer
rechercher = 0
rec = CDate(annee) ' Mise en forme de la recherche
For i = 2 To 100
For j = 1 To 25
If Range(Range.Rows(j) & i) = rec Then
rechercher = rechercher + Range(Range.Rows(j) + 1 & i)
End If
Next j
Next i
End Function

Sub Q_2()
Dim annee As String
annee = Worksheets(1).Range("A1")
MsgBox "La somme des exercices pour l'année " & Right(annee, 4) & " est " & rechercher(annee)
End Sub


Je mets mon fichier avec.
Je précise qu'il faut absolument que la variable pour le stockage de l'année soit String.

Merci d'avance

[wilfried_42]

Bonjour

voici ta fonction, selon ton fichier (année en A et montants en B)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function rechercher(annee As Integer) As Double
    Dim rec As Date, i As Long
    rechercher = 0
    rec = CDate("01/01/" & CStr(annee)) ' Mise en forme de la recherche
 
    For i = 1 To 100
        If Range("A" & i) = rec Then
            rechercher = rechercher + Range("B" & i)
        End If
    Next i
End Function

Bonne journée