Chargement des données d'une feuille dans une tableau

Bonjour,

Ecrit comme ça le code va planter...

Ceci par contre est plus explicite :

Sub Charger_Tab (T As Variant, zone As String) 
    T = Range(zone).Value
End Sub

Cette Sub converti une plage de données (Range(zone)) en une variable tableau (T).

Mais si tu n'as qu'une cellule dans ton Range(zone), ça va aussi bugguer.
Que faire alors?
Voir ICI

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

Avant, j'arrivais jamais à finir mes phrases... mais maintenant je

Bonjour metal1106,

Le nom de ta sub est « Charger_Tab » pour « Charger_Tableau ».

Lors de l'appel de cette sub, il faut obligatoirement lui transmettre
2 paramètres ; comme leur type n'est pas indiqué (avec As Type),
c'est donc le type Variant (implicite).

a) T : une variable destinée à contenir les données
b) zone : une variable indiquant la plage des données à charger

L'instruction T = Range(zone) charge donc les données de
la plage zone dans la variable T.

Si ton problème est réglé, merci d'aller en haut de page pour
cliquer sur « Marquer comme résolu ».

Cordialement.  😊