Re : Gagner quelques précieuses secondes sur un programme VBA
Bonjour Pierre Jean
Merci de ton aide, voici le résultat des courses.
- avec les 4 lignes, çà marche (pas de surprise)
- avec les 4 lignes + tout le gros fichier, çà bugge avec erreur d'exécution '9' (comme avant) pour la ligne
tabres(2, UBound(tabres, 2)) = tablo(m, 2) & tablo(m, 3) & tablo(m, 4) & "{" & tablo(m, 5) & tablo(m, 6) & "}:" & Split(tablo(m, n), ":")(1)
- avec les 4 lignes +95 lignes du gros fichier, çà bugge avec erreur d'exécution '13' pour la ligne
Sheets("Feuil2").Range("A1").Resize(UBound(tabres, 2), 3) = Application.Transpose(tabres)
- avec les 4 lignes +45 lignes du gros fichier, çà bugge avec erreur d'exécution '13' pour la ligne
Sheets("Feuil2").Range("A1").Resize(UBound(tabres, 2), 3) = Application.Transpose(tabres)
- avec les 4 lignes +25 lignes du gros fichier, çà bugge avec erreur d'exécution '13' pour la ligne
Sheets("Feuil2").Range("A1").Resize(UBound(tabres, 2), 3) = Application.Transpose(tabres)
- avec les 4 lignes +5 lignes du gros fichier, çà marche !! (il se trouve que, hasard, une des nouvelles lignes possède 15 codes, les autres de 1 à 3 codes seulement)
- avec les 4 lignes +7 lignes du gros fichier, dont 2 lignes ajoutées très longues avec 116 et 126 codes (en dessous de la ligne 95 précédente, donc en dehors des cas 3-4-5), çà bugge avec erreur d'exécution '13' pour la ligne
Sheets("Feuil2").Range("A1").Resize(UBound(tabres, 2), 3) = Application.Transpose(tabres)
Elémentaire mon cher Watson !!!
Là tu es encore plus titillé.
A ta dispo et merci encore !
Et si nécessaire message privé, il faudra m'expliquer le mode de fonctionnement !
Steph