Bonjour à tous,

Mes cours de VB date d'un peu trop loin alors je cale. Si quelqu'un peut m'aider, je pense que c'est pas très compliqué.

Je cherche a comparer deux cellules (A1 et D1) sur un même feuille. Si celle ci sont identiques alors je veux copier B1 sur E1.
Et continuer cette vérification de A1 sur D2 puis D3 puis D4... (jusqu'a la fin de ma colonne D). Ainsi, si A1 = D85 alors B1 sera copié sur E85.

Une fois que A1 s'est comparé avec toute la colonne D

Alors je veux que A2 se compare avec toute la colonne D (en gardant la condition que si VRAI alors copier/coller de B2 vers la cellule qui a été comparée).

Et ainsi de suite jusque la fin de ma colonne A

J'ai entammé un petit script, qui fait presque ce que je veux, mais qui plante. Il doit y avoir un problème de boucle ou d'incrémentation :

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
34
35
36
37
 
 
Dim reffr As Integer
Dim refeng As Integer
Dim p As Integer
 
Sub Macro2()
 
reffr = 1
refeng = 1
p = 1
 
Do While (reffr < 1150)
 
    For p = 1 To 1500
 
        If Range("A" & reffr) = Range("D" & refeng) Then
            Range("B" & reffr).Select
            Selection.Copy
            Range("E" & refeng).Select
            ActiveSheet.Paste
            refeng = refeng + 1
        Else
            refeng = refeng + 1
            Cells(refeng, 8).Value = 998
        End If
 
    p = p + 1
 
    Next
 
reffr = reffr + 1
refeng = 1
 
Loop
 
End Sub
Merci de votre aide