XL 2021 La méthode union de l'objet '_Global' a échoué

[treza88]

Bonjour à tous,

Pouvez vous me dire pourquoi j'ai cette erreur sur la dernière ligne du code alors que mes deux autres plages sont remplies correctement et avec le même format.

Par contre elles viennent de 2 feuille différente, est ce là le soucis ?

Si oui comment puis je les concaténer ?

filePath = "C:\Users\THOMESHE\Documents\Sauvegarde Dev\Fichier Excel\Plan de charge\14_11_2025\Plan de charge.xlsm"


If filePath <> "False" Then ' Ouvrir le classeur source en lecture seule
    Set wbSource = Workbooks.Open(Filename:=filePath, ReadOnly:=True)
    Set wsSource = wbSource.Sheets("Terminés")
    For i = 1 To 2
    
        If i = 2 Then
            Set wsSource = wbSource.Sheets("Charges")
            num = 0
        End If
    
        Application.CutCopyMode = False
        MsgBox wsSource.Name
        ' Définir la plage à copier
        Set sourcePlage = wsSource.Range("A6:" & wsSource.Cells(Rows.Count, 3).End(xlUp).Address, "E6:" & wsSource.Cells(Rows.Count, 7).End(xlUp).Address) ' Remplacez par votre plage de cellules
        nbLignesPlage = 0
        nbLignesPlage = sourcePlage.Rows.Count
        MsgBox nbLignesPlage
        'Stop
    ' Boucler sur chaque ligne de la plage
        For Each ligne In sourcePlage.Rows
            'MsgBox ligne.Address
            'Stop
            lign = False
            ' Exécuter une action sur la cellule courante
            For Each cell In ligne.Cells
 
                If Split(cell.Address, "$")(1) = "A" Then
                'MsgBox cell.Text & " " & cell.Address
                '         Stop
                    If Trim(cell.Text) = "T" Or Trim(cell.Text) = "P" Or Trim(cell.Text) = "t" Or Trim(cell.Text) = "p" Then
 
                    num = num + 1
                    lign = True
                    Set strRng = ligne
                    '    MsgBox strRng.Address

                    End If
                End If
                'Stop
            Next cell
            If lign Then
            'MsgBox "ok"
            If i = 1 Then
                If num = 1 Then
                    Set plageUnion1 = strRng
                Else
                    Set plageUnion1 = Union(plageUnion1, strRng)
                End If
            Else
                If num = 1 Then
                    Set plageUnion2 = strRng
                Else
                    Set plageUnion2 = Union(plageUnion2, strRng)
                End If
            End If
                'MsgBox plageUnion.Address
                'Stop
            End If
        Next ligne
      
    Next i
   Set plageUnion = Union(plageUnion1, plageUnion2)

 

[sousou]

Bonjour
effectivement, il me semble que l'union sur deux feuilles différentes est impossible ( sous reserve)
tu pourrais passer par une espèces de feuille temporaire, ou tu collerais tes plages et pourrais ainsi faire l"union

 

[Phil69970]

Bonjour @treza88

Par contre elles viennent de 2 feuille différente, est ce là le soucis ?

Oui c'est cela le pb
Union ne fonctionne pas entre les feuilles de calcul.

 

[treza88]

J'ai essayé ça aussi, mais j'ai sur la deuxième ligne cette erreur :

Argument ou appel de procédure incorrect

Set plageUnion = Nothing
    plageUnion1.Copy plageUnion
    plageUnion2.Copy plageUnion.Offset(plageUnion1.Rows.Count, 0)

 

[Phil69970]

@treza88

Une piste
Utilisation de union sur une ligne ou une colonne entière génère une erreur aussi.

 

[Phil69970]

@treza88

C'est facile à comprendre pourquoi car quand tu fais par exemple Col A + cellule B1 tu crées une plage supérieur au max possible donc erreur !

 

[job75]

Bonjour treza88, le forum,

Par contre elles viennent de 2 feuille différente, est ce là le soucis ?

Si oui comment puis je les concaténer ?

En effet on ne peut pas utiliser Union sur des feuilles différentes.

Concaténer quoi et comment ? Il faudrait expliquer avec un fichier.

A+

 

[treza88]

j'ai deux plages dans un fichier source non ouvert dans 2 feuilles différentes et je veux affecter la première plage a un objet Range, puis intégrer/concaténer la deuxième plage dans ce même objet Range en passant par ou plusieurs objet Range.

Plage de même largeur, mais hauteur différente

Voici le genre de plage que j'ai visualiser dans le fichier joint

 

[sousou]

Peut-être??? comme ceci

 

[treza88]

Merci sousou, c'est a peu de chose près ce que j'ai fait au post #4, sauf que moi c'est la plage 1 au dessus de la plage 2.

Mais j'ai l'erreur : "Argument ou appel de procédure incorrect"

 

[sousou]

faudrait voir ton fichier