Bonjour
A l'aide la macro ci-dessous, je copie les colonnes d'un fichier dans la feuille DSN d'un autre fichier.
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
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 SubAvant 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