IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

VBA ViewList compilation [XL-2007]


Sujet :

Macros et VBA Excel

  1. #21
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Le code du bouton "OK" est finalement :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    Private Sub CommandButtonok2_Click() 'affiche les valeurs dans excel
    Dim Ligne As Long, C As Range, ResLigne As Long
    With Sheets("Feuil2")
        Set C = .[A:I].Find("*", , , , xlByRows, xlPrevious)
        If C Is Nothing Then
            Ligne = 5
        Else
            Ligne = C.Row + 3
        End If
        With .Cells(Ligne, 1).Resize(, 9).Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            ResLigne = Ligne
        End With
        .Cells(Ligne, 1) = "Destination"
        .Cells(Ligne, 2) = TextBoxDestination.Value
        Ligne = Ligne + 1
        .Cells(Ligne, 1) = "Business purpose"
        .Cells(Ligne, 2) = TextBoxBusinessporpose.Value
        Ligne = Ligne + 2
        .Cells(Ligne, 1) = "Receipt Date"
        .Cells(Ligne, 2) = "General Ledger Code"
        .Cells(Ligne, 3) = "General Ledger Description"
        .Cells(Ligne, 4) = "Project Code"
        .Cells(Ligne, 5) = "Budget Line"
        .Cells(Ligne, 6) = "Local Currency Amount"
        .Cells(Ligne, 7) = "Exchange Rate"
        .Cells(Ligne, 8) = "Amount"
        .Cells(Ligne, 9) = "Comments"
        Dim i As Integer, j As Integer
        'Boucle sur toutes les lignes
        For i = 1 To ListViewExpense.ListItems.Count
            Ligne = Ligne + 1
            .Cells(Ligne, 1) = ListViewExpense.ListItems(i).Text
            'Boucle sur les colonnes
            For j = 1 To ListViewExpense.ColumnHeaders.Count - 1
                .Cells(Ligne, j + 1) = ListViewExpense.ListItems(i).ListSubItems(j).Text
            Next j
        Next i
        Ligne = Ligne + 1
        .Cells(Ligne, 7) = "TOTAL"
        .Cells(Ligne, 8) = Tot
        If Me.TextBoxcashamount.Text <> "" And IsNumeric(Me.TextBoxcashamount.Text) Then
            If CDbl(Me.TextBoxcashamount.Text) <> Tot Then
                Ligne = Ligne + 1
                .Cells(Ligne, 7) = "CASH ADVANCE"
                .Cells(Ligne, 8) = CDbl(Me.TextBoxcashamount.Text)
                Ligne = Ligne + 1
                .Cells(Ligne, 7) = "REMAINING"
                .Cells(Ligne, 8) = Tot - CDbl(Me.TextBoxcashamount.Text)
            End If
        End If
        With .Cells(Ligne, 1).Resize(, 9).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlMedium
        End With
        With .Range(.Cells(ResLigne, 9), .Cells(Ligne, 9)).Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlMedium
        End With
        UserFormBusinesstrip.Hide
        Unload UserFormBusinesstrip
    End With
    End Sub

  2. #22
    Membre averti
    Homme Profil pro
    Inscrit en
    Mars 2013
    Messages
    14
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2013
    Messages : 14
    Par défaut
    Impec j'ai essayé tous fonctionne.

    Encore un grand merci pour ton aide. Je crois que j'ai épuisé mon quotas de question !!!

+ Répondre à la discussion
Cette discussion est résolue.
Page 2 sur 2 PremièrePremière 12

Discussions similaires

  1. [VBA-E] erreur de compilation
    Par patbou dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 04/04/2007, 19h44
  2. [VBA] erreur compil si pas Outlook
    Par cbleas dans le forum Access
    Réponses: 2
    Dernier message: 25/08/2006, 15h34
  3. [VBA-A] erreur de compilation excel->access
    Par ashen dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 23/05/2006, 22h49
  4. [vba][Array]pb compile error
    Par megapacman dans le forum Access
    Réponses: 2
    Dernier message: 18/03/2006, 09h24
  5. [VBA-E] compilation VBE
    Par francois1955 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 13/08/2005, 17h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo