L
Ludi
Guest
Bonjour a tous je me permet de faire encore appel a vos service sur ce même sujet
j'essaye de créer une macro qui si une condition est repectée sur une feuille d'un classeur
alors elles recherche la valeur de la case C de le ligne i du classeur 1,dans le classeur 2 pour renvoyer les valeurs de la ligne j ainsi trouvé dans le classeur 1 à la ligne i
j'espere que vous comprenez
bref j'ai commence une ptite macro qui..... :sick: Na MARCHE PAS
Aidez moi SVP
Car je n e vais pas y arrvier sinon
merci par vance de votre aide
Sub ChercheDonnées()
'
' Autpen_ChercheDonnées Macro
' Macro enregistrée le 05/08/2005 par ludi
'
Dim i As Integer
i = 78
Dim j As Integer ' j les compteur des lignes sur la feuiles liste suivi dossier'
j = 164
SuiviDossier = ActiveWorkbook.Name
ClasseurListeDossiers = ActiveSheet.Name
Dim chemin As String
chemin = 'H:\\Ludivine\\SuiviDossier\\'
Dim chemincomplet As String
chemincomplet = chemin & 'ClasseurListeDossiers.xls'
While (Range('D' & i).Value <> '') ' si la case nom n'est pas vide faire'
While (Range('G' & i).Value <> '') ' si la case numéro de dossier n'est pas vide passer à la ligne suivante'
i = i + 1
Wend 'sinon faire'
If (Range('F' & i).Value = 'COL12') Then
Workbooks.Open Filename:=chemincomplet
With Workbooks('ClasseurListeDossiers.xls').Sheets('COL12')
While (((.Range('C' & j).Value) <> (Workbooks('ClasseurListeDossiers.xls').Sheets('COL12').Range('D' & i).Value)) & ((.Range('E' & j).Value) <> (Workbooks('ClasseurListeDossiers.xls').Sheets('COL12').Range('E' & i).Value)))
j = j + 1
Wend
If (.Range('D' & i).Value = Workbooks('ClasseurListeDossiers.xls').Sheets('COL12').Range('C' & j).Value) Then
If (.Range('E' & i).Value = Workbooks('ClasseurListeDossiers.xls').Sheets('COL12').Range('E' & j).Value) Then
Workbooks('ClasseurListeDossiers.xls').Sheets('COL12').Range('E' & j).Value = .Range('E' & i).Value
Workbooks('RécapitulatifFacturesEnvoyées').Sheets('Feuil1').Range('G' & i).Value = .Range('B' & j).Value
Workbooks('RécapitulatifFacturesEnvoyées').Sheets('Feuil1').Range('H' & i).Value = .Range('G' & j).Value
Workbooks('RécapitulatifFacturesEnvoyées').Sheets('Feuil1').Range('I' & i).Value = .Range('F' & j).Value
End If
End If
End With
End If
Wend
End Sub
j'essaye de créer une macro qui si une condition est repectée sur une feuille d'un classeur
alors elles recherche la valeur de la case C de le ligne i du classeur 1,dans le classeur 2 pour renvoyer les valeurs de la ligne j ainsi trouvé dans le classeur 1 à la ligne i
j'espere que vous comprenez
bref j'ai commence une ptite macro qui..... :sick: Na MARCHE PAS
Aidez moi SVP
Car je n e vais pas y arrvier sinon
merci par vance de votre aide
Sub ChercheDonnées()
'
' Autpen_ChercheDonnées Macro
' Macro enregistrée le 05/08/2005 par ludi
'
Dim i As Integer
i = 78
Dim j As Integer ' j les compteur des lignes sur la feuiles liste suivi dossier'
j = 164
SuiviDossier = ActiveWorkbook.Name
ClasseurListeDossiers = ActiveSheet.Name
Dim chemin As String
chemin = 'H:\\Ludivine\\SuiviDossier\\'
Dim chemincomplet As String
chemincomplet = chemin & 'ClasseurListeDossiers.xls'
While (Range('D' & i).Value <> '') ' si la case nom n'est pas vide faire'
While (Range('G' & i).Value <> '') ' si la case numéro de dossier n'est pas vide passer à la ligne suivante'
i = i + 1
Wend 'sinon faire'
If (Range('F' & i).Value = 'COL12') Then
Workbooks.Open Filename:=chemincomplet
With Workbooks('ClasseurListeDossiers.xls').Sheets('COL12')
While (((.Range('C' & j).Value) <> (Workbooks('ClasseurListeDossiers.xls').Sheets('COL12').Range('D' & i).Value)) & ((.Range('E' & j).Value) <> (Workbooks('ClasseurListeDossiers.xls').Sheets('COL12').Range('E' & i).Value)))
j = j + 1
Wend
If (.Range('D' & i).Value = Workbooks('ClasseurListeDossiers.xls').Sheets('COL12').Range('C' & j).Value) Then
If (.Range('E' & i).Value = Workbooks('ClasseurListeDossiers.xls').Sheets('COL12').Range('E' & j).Value) Then
Workbooks('ClasseurListeDossiers.xls').Sheets('COL12').Range('E' & j).Value = .Range('E' & i).Value
Workbooks('RécapitulatifFacturesEnvoyées').Sheets('Feuil1').Range('G' & i).Value = .Range('B' & j).Value
Workbooks('RécapitulatifFacturesEnvoyées').Sheets('Feuil1').Range('H' & i).Value = .Range('G' & j).Value
Workbooks('RécapitulatifFacturesEnvoyées').Sheets('Feuil1').Range('I' & i).Value = .Range('F' & j).Value
End If
End If
End With
End If
Wend
End Sub