XL 2010 Copier des données en modifiant des données dans colonne selon condition

FCMLE44

XLDnaute Impliqué
Supporter XLD
Bonjour

A l'aide la macro ci-dessous, je copie les colonnes d'un fichier dans la feuille DSN d'un autre fichier.

VB:
Sub FCMLE()
Dim Source As Workbook, Cible As Workbook, DLC As Long, DLS As Long, FC As Worksheet

Set Cible = ThisWorkbook
Set FC = Cible.Worksheets("DSN")

If DLC > 1 Then
   FC.Range("C2:AM" & DLC).ClearContents
End If

With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False 'n'autorise pas choix multiple
If .Show = -1 Then ' si fichier sélectionné
  Set Source = Workbooks.Open(.SelectedItems(1))
    With Source.ActiveSheet
     DLS = .Range("C" & Rows.Count).End(xlUp).Row
     .Range("C2:AK" & DLS).Copy FC.Range("A2")
     .Range("AM2:AN" & DLS).Copy FC.Range("AL2")
    End With
    Source.Close
Else
    MsgBox "Aucun fichier sélectionné"
    Exit Sub
End If
End With
End Sub

Avant de copier les colonnes concernées, je souhaiterais insérer une colonne entre AL et AN et y insérer automatiquement cette formule

En fonction de chaque CODE_DE_SIRET colonne C, on regarde si on a 15.45 en colonne AK
Si c'est le cas on insère une colonne entre AL et AN et pour chaque ligne concernant 15.45 en AK on y met 0.00001 puis 0.00002 etc....

Cf exemple en pièce jointe

Merci beaucoup
 

Pièces jointes

  • DSN test.xls
    82.5 KB · Affichages: 25
  • dsn cible.xlsx
    15.7 KB · Affichages: 25

Discussions similaires

Statistiques des forums

Discussions
312 556
Messages
2 089 572
Membres
104 215
dernier inscrit
Jean Michl