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
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
Dernière édition: