Discussion :

[MarcelG]

Bonjour les amis,

Classique.
Alimentation d'une variable Tableau et report de sa transposition sur une feuille de travail.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
       With .Worksheets("Base")
 
                If .FilterMode = True Then .ShowAllData
 
                Set labase = .Range("A2").Resize(UBound(tablo_collab, 2), UBound(tablo_collab, 1))
 
                With labase
                        .Value = WorksheetFunction.Transpose(tablo_collab)
                        .Replace What:="~?", Replacement:="", Lookat:=xlPart
                        '.Cells(1, 1).Offset(-1, 0).Resize(UBound(tablo_collab, 2) + 1, UBound(tablo_collab, 1)).Columns.AutoFit
                End With
 
                Set labase = Nothing
 
                Application.Goto Reference:=.Range("A1"), Scroll:=True
 
        End With

Sauf que le report me générait une erreur

1004 - Erreur définie par l'application ou l'objet

Mon tableau a pour dimensions 10 champs pour 800 enregistrements.

Par dichotomie, j'ai trouvé "le coupable".

Un champ comportait comme les 2 premiers caractères

=>

J'ai donc dû remplacer ces caractères.
A noter que l'alimentation de la variable tableau ne pose aucun problème.
C'est, je me répète, son reversement sur la feuille qui générait l'erreur.

Bizarre.

Je voulais vous en faire part.

Auriez-vous une explication? D'autres caractères seraient-ils susceptibles de générer ce type d'erreur?

Par avance, merci pour votre - précieux - concours.

[patricktoulon]

re
bonjour marcel
en fait "=" en premier caractère est réservé (pour les formules)donc a moins d'ajouter un simple cote tu aura le soucis même si les cellules sont formatées en texte
est comme"=> est une erreur l'ors de la transposition ca plante
pas d'autre solutions possible
ce qui t'oblige a scruter tout ton tableau avant le l'injecter dans ton resize transposé et d'ajouter ce caractère devant le "="

[MarcelG]

Bonjour Patrick, Bonjour au Forum,

Merci pour cette explication.

Ce qui reste étonnant est que l'écriture dans la cellule initiale n'a pas généré d'erreur.

Quoi qu'il en soit, je vais procéder au remplacement de tous ces caractères.

A bientôt.