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 :

Aide à completer deux détails dans ma macro [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Avril 2015
    Messages
    86
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : Algérie

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Avril 2015
    Messages : 86
    Par défaut Aide à completer deux détails dans ma macro
    Bonsoir à tous

    Voila j'ai une macro qui fonctionne très bien et comme voulu sauf à deux détails dont je trouve un problème à résoudre cela

    et pour être plus claire je joins le fichier dedans mon problème en détail

    Merci à vous tous

    Cordialement
    Fichiers attachés Fichiers attachés

  2. #2
    Membre émérite
    Homme Profil pro
    Programmeur analyste
    Inscrit en
    Février 2009
    Messages
    546
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Canada

    Informations professionnelles :
    Activité : Programmeur analyste
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2009
    Messages : 546
    Par défaut
    Bonjour,
    voici votre code modifier
    en rouge sont les changement

    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
    Private Sub CommandButton1_Click()
      Dim Ctrl As Control
      Dim r As Integer
      Dim Derligne As Integer
      Dim LigneDebut As Long
      Dim x As Integer, L As Integer, nombre_de_colonne As Integer
      Dim Ligne As Long, Celluledebut As Integer, Cellulefin As Integer
      Dim Celluledebut2 As Integer, Cellulefin2 As Integer
      Dim Ind As Integer, sTabF() As String
    
    
      ' Définir le tableau des feuilles à modifier
      sTabF = Split("Feuil1,Feuil2", ",")
      ' Pour chaque feuille
      For Ind = 0 To UBound(sTabF)
        ' Avec la feuille "Ind"
        With Worksheets(sTabF(Ind))
          LigneDebut = 12
          Derligne = .Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
          If .Cells(Derligne - 1, 1).Value = "Total général" Then Derligne = Derligne - 1
          Ligne = Derligne
          Celluledebut = 3: Cellulefin = 5
                .Range(.Cells(Ligne, Celluledebut), .Cells(Ligne, Cellulefin)).Merge
                Celluledebut2 = 7: Cellulefin2 = 9
          .Range(.Cells(Ligne, Celluledebut2), .Cells(Ligne, Cellulefin2)).Merge
          For Each Ctrl In UserForm1.Controls
            r = Val(Ctrl.Tag)
            If r > 0 Then
                If Ctrl.Name = "TextBox2" Then
                    .Cells(Derligne, r) = Val(Ctrl)
                    .Cells(Derligne, r).NumberFormat = "#,##0.00 $"
                Else
                    .Cells(Derligne, r) = Ctrl
                End If
                
            End If
          Next
          ' Mettre le total du tableau
          nombre_de_colonne = 2
          L = .Cells(Rows.Count, 1).End(xlUp).Row
          For x = 2 To nombre_de_colonne
            .Cells(L + 1, x).Formula = "=SUM(" & .Cells(12, x).Address & ":" & .Cells(L, x).Address & ")"
            .Cells(L + 1, x).NumberFormat = "#,##0.00 $"
            .Cells(L + 1, x - 1).Value = "Total général"
          Next
        End With
      Next Ind
      TextBox1 = ""
      Unload Me
    End Sub

  3. #3
    Membre confirmé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Avril 2015
    Messages
    86
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : Algérie

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : Avril 2015
    Messages : 86
    Par défaut
    Merci infiniment gnain

    tu me sauve la vie

    1000 merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Aide pour un bug dans une macro
    Par NEC14 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 21/11/2014, 10h39
  2. [XL-2010] Erreur incompréhensible dans ma Macro (VBA) à l'aide!
    Par Wendy_26 dans le forum Macros et VBA Excel
    Réponses: 16
    Dernier message: 04/09/2014, 11h40
  3. Repérer une erreur dans une MACRO à l'aide de sa position
    Par JeromeMATHIAS dans le forum Macro
    Réponses: 1
    Dernier message: 15/05/2014, 10h15
  4. Aide pour disséquer deux fonctions dans mon code
    Par joomoo79 dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 05/11/2008, 16h53
  5. Réponses: 7
    Dernier message: 26/06/2003, 09h11

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