Bonjour à tous,
je souhaite récupérer les valeur de deux cellules d'une feuille différente pour dimensionner mon tableau hors avec mon code Visual Basic me renvoi une erreur l'indice n'appartient pas à la sélection ou alors quand je le déclare le tableau avec les valeurs de ces cellules directement l'erreur est 'constante requise' dans la déclaration du tableau je ne comprend pas pourquoi??
Merci d'avance de me lire et me répondre!!
Sub encadrer_tableau()
Dim i As Integer
Dim j As Integer
Dim cellule As Range
Dim VarTabLigne As Integer
Dim VarTabColonne As Integer
Dim VarTab() As String
VarTabLigne = Worksheets("Feuill2").Range("H6").Value
VarTabColonne = Worksheets("Feuill2").Range("H7").Value
ReDim VarTab(1 To VarTabLigne, 1 To VarTabColonne)
For i = 1 To UBound(VarTab, 1)
For j = 1 To UBound(VarTab, 2)
VarTab(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
Debug.Print VarTab(i, j)
Next j
Next i
Range("B3").Resize(UBound(VarTab, 1), UBound(VarTab, 2)).Value = VarTab
For Each cellule In Range("B3", Range("B3").End(xlToRight).End(xlDown))
If cellule.Value <> "" Then cellule.Borders.Weight = xlThin
Next
End Sub
je souhaite récupérer les valeur de deux cellules d'une feuille différente pour dimensionner mon tableau hors avec mon code Visual Basic me renvoi une erreur l'indice n'appartient pas à la sélection ou alors quand je le déclare le tableau avec les valeurs de ces cellules directement l'erreur est 'constante requise' dans la déclaration du tableau je ne comprend pas pourquoi??
Merci d'avance de me lire et me répondre!!
Sub encadrer_tableau()
Dim i As Integer
Dim j As Integer
Dim cellule As Range
Dim VarTabLigne As Integer
Dim VarTabColonne As Integer
Dim VarTab() As String
VarTabLigne = Worksheets("Feuill2").Range("H6").Value
VarTabColonne = Worksheets("Feuill2").Range("H7").Value
ReDim VarTab(1 To VarTabLigne, 1 To VarTabColonne)
For i = 1 To UBound(VarTab, 1)
For j = 1 To UBound(VarTab, 2)
VarTab(i, j) = Chr(Int((26 * Rnd) + 1) + 64)
Debug.Print VarTab(i, j)
Next j
Next i
Range("B3").Resize(UBound(VarTab, 1), UBound(VarTab, 2)).Value = VarTab
For Each cellule In Range("B3", Range("B3").End(xlToRight).End(xlDown))
If cellule.Value <> "" Then cellule.Borders.Weight = xlThin
Next
End Sub