Discussion :

[alex santus]

Bonsoir a tous,

es ce que quelqu un pourrai m aider ou me mettre sur la bonne vois pour demarer un code.

je voudrai comparer les numéro de facture similaire d une feuille(Achat!) avec une autre
feuille ou se retrouve uniquement les les numéro de facture qui n on pas encore été payé "car pas de date dans la cellule a coté (Impaye!)

j ai donc deux critère les num de facture égaux mais pas de date,
comme ca si je mes la date et lance la procédure il ira écraser la feuille achat mais avec la date cette fois si.

j espere que c est comprénsible et d avance merci pour vos réponse.

voici mon toujourss mon début de code mais je crois que je m'égare !!

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
Sub SupFacPaye()
 
    Dim CelDatePaye As String
    Dim NumFactureImpaye As String
    Dim NumFacturepaye As String
    Dim CelluleTest As Range
 
    NumFacturepaye = "e1:e" & WSachat.Range("e65536").End(xlUp).Row
    NumFactureImpaye = "e1:e" & WSFactureImpaye.Range("e65536").End(xlUp).Row
    CelDatePaye = "d1:d" & WSFactureImpaye.Range("d65536").End(xlUp).Row
 
    For Each CelluleTest In WSFactureImpaye.Range(NumFactureImpaye)
        If (CelluleTest.Value) = WSachat.Range(NumFacturepaye) Then
        'And CelDatePaye < 1 Then
        WSFactureImpaye.Range("a" & CelluleTest.Row & ":e" & CelluleTest.Row).Copy
        'WSachat.Range("a" & NumFacturepaye.Row).PasteSpecial (xlPasteAll)
        End If
    Next

Alex

[jfontaine]

Bonjour,

Il te manque une autre boucle de recherche pour la cible

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Pour chaque cellule de la source
 
     Pour chaque cellule de la cible
 
           Test si égal
 
     cellule cible suivant
 
Cellule source suivante

[alex santus]

Génial j'ai réussi
Merci, jfontaine

Alex