Discussion :

[vanille972]

bonsoir à tous,
j'ai un petit pb : j'ai une macro qui me permet de transposer dans une base de données mes informations via un formulaire. Seulement, une fois lancé, les cellules de mon formulaire perde leur mise en forme. je dois donc à chaque fois re-transposer mes cellules vierges pour recommencer l'opération

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub transpose_dans_tableau_V02()
    Dim ligne_active_base As Integer
 
    Worksheets("Formulaire").Range("B1:B72").Copy
 
    If Worksheets("BD RESIDENTS").Range("A1") = "" Then
        ligne_active_base = 1
        Else
        ligne_active_base = Worksheets("BD RESIDENTS"). _
            Range("A65536").End(xlUp).Row + 1
    End If
 
    'Collage avec transposition'
    Worksheets("BD RESIDENTS").Range("A" & ligne_active_base). _
        PasteSpecial Paste:=xlPasteAllExceptBorders, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=True
 
    'Rendre vierge le formulaire'
    Worksheets("Formulaire").Range("B1:B72").ClearContents
    'Désactive le mode copier/coller
    Application.CutCopyMode = False
End Sub

[LeForestier]

Bonjour,
j'ai testé ta fonction de copie avec couleur et size différend et cela fonctionne !!
j'ai juste fait une petite variante mais je ne crois pas que cela joue,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
    Worksheets("Formulaire").Range("B1:B72").Select
    Selection.Copy
 
 'Collage avec transposition'
    Worksheets("BD RESIDENTS").Range("A" & ligne_active_base). select
    selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=True

Rien a dire de plus !!
A+