VsFlexarray et Feuille de Calcule

Re : VsFlexarray et Feuille de Calcule

Salut,

Sans être un spécialiste de la question, voici quelques exemples :


Dans quel contexte as-tu besoin de cette bestiole ?

A+
Horatio

Re : VsFlexarray et Feuille de Calcule

Salut lord nelson
Merci pour les exemples et aussi de ta simplicité je veut utiliser cette bestiole pour pouvoir afficher le résultat d’une recherche (voir code ci-dessus) qui s’affiche sur une feuille »sheets » nommer « Imprim »je voudrait le transférer vers vsFlexeArray pour plus d’élégance et par la même occasion masquer la feuille et donner a mon application un look de logiciel et éviter aux utilisateurs de tripoter sur la feuille.


Private Sub CommandButton1_Click()
Dim WS As Worksheet
Dim CL As Range
Dim num As Integer
num = 15
'Nettoyage de la plage où afficher les résultats (par exemple A8 à G33)
Range("A15:G39").ClearContents
'Si le TextBox est vide, il ne se passe rien
If TextBox1.Text <> "" Then
'Parcourons les différentes feuilles du classeur
For Each WS In Worksheets
If WS.Name <> "Imprim" Then
'Parcourons les cellules de la plage de recherche (par exemple de A2 à A99)
For Each CL In WS.Range("B02:B150")
'Si la valeur recherchée est trouvée, on l'affiche dans la plage résultats
'Ainsi que les cellules voisines
If InStr(Format(CL.Value), Format(TextBox1.Text)) > 0 Then
Range("A" & CStr(num)).Value = CL.Value
Range("B" & CStr(num)).Value = CL.Offset(0, 1).Value
Range("C" & CStr(num)).Value = CL.Offset(0, 2).Value
Range("D" & CStr(num)).Value = CL.Offset(0, 3).Value
Range("E" & CStr(num)).Value = CL.Offset(0, 4).Value
Range("F" & CStr(num)).Value = CL.Offset(0, 5).Value
num = num + 1
End If
Next CL
End If
Next WS
End If
Feuil5.CommandButton1.Visible = False
Feuil5.CommandButton2.Visible = True
End Sub

Si tu peut m’arranger quelque chose