Macro Transfert

Bonjour,

J'ai une feuille Excel "ROSA" qui envoie des informations dans un fichier Excel par l'intermédiaire d'une macro "transfert".

Je voudrais rajouter une ligne dans cette macro afin que le texte titre en gras contenu dans la colonne E de "ROSA" arrive en écriture normale.

Quelqu'un aurait-il une idée ?

Merci d'avance

Feever

Hello,

Je n'ai pas Excel sous la main, mais ça doit le faire !

 Range("A1").Font.Bold = False

A adapter, "A1" étant ta cellule ou tu souhaites enlever la police en Gras.

;o)

Je te remercie, mais c'est la colonne 5 (E) qu'il faut envoyer adaptée non gras à l'arrivée dans le fichier.

Feever

Bonjour,

Une petite amélioration du code n'est pas du luxe !

Sub Transfert()
    Dim T(), n%, i%, j%
    With ActiveSheet
        For i = 11 To 26
            If Not IsEmpty(.Cells(i, 2)) And .Cells(i, 2) = 0 Then
                n = n + 1: ReDim Preserve T(3 To 13, 1 To n)
                For j = 3 To 7
                    If .Cells(i, j) <> "" Then T(j, n) = .Cells(i, j)
                Next j
                For j = 9 To 14
                    If .Cells(i, j) <> "" Then T(j - 1, n) = .Cells(i, j)
                Next j
            End If
        Next i
        .Range("G11:G26") = 0
    End With
    With Workbooks("Devis.xlsm").Sheets(1)
        n = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
        .Range("B" & n).Resize(UBound(T, 2), 11).Value = WorksheetFunction.Transpose(T)
    End With
End Sub

Pour ne pas avoir de gras, il suffit de ne pas copier-coller ! On pouvait aussi faire un collage special, mais à quoi bon, en ne copiant pas c'est plus rapide !

A tester (des fois que j'aurais loupé une particularité... pour mémoire on transfère colonnes C à N en sautant la H).

Cordialement.

Le code est plus concis que le mien et fonctionne , merci .

Mais j'ai encore une requête : il faudrait que les informations contenues dans la colonne D de la feuille ROSA n'apparaissent pas dans la feuille devis.

Merci

Cordialement

Feever

Lors du transfert vers la feuille Devis, les formules contenues dans les colonnes I, J, K sont effacées; seul 0 apparaît.

Comment les conserver ?

Merci

Feever

Bonsoir,

La colonne D était prise en compte dans ta macro initiale !?

La macro transfère des valeurs, et non des formules.

Bonjour,

J'ai retiré de la macro les colonnes D, H et I, j'ai réintroduit les formules nécessaires à la feuille Devis.

Le sujet est clos.

Cordialement

feever