XL 2019 Importation de données

Yeahou à dit:

Bonjour Praveena, le forum

On peut le faire par macro ou même par formule, mais sans fichier exemple ça va être très compliqué...

Cordialement, @+

Cliquez pour agrandir...

Yeahou à dit:

Re,

Voila ton fichier matrice, j'ai intégré un tableau structuré.
Tu cliques sur le bouton import pour choisir un fichier et importer un stock.
J'ai aussi refait ta macro de remise à zéro et remis le raccourci noté dans le code, le code d'importation est documenté.

Bien cordialement, @+

VB:

Sub Import_Stock()
    Dim Tab_Stock, Classeur_Export As Workbook, Nom_Fichier$ 'déclaration des variables
    Application.ScreenUpdating = False 'désactivation de l'affichage
    Nom_Fichier = Application.GetOpenFilename(FileFilter:="Fichiers Excel (*.Xls),*.Xls", Title:="Sélectionnez le fichier stock à traiter") 'affiche la boite d'ouverture
    If Dir(Nom_Fichier) = "" Then MsgBox "Importation abandonnée", vbOKOnly + vbInformation: Exit Sub 'teste l'existence du fichier, si annulation sortie
    Set Classeur_Export = Workbooks.Open(Filename:=Nom_Fichier) 'ouvre et référence le classeur à importer
    With Classeur_Export.Sheets(1)
        Tab_Stock = .Range("A1:Q" & .Range("A" & .Rows.Count).End(xlUp).Row).Value 'importe les données dans un tableau
    End With
    Classeur_Export.Close False 'ferme le classeur importé
    Set Classeur_Export = Nothing 'libère l'objet
    With Feuil1 'avec feuil1
        On Error Resume Next 'si erreur va ligne suivante
        .Rows("2:" & .Range("A" & .Rows.Count).End(xlUp).Row).Delete Shift:=xlUp 'supprime les lignes actuelles
        On Error GoTo 0 'réactive la routine standard
        .ListObjects("Tableau1").Resize Range("$A$1:$S$2") 'redimensionne le tableau structuré
        .Range("A1:Q" & UBound(Tab_Stock, 1)).Value = Tab_Stock 'importe les données
        .Range("S2").FormulaR1C1 = "=RC[-1]*RC[-8]/CHOOSE(MATCH(RC[-7],{0;""C"";""M""},0),1,100,1000)" 'remet la formule en colonne S
        .[Tableau1[Quantité]] = 0 'remet des valeurs 0 en colonne R
    End With
    Application.ScreenUpdating = True 'réactive l'affichage
    MsgBox "importation terminée", vbOKOnly + vbInformation
End Sub
Sub zéro()
'
' zéro Macro
' remise à zéro
'
' Touche de raccourci du clavier: Ctrl+o
'
    [Tableau1[Quantité]] = 0
End Sub

Cliquez pour agrandir...