[résolu] remplir un tableau composé de données venant des nombreux onglets

[mickael]

Bonjour,

Avant d'exposer mon problème, je vais expliquer ce que je veux ! je travail sous excel 2007 et je fais un programme me permettant de saisir des données pour chaque pièce d'un bâtiment.
J'ai un onglet par pièce et je veux faire un tableau récapitulatif de tout ce que j'ai saisi dans mes pièces.

Voici ma macro :
Sub remplissage()
For Sheet = Sheet2 To Sheet4
For i = 20 To 100
If IsText("Bi") = True Then
Worksheets("tableaurecap").Range("A65536").End(xlUp).Offset(1, 0).Select = "Ai"
Worksheets("tableaurecap").Range("B65536").End(xlUp).Offset(1, 0).Select = "Bi"
Worksheets("tableaurecap").Range("C65536").End(xlUp).Offset(1, 0).Select = "Ci"
Worksheets("tableaurecap").Range("D65536").End(xlUp).Offset(1, 0).Select = "Di"
Worksheets("tableaurecap").Range("E65536").End(xlUp).Offset(1, 0).Select = "Ei"
Worksheets("tableaurecap").Range("F65536").End(xlUp).Offset(1, 0).Select = "Fi"
Worksheets("tableaurecap").Range("G65536").End(xlUp).Offset(1, 0).Select = "Gi"
End If
Next
Next
End Sub


Je suis débutant en programmation sous excel mais j'ai des notions sous d'autres logiciels. quand je la lance, il me dit que la fonction ISTEXT n'est pas une fonction ....

Plutôt que de recopier une ligne complète, j'ai demander de copier toutes les infos de la ligne, ça me semblait plus léger pour le faire travailler


Je vous joint également mon fichier sans les images et en version test : y a que 2 onglets de pièce


Too Files - Hébergement Gratuit de Fichiers - Aucune limite - Reception Pièces Version Light - 7345_receptionpiacesversionlight.xlsx - Too Files

Merci beaucoup

 

[WUTED]

Re : remplir un tableau composé de données venant des nombreux onglets

Bonjour mickael et bienvenue sur XLD,

Voici un essai :

Sub remplissage()
    Application.ScreenUpdating = False
    Dim k As Integer
    Dim sh As Variant
    For Each sh In Sheets
        If sh.Name <> "TABLEAURECAP" Then
            With sh
                For k = 20 To .Range("B65536").End(xlUp).Row
                    .Range("A" & k & ":G" & k).Copy
                    Sheets("TABLEAURECAP").Range("A" & Sheets("TABLEAURECAP").Range("A65536").End(xlUp).Row + 1).PasteSpecial xlValues
                Next k
            End With
        End If
    Next sh
    Application.ScreenUpdating = True
End Sub

Bonne après-midi.

 

[mickael]

Re : remplir un tableau composé de données venant des nombreux onglets

Merci pour cette macro, ca marche tres bien.

Le seul truc, c'est pour les dates, il me met des truc complètements différents : il m'affiche des 4XXXX. J'ai cherché et c'est du au format, une date est dans une cellule de type date et quand je lui demande de devenir une case de type general, il m'affiche le fameux chiffre du tableau recap.


apres reflexion, j'ai trouvé, j'ai que a redéfinir les colonnes concerné en format date.

merci pour tout, problème résolu

 

[fredl]

Re : [résolu] remplir un tableau composé de données venant des nombreux onglets

Bonjour,
Beaucoup d'erreur dans ton code
J'ai rectifié et ta macro se trouve maintenant dans le module1
Dis moi si cela répond à ton besoin.
Frédéric

 

[mickael]

Re : [résolu] remplir un tableau composé de données venant des nombreux onglets

Bonsoir fredl,

merci pour ta macro, je l'ai pas trop regardé car WUTED m'a proposé quelque chose sur mesure mais merci d'avoir pris du temps pour moi