Discussion :

[Al3x300]

Bonjour à tous,

Je vais essayer de vous exposer mon problème du mieux possible.
Pour certains il sera surement très simple

je prends comme exemple les colonnes suivantes


Dans la colonne A:A la liste a,b,h ..... se rempli avec une macro d'une autre feuille

Mon problème est :

Je souhaiterai dans la colonne récap ajouter les lignes (colonne A et B) mais seulement celles qui n’existent pas dans "récap"
MAIS ÉGALEMENT si elles existent de pouvoir ajouter les chiffres de la colonne B dans la colonne E.

Je m'excuse par avance si mon problème n'est pas clair mais je ne vois comment expliquer mieux
Merci d'avance à tous ceux qui me liront

[jerome.vaussenat]

Salut,

Pendant la mi-temps de PSG...

voici une solution.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub parcourt()
Dim mon_tableau()
Dim cpt As Integer
Dim cpt1 As Integer
 
cpt = 0
Range("A4").Select
'mémorisation des données de la col A
Do While ActiveCell.Offset(cpt, 0).Value <> ""
    ReDim Preserve mon_tableau(1, cpt)
    mon_tableau(0, cpt) = ActiveCell.Offset(cpt, 0).Value
    mon_tableau(1, cpt) = ActiveCell.Offset(cpt, 1).Value
    cpt = cpt + 1
Loop
 
'implantation des données dans la colonne E
For cpt1 = 0 To UBound(mon_tableau, 2)
    Range("D4").Select
    cpt = 0
    'on parcourt la colonne E pour trouver le texte de la colonne A
    Do Until ActiveCell.Offset(cpt, 0).Value = mon_tableau(0, cpt1) Or ActiveCell.Offset(cpt, 0).Value = ""
        cpt = cpt + 1
    Loop
    'A la fin soit on à trouver et on ajoute la valeur soit on n'a pas trouver et on ajoute la ligne
    If ActiveCell.Offset(cpt, 0).Value = "" Then
        ActiveCell.Offset(cpt, 0).Value = mon_tableau(0, cpt1)
        ActiveCell.Offset(cpt, 1).Value = mon_tableau(1, cpt1)
    Else
        ActiveCell.Offset(cpt, 1).Value = ActiveCell.Offset(cpt, 1).Value + mon_tableau(1, cpt1)
    End If
Next
 
End Sub

Bonne utilisation

[Al3x300]

Merci Jerome,
C est exactement ce qu'il me fallait.