cs_seedorf
Messages postés23Date d'inscriptionjeudi 7 juin 2001StatutMembreDernière intervention 6 mars 2004
-
5 janv. 2002 à 13:14
chaudier37
Messages postés209Date d'inscriptionjeudi 5 août 2004StatutMembreDernière intervention15 juillet 2009
-
18 sept. 2007 à 22:57
Salut,
mon prob c'est que je veux Redimensionner un tableau que j'ai declaré Dynamique avec un Dim MonTableau() as MonType , je rempli et ca marche mais à un certain moment du prog je veux vider le contenu de mon tableau et le redimensionner si c possible à 0 car à chaque fois ou je veux ajouter un élément je fait un ReDim (Ubound + 1) et ca marche, mais qd je veux le remattre à vide ca marche pas.
qq1 a une solution?
chaudier37
Messages postés209Date d'inscriptionjeudi 5 août 2004StatutMembreDernière intervention15 juillet 2009 18 sept. 2007 à 22:57
Bonjour,
voici un exemple que j'ai l'habitude d'utiliser pour les tableaux à redimensionner.
Option Explicit
Dim MonTableau() As Variant
Private Sub CommandButton3_Click()
If Range("A5") = "" Then
Range("A5") = "0"
Range("B5") = "0"
Range("C5") = "0"
Range("D5") = "0"
Range("E5") = "0"
Range("F5") = "0"
Range("A1").Select
MsgBox "la fiche est vide"
End If
Range("A1").Select
Dim DerniereLigne As Byte
DerniereLigne = Range("A4").End(xlDown).Row
Dim NbreDeLignes As Byte
NbreDeLignes = DerniereLigne
ReDim MonTableau(NbreDeLignes, 6)
Call AffecterValeursTableau(NbreDeLignes)
End Sub
Sub AffecterValeursTableau(DerniereLigneTableau)
Dim CompteurLignes As Byte
Dim CompteurColonnes As Byte
For CompteurLignes = 0 To DerniereLigneTableau
For CompteurColonnes = 0 To 6
MonTableau(CompteurLignes, CompteurColonnes) = Cells(CompteurLignes + 5, CompteurColonnes + 1)
Next CompteurColonnes
Next CompteurLignes
Dim a As String, b As String
a = InputBox("entrez le numero de client dont vous voulez avoir les infos, " & Chr(10) & "0 : Si vous voulez avoir des infos sur la totalité des clients")
b = InputBox("tapez le numéro correspondant à l'information désirée :" & Chr(10) & " 0 : N° ou nombre de clients" & Chr(10) & " 1 : quantité" & Chr(10) & " 2 : prix HT" & Chr(10) & " 3 : Taux de TVA" & Chr(10) & " 4 : montant TVA" & Chr(10) & " 5 : Total TTC")
If a <> "" Then
If b <> "" Then
MsgBox "le résultat est : " & Round(MonTableau(a, b), 3)
End If
End If
End Sub