Macro / petite modification

Bonsoir à toutes et tous

J’ai besoin de votre aide pour modifier un petit peu la fonction et l’étendue de ce code

nomR = Range("N2").Value
dateR = Range("O2").Value
i = 2
j = 2
While Cells(i, 1).Value <> ""
    If Cells(i, 1).Value = nomR And Cells(i, 3).Value = dateR Then
        Cells(j, 16).Value = Cells(i, 2).Value
        j = j + 1
    End If
    i = i + 1
Wend

J’utilise cette macro pour rechercher et renvoyer toutes les occurrences numériques selon des critères sélectionnés

Je voulais la modifier de telle sorte qu’au lieu de renvoyer toutes les occurrences, il suffit de me renvoyer la SOMME de toutes les occurrences dans la cellule P2.

Comme je voulais limiter l’étendue de (i) jusqu’à la ligne 500 seulement.

Merci à vous par avance

Bonsoir Amidou, bonsoir le forum,

Pas sûr de te proposer quelque chose de correct vu le peu d'explications fournies :

Dim T As Double

nomR = Range("N2").Value
dateR = Range("O2").Value
For I = 2 To 500
   If Cells(I, 1).Value = nomR And Cells(I, 3).Value = dateR Then T = T + Cells(I, 16).Value
Next I
Range("P2").Value = T

Bonjour ThauThème,

Je pense que tu as voulu écrire :

If Cells(I, 1).Value = nomR And Cells(I, 3).Value = dateR Then T = T + Cells(I, 2).Value

Désolé pour l'incruste si je me trompe.

A+

Bonjour le fil, bonjour le forum,

En fait, Frangy, je n'ai pas compris la somme de quoi Amidou voulait faire... Donc j'ai fait au pif en espérant qu'il corrigerait lui-même...

Bonjour ThauThème, Bonjour Frangy et le forum

C'est ce que je voulais exactement.

je suis fier de ce forum et de ses membres connaisseurs en la matière

Peut-être j'étais pas assez explicite mais il s'agissait de la [ Somme de Cells(i, 2).Value] répondant aux critères sélectionnées.

Merci à vous, ThauThème, Frangy et le forum

Bonne journée et bonne continuation

Bien cordialement