VsFlexarray et Feuille de Calcule

[BERRACHED said]

Salut le Forum
exsit-il un code vb qui fait apparaitre sur VsFlexarray les donnees d'une feuille de calcule c'est si possible j'aimerais avoir quelques exemples.
merci

 

[Lord Nelson]

Re : VsFlexarray et Feuille de Calcule

Salut,

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

Dim L As Long, C As Long
'Exemple 1
'Selection de la cellule B2 de la grille
vsFlexArray1.Col = 2
vsFlexArray1.Row = 2
vsFlexArray1 = "Test"

'Exemple 2
'Report des cellules A1 à C10 de la feuille vers la grille
For L = 1 To 10
  vsFlexArray1.Row = L
  For C = 1 To 3
    vsFlexArray1.Col = C
    vsFlexArray1 = Cells(L, C)
  Next C
Next L
'Exemple 3
'En tête des colonnes
vsFlexArray1.Row = 0
vsFlexArray1.Col = 1
vsFlexArray1 = "Titre A"
vsFlexArray1.Col = 2
vsFlexArray1 = "Titre B"
'En tête des colonnes
vsFlexArray1.Col = 0
For L = 1 To 10
  vsFlexArray1.Row = L
  vsFlexArray1 = "Ligne " & L
Next

Dans quel contexte as-tu besoin de cette bestiole ?

A+
Horatio

 

[BERRACHED said]

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