Re : vba macro help me
voici le debut de ma macro pour l'extraction des informations du fichier excel à mon tableau fichier source.
Sub essai()
Dim Fiche_Recap As Worksheet
Dim Fiche_Source As Worksheet
Dim Deb_Lste As Range
Dim Fin_Lste As Range
Dim Liste_Frs As Range
Dim Frs As String
Dim MaCell
Set Fiche_Recap = ThisWorkbook.Worksheets("Fiche1")
Set Deb_Lste = Fiche_Recap.Range("B23")
Set Fin_Lste = Fiche_Recap.Range("B2990")
Set Liste_Frs = Range(Deb_Lste, Fin_Lste)
Set Fiche_Source = Workbooks("D75-Srce.xls").Worksheets("Page 1")
Fiche_Source.Activate
Range("A2").Select
suite:
If ActiveCell.Value = "Effectif moyen :" Then
ActiveCell.Offset(0, 2).Copy
Else
ActiveCell.Offset(1, 0).Select
GoTo suite
End If
Fiche_Recap.Activate
Fiche_Source.Activate
Range("J1").Select '
Faire:
If ActiveCell.Value <> "" Then
GoTo Ecrire
Else
ActiveCell.Offset(1, 0).Activate
GoTo Faire
End If
Ecrire:
ActiveCell.Offset(0, 1).Activate
ActiveCell.FormulaR1C1 = "=REPLACE(RC[-1],1,18,"""")"
Frs = ActiveCell.Value
Fiche_Recap.Activate
'MaCell = Frs
Set MaCell = Liste_Frs.Find(What:=Frs, LookIn:=xlValues, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Not MaCell Is Nothing Then
MaCell.Offset(0, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub