Erreur dans la transposition d'une variable Tableau
Bonjour les amis,
Classique.
Alimentation d'une variable Tableau et report de sa transposition sur une feuille de travail.
Code:
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
Citation:
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. :koi:
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.
