Re : "Additionner" 2 feuilles
La réponse BOISGONTIER c'est une fonction à recopier sur ta page Résultat désiré...
Ne pas oublier de copier la macro sur ton application...
Les macros tu les trouvent en faisant ALT+F11...
Moi c'est une macro sur la feuille...
Private Sub Worksheet_Activate()
Dim i As Integer 'declaration des variables
Dim j As Integer
Dim derlig As Integer
Dim trouv As Byte
Cells.Select 'efface les cellules de la feuille recap
Selection.ClearContents
Range("a1").Select
Range("a1").Value = "Nom"
Range("b1").Value = "Source A"
Range("c1").Value = "Source B"
'boucle sur la feuille Source A et recopie les données sur la feuille recap
For i = 2 To Sheets("Source A").Range("a65536").End(xlUp).Row
Cells(i, 1) = Sheets("Source A").Cells(i, 1).Value
Cells(i, 2) = Sheets("Source A").Cells(i, 2).Value
Next
'calcul de la derniere ligne de la feuille recap
derlig = Range("a65536").End(xlUp).Row
'boucle sur la feuille source B
For i = 2 To Sheets("SourceB").Range("a65536").End(xlUp).Row
trouv = 0
'boucle sur la feuille recap
For j = 2 To derlig
If Cells(j, 1) = Sheets("SourceB").Cells(i, 1).Value Then
trouv = 1 'si la cellule de la 1ere colonne est identique copie des données
Cells(j, 3) = Sheets("SourceB").Cells(i, 2).Value
End If
Next j
Si il n'a pas trouvé de correspondance ajout d'une ligne et saisie des données...
If trouv = 0 Then
derlig = derlig + 1
Cells(derlig, 1) = Sheets("SourceB").Cells(i, 1).Value
Cells(derlig, 3) = Sheets("SourceB").Cells(i, 2).Value
End If
Next i
End Sub
A+ François