Modification code exportation données (Résolue)

[donmunnir]

Bonjour à Tous,
je suis débutant en VBA, et sur le fichier ci-joint que j'ai trouvé sur un autre site j'ai un code avec le quel j'exporte des données de l'ongle Qte vers l'onglet Ref.
mais j'ai deux petits souci :

1-c'est que les ligne 9, 10 et 11 de l'onglet Ref ou j'ai des nouvelles données ne prennent pas la même mise en forme des autres lignes comme 6, 7 et 8.....donc je veux modifier le code pour que quand je fais l'exportation les lignes qui s'ajoutent prenne la même mise en forme avec les formules et les données qui se répètent

2-un autre souci c'est que quand je fais l'exportation les cellules O14 et O15 disparaissent

 

[cathodique]

Re : Modification code exportation données

ci-joint, j'espère que c'est ce que tu veux.

 

[donmunnir]

Re : Modification code exportation données

c'est bien ce que je veux Merci beaucoup
il reste une petite chose sur L15 et O15 je veux toute la valeur avec la virgule

 

[cathodique]

Re : Modification code exportation données

Mon ami, ce n'est pas de la prestation de service.

 

[donmunnir]

Re : Modification code exportation données

je m'excuse je sais que je t'ai cassé la tête..... mais je te remercie beaucoup pour le temps que tu m'a accordé pour répondre sur mes demandes
je ne sais pas si c'est possible d'avoir 10 chiffres ou plutôt tout les chiffres après la virgule
puis l'ajout des cadres comme mise en forme

puis j'ai une petite demande que j'ai oublié :
sur la colonne H je veux avoir la formule que tu trouvera sur la formule ci-joint

 

[cathodique]

Re : Modification code exportation données

voilà! c'est ma dernière intervention.

Sub Transfert2()
    Application.ScreenUpdating = False
    Set Ref = Sheets("Ref")
    Set Qte = Sheets("Qte")
    With Ref
        n = .Cells(65536, 15).End(xlUp).Row  'dernière ligne non vide en colonne R
        .Range("R6:R" & n).ClearContents    'effacer contenu colonne R
        .Range("O6:O" & n).ClearContents    'effacer contenu colonne O
        If n > 6 Then .Range("A7:R" & n).Clear  'vider plage A7 à Rn

    End With
    n = 6
    With Qte
        For i = 12 To .Cells(65536, 17).End(xlUp).Row
            If .Cells(i, 17).Value <> "" And .Cells(i, 17).Value > 0 And .Cells(i, 17).Interior.ColorIndex = 35 Then    '<> 6 Then '6=jaune; 35=vert
               Ref.Cells(n, 15).Value = .Cells(i, 17).Value
                Ref.Cells(n, 18).Value = .Cells(i, 2).Value
                Ref.Cells(n, 12).Value = .Cells(i, 1).Value
                n = n + 1
            End If
        Next i
    End With
    With Ref
        n = .Range("R" & Rows.Count).End(xlUp).Row
        .Rows("6:6").Copy
        For i = 7 To n
            .Rows(i).PasteSpecial Paste:=xlPasteFormats
            .Range("A" & i) = .Range("A" & i - 1) + 10
            .Range("D" & i) = .Range("D" & i - 1)
            .Range("G" & i) = .Range("G" & i - 1)
            .Range("I" & i) = .Range("I" & i - 1)
            .Range("P" & i) = .Range("P" & i - 1)
        Next i
        
        'formule
        n = .Range("R" & Rows.Count).End(xlUp).Row
        .Range("O" & n + 3).FormulaLocal = "=Somme(O6:O" & n & ")"
        .Range("O" & n + 4).Value = .Range("O" & n + 3)
        .Range("H" & n + 3).FormulaLocal = "=Somme(H6:H" & n & ")"
        .Range("H" & n + 4) = 989789
        .Range("L" & n + 4).Formula = "=H" & n + 4 & "/O" & n + 4
        
        'mef
        .Range("H" & n + 3, "O" & n + 4).Font.Bold = True
        .Range("H" & n + 3, "O" & n + 4).Font.Name = "Arial"
        .Range("H" & n + 3, "O" & n + 4).Font.Color = -16776961
        
        For j = 6 To n
        .Cells(j, 8) = .Cells(n + 4, 12).Value * .Cells(j, 15).Value
        Next j
    End With
    Application.CutCopyMode = False
End Sub

vraiment déçu, tu n'as fait aucun effort. Tu cherches du tout cuit. Je comprends pourquoi Lone-wolf s'est tiré.

 

[donmunnir]

Re : Modification code exportation données

Merci Beaucoup cathodique c'est exactement ce que je veux....
je m'excuse si je t'ai cassé la tête avec toutes mes demandes..(je suis débutant en VBA)....

 

[cathodique]

Re : Modification code exportation données (Résolue)

Aucun souci à te faire. Il ne faut pas croire que je suis très fort. Je suis toujours en apprentissage.

Pour avoir la formule comme tu voulais en L, j'ai fait beaucoup de tests non concluants. J'ai alors demandé de l'aide.

Il faut faire des tests mais surtout comprendre les codes.

Je te souhaite bon courage pour la suite et bienvenu parmi nous. Nous formons une formidable communauté.

 

[donmunnir]

Re : Modification code exportation données (Résolue)

je te remercie encore une autre fois...je te promets que je vais essayer d'apprendre le VBA
bon courage a toi également..et a très bientôt