XL et sa logique ...

[tora]

Bonjour a Tous,

Quelqu'un aurait-il une explication a ce phénomène par hasard ? ... :
( Contenu de plage après filtre auto + masquage plusieurs colonnes
reste donc en visible 115 lignes pour 7 colonnes)

Sub test()
Dim Cel As Range, TpS As String
For Each Cel In Range("A1:T1187").SpecialCells(xlCellTypeVisible)
TpS = TpS & Cel.Address & "/"
Next Cel
End Sub

Debut de contenu de TpS :

$A$ 1/$B$ 1/$C$ 1/$E$ 1/$N$ 1/$S$ 1/$T$ 1/
$A$256/$B$256/$C$256/$E$256/$N$256/$S$256/$T$256/
$A$295/$B$295/$C$295/$E$295/$N$295/$S$295/$T$295/
$A$299/$B$299/$C$299/$E$299/$N$299/$S$299/$T$299/
$A$308/$B$308/$C$308/$A$309/$B$309/$C$309/$A$310/
$B$310/$C$310/$E$308/$E$309/$E$310/$N$308/$N$309/
$N$310/$S$308/$T$308/$S$309/$T$309/$S$310/$T$310/
$A$321/$B$321/$C$321/$E$321/$N$321/$S$321/$T$321/
etc... etc ...

Soit donc pour résumer tout va bien sur 4 lignes et ensuite,
a partir de la 5e ligne un gros n'importe quoi ...

Je ne trouve pas mes mots pour expliquer ce résultat ... et vous ?

merci

 

[vbacrumble]

Re : XL et sa logique ...

Bonjour tora , les gens du forum



Tu peux poster un fichier exemple (zippé et sans données confidentielles)
afin de pouvoir tester la chose, stp ?


PS: Il y a peut être trop de caractères dans ta variable TpS non ?

 

[tora]

Re : XL et sa logique ...

Bonjour tora , les gens du forum



Tu peux poster un fichier exemple (zippé et sans données confidentielles)
afin de pouvoir tester la chose, stp ?


PS: Il y a peut être trop de caractères dans ta variable TpS non ?

Slt vbacrumble,

Je ne fesait que donner un exemple ici ...
Dans la realite je souhaitais remplir un array a partir
de la selection retournee par le filtre auto.
J'ai du me debrouiller un peu differemment pour arriver
a mes fins ...
mais je vais essayer de te faire une feuille exemple ...
@ toute

 

[tora]

Re : XL et sa logique ...

voila :

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[vbacrumble]

Re : XL et sa logique ...

Re, (edition: bonjour jp14 )


Test OK sur 1300 lignes et 7 colonnes

Sub test()
Application.ScreenUpdating = False
Dim Cel As Range, PlgF As Range, ResultF As Range, TpS$
Set PlgF = Range("_FilterDataBase")
Set ResultF = PlgF.Offset(1, 0).Resize(PlgF.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
For Each Cel In ResultF
TpS = TpS & Cel.Address & "/"
Next Cel
Range("V1") = TpS
Application.ScreenUpdating = True
End Sub

 

[jp14]

Re : XL et sa logique ...

Bonjour

Test sans problème
J'ai modifié le code et pour diminuer le nombre de caractères.

Sub test()
Dim Cel As Range, tps As Variant
Dim nb As Long
For Each Cel In Range("A1:T1187").SpecialCells(xlCellTypeVisible)

tps = tps & Cel.Address(0, 0) & "/"

Next Cel
nb = Len(tps)
Range("u1") = tps
Range("v1") = nb
End Sub

JP

 

[vbacrumble]

Re : XL et sa logique ...

Re



Je poste un fichier de test

(avec une macro pour remplir et filtrer les données (sur 5000 lignes)

et la macro test (qui jusqu'alors a fonctionné sans problème)

 

[tora]

Re : XL et sa logique ...

Bonjour vbacrumble, jp14

merci pour vos solutions . (pas encore testé)

dans l'immédiat, y-a-t il une explication au décallage dans
le traitement des cellules par XL ??

merci