Re : Remplir un noveau tableau excel en fonction d'une valeur de cellule
Alors, après quelques modif pour le mettre dans mon fichier initial (j'ai principalement remis les bons noms d'onglets, voir ce dessous)
il m'annonce argument ou appel de procédure incorrect pour la fonction finale transpose. Je ne vois pas ce qui change, alors que ca marchait pour le doc d'avant...
Un dernier p'tit coup de main ? Merciiii !
Sub remplissage()
Dim Liste
Dim Lig
'créer un dico avec le code B comme clé et LongLat comme valeur
Set Liste = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
With Sheets("IRIS")
For Lig = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
Liste(.Cells(Lig, 2).Value) = .Cells(Lig, 6)
Next Lig
End With
Dim tablo() As String
Dim gp
Dim derLig
Set gp = Sheets("sup-inf Dmax")
derLig = gp.Cells(Rows.Count, 2).End(xlUp).Row
'Pour chaque colonne de "sup-inf Dmax"
Dim col
Dim Ligne
For col = 3 To gp.Cells(3, Columns.Count).End(xlToLeft).Column
'Pour chaque cellule dans la colonne
For Ligne = 4 To derLig
If UCase(gp.Cells(Ligne, col)) = "OUI" Then
ReDim Preserve tablo(1, x)
tablo(0, x) = Liste(gp.Cells(Ligne, 2).Value)
tablo(1, x) = Liste(gp.Cells(3, col).Value)
x = x + 1
End If
Next Ligne
Next col
'mettre à blanc et compléter la feuille "Tps Trajet"
With Sheets("Tps Trajet")
.Cells(2, 1).Resize(.UsedRange.Count, 2).ClearContents
.Cells(2, 1).Resize(x, 2) = Application.Transpose(tablo)
End With
Application.ScreenUpdating = True
End Sub