Bonjour à tous,
Je débute en VBA et j'ai commencé à coder une fonction qui crée un tableau à 2 dimensions dans lesquel est inscrit des lettres aléatoires de A à Z. Je souhaite encadrer les cellules de mon tableau par des bordures hors je rencontre un problème(Excel plante) je pense de mémoire car mon tableau sera dynamique par la suite et je souhaite tester la feuille en entier pour savoir quelle cellule j'aurai à encadrer suivant la taille de mon tableau.(Une cellule pleine egale une case de mon tableau)
Voici mon code si quelqu'un à une explication à se plantage et si meilleur idée pour encadrer mon tableau avec des bordures:
Merci d'avance de me lire et de me répondre!
Option Explicit
Sub encadrer_tableau()
Dim i As Integer
Dim j As Integer
Dim cellule As Range
Dim VarTab(1 To 3, 1 To 6) As String
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 i
Next j
For Each cellule In Range("A1", Range("A1").End(xlToRight).End(xlDown))
If cellule.Value <> "" Then cellule.Borders.Weight = xlThin
Next
End Sub
Je débute en VBA et j'ai commencé à coder une fonction qui crée un tableau à 2 dimensions dans lesquel est inscrit des lettres aléatoires de A à Z. Je souhaite encadrer les cellules de mon tableau par des bordures hors je rencontre un problème(Excel plante) je pense de mémoire car mon tableau sera dynamique par la suite et je souhaite tester la feuille en entier pour savoir quelle cellule j'aurai à encadrer suivant la taille de mon tableau.(Une cellule pleine egale une case de mon tableau)
Voici mon code si quelqu'un à une explication à se plantage et si meilleur idée pour encadrer mon tableau avec des bordures:
Merci d'avance de me lire et de me répondre!
Option Explicit
Sub encadrer_tableau()
Dim i As Integer
Dim j As Integer
Dim cellule As Range
Dim VarTab(1 To 3, 1 To 6) As String
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 i
Next j
For Each cellule In Range("A1", Range("A1").End(xlToRight).End(xlDown))
If cellule.Value <> "" Then cellule.Borders.Weight = xlThin
Next
End Sub