Transformer données en tableaux

Bien vu, désolé, il manquait rng dans le code, avant Columns.count.

Set wbdest = ThisWorkbook 'classeur exécutant où sera collée la feuille
Set wbsource = Workbooks.Open(objFichiers(1))

    If Not wbdest.Sheets("Armoires").ListObjects(1).DataBodyRange Is Nothing Then wbdest.Sheets("Armoires").ListObjects(1).DataBodyRange.Delete
    Set rng = wbsource.Sheets("Armoire").Range("A1").CurrentRegion
    Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count) ' pour enlever le super titre fusionné et l'en-tête
    rng.Copy Destination:=wbdest.Sheets("Armoires").Cells(1, 1)

    If Not wbdest.Sheets("Support + Foyer").ListObjects(1).DataBodyRange Is Nothing Then wbdest.Sheets("Support + Foyer").ListObjects(1).DataBodyRange.Delete
    Set rng = wbsource.Sheets("Support + Foyer").Range("A1").CurrentRegion
    Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, rng.Columns.Count) ' pour enlever le super titre fusionné et l'en-tête
    rng.Copy Destination:=wbdest.Sheets("Support + Foyer").Cells(1, 1)

Franchement, mille merci à toi !!

Bonjour,

Un petit problème. Mon code suivant me permettait de transformer les données pour quel soit exploitable ( enlever le message d'erreur le nombre est au format texte ou précédé d'une apostrophe ) :

Dim pl As Range, sh As Worksheet
For Each sh In Worksheets(Array("Armoires", "Supports + Foyers"))
Set pl = sh.Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
If Not pl Is Nothing Then
Cells(Rows.Count, Columns.Count).Copy
pl.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
End If
Next sh

Cependant, avec ce nouveau code il ne fonctionne plus. J'ai essaye de résoudre le probleme mais impossible,

Merci

Mets ton code avec les balises </> au-dessus de la fenêtre de discussion et indente le.

Je n'ai jamais vu ce code dans les fichiers que tu as postés.

Je ne comprends pas non plus ce qu'il fait, et cette histoire de valeur textuelle ! Et auparavant il fonctionnait ?

Erreur : l'indice n'appartient pas à la sélection, toujours un soucis de définition des onglets. Déjà signalé.

For Each sh In Worksheets(Array("Armoires", "Supports + Foyers"))

Bonjour,

J'ai trouvé l'erreur nous avions effectivement pas le même nom d'onglet..

Merci

Ceci ne plante pas, mais je ne sais même pas ce que cela fait !

Sub nouveau()

Dim pl As Range, sh As Worksheet
    For Each sh In Worksheets(Array("Armoires", "Support + Foyer"))
        Set pl = sh.Cells.SpecialCells(xlCellTypeConstants, xlTextValues)
        If Not pl Is Nothing Then
            Debug.Print pl.Address
            Cells(Rows.Count, Columns.Count).Copy
            pl.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
        End If
    Next sh

End Sub

à part me donner ceci

$A$1:$N$1,$P$1:$S$1,$U$1:$AB$1,$AD$1:$AY$1,$BA$1:$BL$1,$BN$1:$BP$1,$B$2:$E$3,$O$1:$O$3,$T$1:$T$3,$AC$1:$AC$3,$AZ$1:$AZ$3,$BM$1:$BM$3
$A$1:$AB$1,$AD$1:$AI$1,$AK$1,$AM$1:$AR$1,$AT$1:$BB$1,$BD$1:$BO$1,$BQ$1:$DL$1,$DN$1:$DU$1,$DW$1:$DX$1,$DZ$1:$ED$1,$EF$1:$EK$1,$C$2:$G$3,$T$2:$V$3,$BR$2:$BT$3,$BV$2:$BY$3,$CO$2:$CP$3,$AC$1:$AC$3,$AJ$1:$AJ$3,$AL$1:$AL$3,$AS$1:$AS$3,$BC$1:$BC$3,$BP$1:$BP$3