Discussion :

[patricktoulon]

bonjours a tous
j'ai un soucis avec application.union
ce code ne fonctionne pas et ne m'affiche meme pas un message d'erreur

Code :

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

1
2
3
4
5
6
7
Sub archivage()
 dim  r1 as range ,r2 as range, r3 as range
Set r1 = Sheets(1).Range("A18:H18")
 Set r2 = Sheets(1).Range("A26:H26")
 Set r3 = Sheets(1).Range("A27:H27")
Sheets("archive").Cells(Rows.Count, 1).End(xlUp).Offset(2, 6).Resize(3, 11) = Application.Union(r1, r2, r3)
End Sub

quelqu'un peut me dire pourquoi?
merci du retour

[SfJ5Rpw8]

Bonjour,

déjà pourquoi tes 2 range n'on pas la même taille ?

rajoute la propriété .Value à ton union..

[patricktoulon]

merci Bill pour le retour
effectivement ca n'est pas "H" mais "J" j'etait parti sur 8 colonnes au depart oooppsss!!!

mais ca change rien ca ne fonctionne toujours pas

je n'ai que la premiere plage(r1) qui est copiée sur les 3 lignes de destination

Code :

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

1
2
3
4
5
6
Sub archivages()
 Set r1 = Sheets(1).Range("A18:j18")
 Set r2 = Sheets(1).Range("A26:j26")
 Set r3 = Sheets(1).Range("A27:j27")
Sheets("archive").Cells(Rows.Count, 1).End(xlUp).Offset(2, 6).Resize(3, 10) = Application.Union(r1, r2, r3).Value
End Sub

résultat de la destination

[patricktoulon]

bon finalement je me debrouille mieux avec des tableaux
c'est moins joli mais ca fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
Sub archivages()
Dim r(3) As Range
 Set r(1) = Sheets(1).Range("A18:k18")
 Set r(2) = Sheets(1).Range("A26:k26")
 Set r(3) = Sheets(1).Range("A27:k27")
For i = 1 To 3
Sheets("archive").Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Resize(1, 11) = r(i).Value
Next
End Sub

union a la poubelle

[PMO2017]

Bonjour,

Cela fonctionne chez moi

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
23
24
25
26
27
Sub archivage()
Dim r1 As Range, r2 As Range, r3 As Range
'---
Set r1 = Sheets(1).Range("A18:H18")
Set r2 = Sheets(1).Range("A26:H26")
Set r3 = Sheets(1).Range("A27:H27")
Application.Union(r1, r2, r3).Copy
Sheets("archive").Cells(Rows.Count, 1).End(xlUp).Offset(2, 6).Resize(3, 8).PasteSpecial '### voir ci-dessous pour les paramètres ###
Application.CutCopyMode = False
End Sub
 
'Function PasteSpecial([Paste As XlPasteType = xlPasteAll],
'[Operation As XlPasteSpecialOperation = xlPasteSpecialOperationNone],
'[SkipBlanks], [Transpose])            Membre de Excel.Range
 
'Syntaxe
'expression.PasteSpecial(Coller, Opération, IgnorerVides, Transposer)
'expression   Variable qui représente un objet Range.
'
'Paramètres
'Coller Facultatif XlPasteType Partie de la plage à copier.
'Opération Facultatif XlPasteSpecialOperation Opération de collage.
'IgnorerVides Facultatif Variante True pour que les cellules vides de la plage provenant du Presse-papiers ne soient pas collées dans la plage de destination. La valeur par défaut est False.
'Transposer Facultatif Variante True pour transposer les lignes et les colonnes lorsque la plage est collée. La valeur par défaut est False.
'
'Valeur renvoyée
'Variante

[patricktoulon]

bonjour PMO

oui mais un pastespecial m'oblige a selectionner ca m'ennuie un peu avrai dire sachant que le sheets actif n'est pas la destination
et je ne veux en aucun cas activer le classeur de destination

est ce que copy...destination fonctionnerait d'apres toi ?

edit:
bon copy destiation fonctioone

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    With Sheets(1)
        donné = Array(Format(.Range("B4"), "dd/mm/yyyy"), .Range("B7"), .Range("B6"), .Range("B9"), .Range("B8"), .Range("B5"))
        Set r1 = .Range("A18:k18")
        Set r2 = .Range("A26:k26")
        Set r3 = .Range("A27:k27")
    End With
Set Rng = Application.Union(r1, r2, r3)
Set plage = Sheets("archive").Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Resize(3, 11)
    Rng.Copy Destination:=plage
plage.Interior.Color = vbWhite
End Sub

merci a tous