Formule dans une UNION

[blueangel2005]

Bonjour tout le monde,
ça fait peu de temps que je me suis mis à faire du VBA Excel donc je maitrise pas trop les opérations sur les objets🙁
Voici les code dont j'explique mon probléme

Sub fctTechnique(SourceFileName, DestFileName)
 Windows(SourceFileName & ".xls").Activate
 Sheets("Drilling report").Select
 Dim rangeTranche, rangeFrom, rangefromCore, rangeToCore, Diam_Dest,  DiamCore, DiamTube As Range
 Dim Result As Range 
 
With Sheets("report")
   K = .[A8].End(xlDown).Row
   rangeTranche = Range("E8:E" & K)
   rangeFrom = Range("C8:E" & K)
   rangefromCore = Range("G8:E" & K)
   rangeToCore = Range("H8:E" & K)
   Diam_Dest = Range("R8:E" & K)
   DiamTube = Range("S8:E" & K)
   Set Result = Union(rangeTranche, rangeFrom, rangefromCore, Diam_Dest, DiamTube)
je veux ajouter une colonne à Result qui est [COLOR="Red"]RangeAdded = rangeTranche+rangeFrom[/COLOR]
avant de coller Result sur une autre feuille
End With
End Sub

comment je peux ajouter une colonne de type formule à un Range🙁
Merci pour votre aidz!!😀

 

[skoobi]

Re : Formule dans une UNION

Bonjour,

Première remarque:
pour associer une référence range (objet) à une variable, il faut utiliser "Set", comme pour "Result":

Set rangeTranche .......
Set rangeFrom ........
etc........

Pour "RangeAdded", et bien:
Set RangeAdded = Union(rangeTranche, rangeFrom)

 

[blueangel2005]

Re : Formule dans une UNION

Merci pour ta réponse j'ai corrigé le code🙂mais je n'ai pas toujours la réponse à ma question🙁

Sub fctTechnique(SourceFileName, DestFileName)
 Windows(SourceFileName & ".xls").Activate
 Sheets("Drilling report").Select
 Dim rangeTranche, rangeFrom, rangefromCore, rangeToCore, Diam_Dest,  DiamCore, DiamTube As Range
 Dim Result As Range 
 
With Sheets("report")
   K = .[A8].End(xlDown).Row
   Set rangeTranche = Range("E8:E" & K)
   Set rangeFrom = Range("C8:E" & K)
   Set rangefromCore = Range("G8:E" & K)
   Set rangeToCore = Range("H8:E" & K)
   Set Diam_Dest = Range("R8:E" & K)
   Set DiamTube = Range("S8:E" & K)
   Set Result = Union(rangeTranche, rangeFrom, rangefromCore, Diam_Dest, DiamTube)
je veux ajouter une colonne à Result qui est RangeAdded = rangeTranche+rangeFrom
avant de coller Result sur une autre feuille
End With
End Sub

 

[skoobi]

Re : Formule dans une UNION

Re Bonjour,

Pour "RangeAdded", et bien:
Set RangeAdded = Union(rangeTranche, rangeFrom)

Ce n'est pas la réponse à ta question?