1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Private Sub UserForm_Activate()
Dim tab_cat(40, 2) As Variant
'Création du tableau :
'première colonne: numéro de la catégorie;
'deuxième : numéro de la colonne gauche;
'troisième : numéro de la colonne droite ;
Dim tab_ligne As Integer 'numéro de la ligne du tableau
Dim DerniereColonne As Integer 'Largeur max du tableau
DerniereColonne = ActiveSheet.UsedRange.Columns.Count
tab_ligne = -1
For i = 12 To DerniereColonne
If Cells(2, i) <> " " Then
tab_ligne = tab_ligne + 1
tab_cat(tab_ligne, 0) = Cells(2, i).Value <== C'est cette ligne qui bug :roll:
tab_cat(tab_ligne, 1) = i
tab_cat(tab_ligne, 2) = i
Else
tab_cat(tab_ligne, 3) = i
End If
Next
End Sub |
Partager