Probleme insertion valeur dans une feuille via union
Bonjour à vous tous,
je suis debutant en vba et je dois refaire un fichier et donc changer le code dedans. voici le code si dessous qui me pose probleme :
je dois inserer deux plages de cellules de la feuille formulaire ( cellules de C4 à C10 et celles de f4 à F10). le probleme c'est que j'ai mis une union (au niveau du "T") pour prendre en compte les deux colonnes mais lorsque je fais ma macro seules les cellules "c4:c10" s'inserent dans la feuille "base de données" et les autres j'ai "#N/A" à la place de mes valeurs et je ne comprend pas pourquoi ?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Sub insertion()
With Sheets("Formulaire")
Nformat = .Range("c4").NumberFormat
T = Application.Union(Range("c4:c10"), Range("f4:f10")).Value
With Sheets("Base de données")
If IsEmpty(.Range("a1")) Then dl = 1 Else: dl = .Range("A65000").End(xlUp).Row + 1
.Range(.Cells(dl, 1), .Cells(dl, 14)).NumberFormat = Nformat
.Range(.Cells(dl, 1), .Cells(dl, 14)) = Application.transpose(T)
End With
.Range("c4:c10").ClearContents
.Range("f4:f10").ClearContents
End With
MsgBox ("test")
End Sub |
Merci pour l'aide que vous m'apporterez,
Cordialement
Luc
