XL 2019 Macro copier coller suivant condition

vgendron à dit:

Bonjour

tu as oublié de mettre le fichier dont tu parles 🙂

Cliquez pour agrandir...

vgendron à dit:

Hello

Je ne comprend pas tes formules
dans ta feuille "Formules"
pour une colonne (colB par exemple) TOUTES les lignes ont la meme formule..au numéro de ligne prêt... le SLA Code utilisé est toujours le SLA1... erreur ???

Cliquez pour agrandir...

vgendron à dit:

Hello

Je ne comprend toujours pas tes formules...
quelque soit la valeur du SLA 01 02 03...ou 09, tu fais toujours le meme calcul avec les meme valeurs de bonus..
le type de SLA n'a aucun effet sur ton calcul...

dans ta feuille Bonus.. la colonne B.. au lieu de description 1 2 3.... ce ne serait pas justement les SLA 01 02 ... .
et donc en fonction du type SLA dans la feuille Import, tu récupères la valeur du bonus à la bonne ligne dans la feuille Bonus??

si c'est ca. je pense qu'une formule unique peut etre mise dans ta colonne O pour récuperer les données adéquates..

Cliquez pour agrandir...

vgendron à dit:

ok.. pourquoi ne pas mettre directement le fichier avec tes bonnes formules dès le début... soit..
un test ici:

VB:

Sub Set_Formula()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With Sheets("IMPORT")
    fin = .UsedRange.Rows.Count 'dernière ligne de la feuille Import
    For i = 2 To fin 'pour chaque ligne de la feuille IMPORT
        formuleO = "" 'on initialise les formules
        formuleX = ""
        formuleY = ""
        formuleN = ""
   
        SLACode = .Range("J" & i) 'récupère le code SLA en colonne J
        Set trouve = Sheets("FORMULES").Range("A:A").Find(SLACode, lookat:=xlWhole) 'on cherche le code dans la colonne A due la feuille "FORMULES"
        If Not trouve Is Nothing Then 'si on l'a trouvé, on récupère les formules sur la ligne
            formuleO = Sheets("FORMULES").Range("B" & trouve.Row).Formula
            formuleX = Sheets("FORMULES").Range("C" & trouve.Row).Formula
            formuleY = Sheets("FORMULES").Range("D" & trouve.Row).Formula
            formuleN = Sheets("FORMULES").Range("E" & trouve.Row).Formula
      
        .Range("O" & i).Formula = Replace(formuleO, trouve.Row, i) 'on applique la formule dans la feuille IMPORT en modifiant les indices de la formule
        .Range("X" & i).Formula = Replace(formuleX, trouve.Row, i)
        .Range("Y" & i).Formula = Replace(formuleY, trouve.Row, i)
        .Range("N" & i).Formula = Replace(formuleN, trouve.Row, i)
        End If
    Next i
   
End With

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...