Ajouter un ligne au MSFlexGrid1t

Signaler
Messages postés
360
Date d'inscription
dimanche 3 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2012
-
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
-
Bonjour,

Je voudrais faire en sorte qu'en cliquant sur un bouton vb6, qu'il ajoute une nouvelle ligne vierge dans mon MSFlexGrid1.

Comment faire s.v.p?

4 réponses

Messages postés
101
Date d'inscription
samedi 29 décembre 2012
Statut
Membre
Dernière intervention
25 janvier 2021

Bonjour

Comme ça

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

Cette ligne vierge s'ajoute à la fin



Gil
Messages postés
360
Date d'inscription
dimanche 3 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2012
3
Super merci.
Messages postés
360
Date d'inscription
dimanche 3 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2012
3
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="ProgId" content="Word.Document" />
<meta name="Generator" content="Microsoft Word 11" />
<meta name="Originator" content="Microsoft Word 11" />
<link rel="File-List" href="file:///C:%5CUsers%5CJEAN-M%7E1%5CAppData%5CLocal%5CTemp%5Cmsohtml1%5C01%5Cclip_filelist.xml" />
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:HyphenationZone>21</w:HyphenationZone>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:UseFELayout/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]-->
<!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" LatentStyleCount="156">
</w:LatentStyles>
</xml><![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:"MS Mincho";
panose-1:2 2 6 9 4 2 5 8 3 4;
mso-font-alt:"MS 明朝";
mso-font-charset:128;
mso-generic-font-family:modern;
mso-font-pitch:fixed;
mso-font-signature:-536870145 1791491579 18 0 131231 0;}
@font-face
{font-family:"\@MS Mincho";
panose-1:2 2 6 9 4 2 5 8 3 4;
mso-font-charset:128;
mso-generic-font-family:modern;
mso-font-pitch:fixed;
mso-font-signature:-536870145 1791491579 18 0 131231 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"MS Mincho";}
p.MsoHeader, li.MsoHeader, div.MsoHeader
{margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
tab-stops:center 216.0pt right 432.0pt;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"MS Mincho";}
p.MsoFooter, li.MsoFooter, div.MsoFooter
{margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
tab-stops:center 216.0pt right 432.0pt;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"MS Mincho";}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Tableau Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
</style>
<![endif]-->
Autre question,


Je regardé sur le forum pour ce qui est d'exporter les données du msflexgrid
dans Excel, mais je n'ai pas trouvé comment exporter les données du msflexgrid
dans une nouvelle feuille Excel.


Donc il ouvre un fichier Excel vierge et ensuite, il exporte les données du
msflexgrid.


Comment faire s.v.p?


Merci
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
6
Salut Avyrex1926

Essaie avec cette exemple ci
Le fichier.xls doit exister avant l'appel de cette fonction et toutes les cellules sont vides au départ
Si il n'y a qu'une seule feuille Excel utilisée tu peux supprimer la création des feuilles supplémentaires
Attention toutes les feuilles sont identiques au départ si il y a plusieurs feuilles 

  Dim nbsheet As Long, nbfeuille as Long
    Dim appExcel As Object
    Dim wbExcel As Object
    Dim wsExcel As Object

    On Error GoTo Erreurfich

    fichname$ = "fichier.xls"  ' ce fichier est vide de toute donnée : seules les formats, couleurs et propriétés des cellules sont déjà définies
    Close    ' ferme tous les fichiers ouverts
  
    'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")

    'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open(fichname$)
    If wbExcel.ReadOnly Then
        MsgBox "Ce fichier Excel est déjà ouvert dans une autre application : exportation annulée"
        Set appExcel = Nothing
        Set wbExcel = Nothing
        Exit Sub
    End If

    ' On ne laisse que la première feuille du classeur
    With wbExcel
        nbsheet& = .Sheets.Count    ' nombre de feuilles de ce classeur
        If nbsheet& > 1 Then
            For i& = .Sheets.Count To 2 Step -1    ' on supprime les feuilles en partant de la dernière
                nomfeuille$ = .Sheets(i&).Name
                appExcel.DisplayAlerts = False    ' pas de boite d'alerte
                appExcel.Worksheets(nomfeuille$).Delete    ' suppression de la feuille
                appExcel.DisplayAlerts = True
            Next i&
        End If
        .Sheets(1).Name = "Feuil1"    ' on renomme la première feuille : l'utilisateur peut avoir changé ce nom sous Excel
    End With

    ' Calcul et création du nombre de feuilles nécessaires ( si plusieurs feuilles identiques)
    nbfeuille& = 5  ' ici en exemple : 5 feuilles
    ' On crée les feuilles supplémentaires
    If nbfeuille& > 1 Then
        With wbExcel
            For i& = 2 To nbfeuille&
                nomfeuille$ = "Feuil" & .Sheets.Count    ' nom de la feuille à copier
                .Sheets(nomfeuille$).Copy After:=.Sheets(.Sheets.Count)    ' copie de la feuille après
                nomfeuille$ = "Feuil" & .Sheets.Count    ' nom de la feuille copiée
                .Sheets(i&).Name = nomfeuille$    ' on la renomme
                .Sheets(nomfeuille$).Select
            Next i&
        End With
    End If

    For j& = 1 To nbfeuille&
        Set wsExcel = wbExcel.Worksheets(j&)    ' Feuille courante
        appExcel.Visible = True    ' Rend l'application Excel visible
        With wsExcel
           .Cells(1,5) = "Texte à insérer dans la cellule définie par les valeurs ligne et colonne sur le feuille courante)  ' LA LIGNE LA PLUS IMPORTANTE
           .Cells(6,8) = "Texte à insérer dans la cellule définie par les valeurs ligne et colonne sur le feuille courante : ligne et colonne peuvent être des variables) 
        End With
    Next j&
    wbExcel.save ' sauvegarde le fichier Execl
    appExcel.Quit ' on ferme Excel
    Set appExcel = Nothing
    Set wbExcel = Nothing
    Set wsExcel = Nothing
    Exit Sub

Erreurfich:
    MsgBox "Erreur dans l'exportation", vbCritical
    appExcel.Quit
    Set appExcel = Nothing
    Set wbExcel = Nothing
    Set wsExcel = Nothing

End Sub

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain