XL 2019 Affichage tableau incomplet resize

[Hoareau]

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_5

3_5

2_5

1_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

 

[pierrejean]

Bonjour Hoareau
Voila comment j'aurais traité

 

[Hoareau]

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

 

[pierrejean]

Re
Resize n’était pas mis en cause
C'est le remplissage de Strpair qui était insuffisant
A priori pas d’empêchement a 2 if not mondico

 

[Hoareau]

Pourtant debug.print affichait bien, la totalité des combinaissons

Pour les dicos, j'ai cherché sur le net, pour voir exemple, pas trouvé
mon essai, a été fait rapidement
Je vais donc réessayer

merci

 

[pierrejean]

Re
Intéresses toi aux valeurs de i et tu comprendras

 

[Hoareau]

i = 1 to 5
justement, c'est là que je ne comprends pas, d'où mon message, la difference entre debug qui affiche le tableau entier et l'affichage

Re
Intéresses toi aux valeurs de i et tu comprendras

 

[pierrejean]

re
en fait tu passes plusieurs fois par les memes valeurs de i
fait
Debug.Print Strpair(i) & " " & i
tu verras que les memes valeurs de i ont successivement des valeurs differentes

 

[Hoareau]

je regarde ça

merci