XL 2019 Affichage tableau incomplet resize

Hoareau

XLDnaute Occasionnel
Bonjour
Je voudrais afficher le contenu de strpair dans la feuille
Le résultat de l'affichage du tableau par debug et le résultat de l'affichage sur la feuille diffèrent

merci

4_53_52_51_5<< Résultat affichage resize range 4 combinasons manque 6 combinaisons

Resultat affichage debug -- 10 combinaisons
1_2
1_3
1_4
1_5
2_3
2_4
2_5
3_4
3_5
4_5

Sub pairs_1()

Set rng = [A1:E1]

Dim Strpair(10)
For Each c In rng

For i = 1 To 5 - c.Column
Strpair(i) = c.Value & "_" & c.Offset(0, i).Value

Debug.Print Strpair(i)

Next
Next

[G12].Resize(, UBound(Strpair)) = Strpair
[G12].CurrentRegion.EntireColumn.AutoFit
End Sub









Merci
 

Pièces jointes

  • Resize tableau.xlsm
    22.4 KB · Affichages: 5

Hoareau

XLDnaute Occasionnel
Impeccable merci
J'aimerais quand même savoir pourquoi, alors qu'a mon sens, la syntaxe de resize était bonne la totalité du tableau ne s'affichait pas
Une autre question si possible :

Peut on alimenter, un seul dico avec 2 if not mondico sucessifs

Mise à part, cela me fait plaisir de voir que vous êtes toujours dans le forum, sans forcément répondre à mes demandes
 

Statistiques des forums

Discussions
311 720
Messages
2 081 924
Membres
101 841
dernier inscrit
ferid87