Kouik Kouik jr
XLDnaute Occasionnel
Bonsoir le forum,
Au secours...
j'utilise un code qui me permet de tout simplement mettre dans la colonne P de la feuille HSBC une valeur si sur la même ligne la cellule de la colonne "b" corresond avec la cellule colonne "e" de la feuille JOURNAL
Cela marchait jusqu'a present mais maintenant que je suis passé sur le mode Option Explicit cela ne me donne plus de résultats !!
Merci beaucoup pour toute aide car j'en ai vraiement besoin !
Au secours...
j'utilise un code qui me permet de tout simplement mettre dans la colonne P de la feuille HSBC une valeur si sur la même ligne la cellule de la colonne "b" corresond avec la cellule colonne "e" de la feuille JOURNAL
Cela marchait jusqu'a present mais maintenant que je suis passé sur le mode Option Explicit cela ne me donne plus de résultats !!
Merci beaucoup pour toute aide car j'en ai vraiement besoin !
HTML:
Option Explicit
Sub Macro1()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Déb As Integer
Dim Fin As Integer
Dim i As Integer
Dim j As Integer
Dim Cel As Range
Dim CelluleTrouvee1 As Range
Dim ColFinale1 As Integer
Dim celluletrouvee2 As Range
Dim colfinale2 As Integer
Dim cellule_estimated1 As Range
Dim col_estimated1 As Integer
Dim cellule_estimated2 As Range
Dim col_estimated2 As Integer
Dim x As Variant
Dim Cell As Variant
Call Erase1
Call Chargement_donnees
Call Recherche1
Call NomscolHSBC
'Comparaison ID HSBC avec Journal
With Sheets("JOURNAL")
Déb = 2
Fin = .Range("e" & .Rows.Count).End(xlUp).Row
End With
With Sheets("HSBC")
i = 1
Do While i < Fin
For j = Déb To Fin
If .Range("b" & i).Value = Sheets("JOURNAL").Range("e" & j).Value _
Then .Range("p" & i).Value = Sheets("JOURNAL").Range("a" & j).Value
Next j
i = i + 1
Loop
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub ()