Bonsoir le foruuuum, j'espere qu'il va bien !!!!!
Bon alors voila, je suis toujours sur le même projet que lorsque j'ai demandé de l'aide pour les combobox en cascade mais la, j'ai un nouveau probleme.
J'utilise ce code (encore merci le forum) pour récuperer des données dans un classeur fermé:
Seulement voila, ce code ne marche qu'avec une seule plage aussi bien pour la source que pour la destination.
J'aimerais le même style de code pour pouvoir mettre plusieurs plages (jusqu'a 50) aussi bien en source qu'en destination. J'ai testé pas mal de possibilité mais en vain.
Je sollicite donc votre aide !
Merci pour votre lecture et merci par avance !
Bon alors voila, je suis toujours sur le même projet que lorsque j'ai demandé de l'aide pour les combobox en cascade mais la, j'ai un nouveau probleme.
J'utilise ce code (encore merci le forum) pour récuperer des données dans un classeur fermé:
Code:
Sub Recup11(vDir As String, vFile)
Sheets("Données").Select
Range("B10:E376").FormulaArray = "='" & vDir & "\[" & vFile & "]" & "SAISIE" & "'!" & "F7:I373"
Range("B10:E376") = Range("B10:E376").Value
Dim t(), i As Integer, j As Integer
t = Range("B10:E376")
For i = LBound(t, 1) To UBound(t, 1)
For j = LBound(t, 2) To UBound(t, 2)
If t(i, j) = 0 Then t(i, j) = ""
Next j
Next i
Range("B10:E376") = t
Sheets("Récapitulatif").Select
End Sub
Seulement voila, ce code ne marche qu'avec une seule plage aussi bien pour la source que pour la destination.
J'aimerais le même style de code pour pouvoir mettre plusieurs plages (jusqu'a 50) aussi bien en source qu'en destination. J'ai testé pas mal de possibilité mais en vain.
Je sollicite donc votre aide !
Merci pour votre lecture et merci par avance !