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 :

Ligne sous totaux


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Août 2008
    Messages
    112
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2008
    Messages : 112
    Par défaut Ligne sous totaux
    Les AMIS du Forums Bonjour

    je deviens du + en + embetant !!!!!

    J'ai dans un fichier avec plusieurs colonnes dont une colonne articles dont la quantite de chaque article evolue tous les jours et je dont je fais systematiquement un SOUS total.
    Le post que m'a envoyé il y a qq jours Mercatoq resoud une partie de mon pb . Mais je cherche toujours a savoir le n° de ligne sur lequel a été généré ce fameux sous total .... EX :
    code qte
    L1 1001 100
    L2 1001 300
    Total 1001 400
    Sur quel N° de ligne est généré ce sous total (400) comment le savoir
    ou
    L1 8000 150
    L2 8000 50
    L3 8000 300
    Total 8000 500
    Jj Idem Sur quel N° de ligne est généré ce sous total (500) comment le savoir

    Merci une nelle fois de votre aide . Cordialement GDS35

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Bonjour

    1. Quel est le but de trouver les lignes du sous total?
    Peut être si tu explique pourquoi tu cherches ces lignes, on te proposera quelque chose de direct.

    2. Ci-joint code (récuperer dans un tableau Tb les n° de lignes des sous totaux)
    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
    Sub Test()
    Dim c As Range
    Dim PremAdr As String
    Dim Tb() As Long
    Dim i As Integer
     
    With Sheets("Feuil3").Range("A:A") 'A adapter
        Set c = .Find("Total*", lookat:=xlWhole)
        If Not c Is Nothing Then
            PremAdr = c.Address
            Do
                i = i + 1
                ReDim Preserve Tb(1 To i)
                Tb(i) = c.Row
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> PremAdr
        End If
    End With
     
    'tableau d sortie comportant les lignes
    If i > 0 Then
        For i = 1 To UBound(Tb)
            MsgBox Tb(i)
        Next i
    End If
    End Sub

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Août 2008
    Messages
    112
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2008
    Messages : 112
    Par défaut LIGNES SOUS TOTAUX
    REbjr Mercatoq ,

    Le but etait de recuper dans une textbox d'un USF le montant du cumul des details des lignes. Grace a ton code et apres avoir fait un petit essai j'ai résolu mon pb et tout est ok maintenant. Mais il n'empeche que le code que tu viens de m'envoyer me servira un jour....... Il n'empeche que j'aimerais savoir sur quelle ligne se trouve les sous totaux correspondant a des criteres precis

    Encore Mille Merci de t'avoir investi sur mon pb.

    Bonne fin de journée. Cordialement GDS35

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

Discussions similaires

  1. Sous totaux à lignes variables
    Par anastasia_b dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 11/04/2011, 14h55
  2. [XL-2003] Sous-totaux et insertion de ligne
    Par Invité dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 15/03/2011, 19h11
  3. Réponses: 1
    Dernier message: 15/09/2008, 10h43
  4. [EXCEL 2003] Coloriser des lignes de sous-totaux
    Par FINGIB dans le forum Excel
    Réponses: 4
    Dernier message: 09/11/2007, 09h05
  5. [TCD] : pas afficher les lignes des sous totaux
    Par hagen_71 dans le forum Excel
    Réponses: 1
    Dernier message: 09/10/2007, 14h03

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