Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 531 fois - Téléchargée 23 fois
Private Function faire_tableau(plage As Range) If plage.Cells.Count < 2 Then Dim tabli(1 To 1, 1 To 1) tabli(1, 1) = plage.Value faire_tableau = tabli Erase tabli Else faire_tableau = plage.Value End If End Function
tabl = faire_tableau(Range("A1:A3")) ' la suite n'est là que comme preuve de la bonne exécution For i = 1 To UBound(tabl, 1) For j = 1 To UBound(tabl, 2) MsgBox tabl(i, j) Next Next
13 févr. 2015 à 23:28
c'est une chose que je cherchais depuis longtemps
cela va compléter mon nouveau code à base de dictionnaire :)
Salut
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.