Discussion :

[Plasmaa]

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

[parmi]

Bonjour,

p = p + 1

à l'intérieur d'une boucle

For p = 1 to 1500

fait en sorte que p est incrémenté de 2.

Met cette ligne en commentaire et réessaie pour voir

[Marc-L]

Bonjour,

plusieurs voies possibles mais j'ai besoin d'un éclaircissement :

peut-il y avoir des cellules vides au sein des données des colonnes A et D ?

Sinon voici un exemple s'il n'y en a pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Demo()
    Application.ScreenUpdating = False
 
    With [A1].CurrentRegion
        For A& = 1 To .Rows.Count
            For D& = 1 To .Rows.Count
                If .Cells(A, 1).Value = .Cells(D, 4).Value Then _
                   .Cells(D, 5).Value = .Cells(A, 2).Value
            Next D
        Next A
    End With
 
    Application.ScreenUpdating = True
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[parmi]

Et s'il y a du texte à comparer, l'utilisation de UCase ou LCase pourrait être utile

[Plasmaa]

Merci Marc-L, cela fonctionne parfaitement. Et non il ne peut pas y avoir de cellules vides.

Et merci aussi à Parmi, je retiens pour le UCase LCase mais pour l'instant, ça ne m'est pas utile.