Concaténation et suppression données

Pierrot93

XLDnaute Barbatruc

• 28 Mars 2013

• #2

Re : Concaténation et suppression données

Bonjour,

pas tout compris moi... difficile comme ça avec juste un bout de code sorti de son contexte et jeté sur un post....

bonne journée
@+

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 28 Mars 2013

• #3

Re : Concaténation et suppression données

Oups! toutes mes excuses mais ce n'est pas le bon bout de code.
Voici le code complet:

Code:

Sub Observation()
Dim bd As Object, dico As Object
Dim dl As Integer, i As Integer, x As Integer, lg As Integer, drlig As Integer
Dim pl As Range, cel As Range
Dim temp As Variant
Dim enObs As String

Application.ScreenUpdating = False
Set bd = Sheets("BD")
dl = bd.Cells(Application.Rows.Count, 1).End(xlUp).Row
Set pl = bd.Range("B2:B" & dl)
Set dico = CreateObject("Scripting.Dictionary")
For Each cel In pl.Offset(0, 2)
    dico(cel.Value) = ""
Next cel
temp = dico.keys

For i = 0 To UBound(temp)

    bd.Range("A1").AutoFilter
    bd.Range("A1").AutoFilter Field:=4, Criteria1:=temp(i)

        If bd.Range("B:B").SpecialCells(xlCellTypeVisible).Areas(1).Count > 1 Then
              lg = 2
            Else
              lg = bd.Range("B:B").SpecialCells(xlCellTypeVisible).Areas(2).Item(1).Row
        End If
            x = Application.Subtotal(3, [pl])
               
        drlig = Sheets("BD").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
         
         'concatener
        If x > 1 Then
        
            enObs = Cells(lg, 13) & Chr(10) & Cells(drlig, 13)
            enObs = Replace(enObs, Chr(10), Chr(10))
            Cells(lg, 13).Value = enObs
            Application.DisplayAlerts = False
            Cells(drlig, 13).ClearContents
            Application.DisplayAlerts = True
        
        End If
   Next i
    
   bd.Range("A1").AutoFilter
   
End Sub

Désolé, pour la grosse gaffe. je vous remercie pour votre aide.

Cordialement,

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 28 Mars 2013

• #4

Re : Concaténation et suppression données

Bonjour,
j'insère une image du résultat souhaité. Je vous remercie beaucoup pour votre aide.


Cordialement,

 

Pièces jointes

• CONCATENER.JPG

  23.5 KB · Affichages: 60
• CONCATENER.JPG

  23.5 KB · Affichages: 55

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 30 Mars 2013

• #5

Re : Concaténation et suppression données

Bonjour Pierrot93,

Je m'excuse pour la gaffe, tout le monde peut se tromper. Malgré, y avoir remédier très rapidement, je n'ai reçu aucune réponse à mon post.

Bon week-end

Cordialement,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Mars 2013

• #6

Re : Concaténation et suppression données

Bonjour cathodique, salut Pierrot,

Vous connaissez pourtant la règle du jeu : avec un fichier joint vous auriez une réponse depuis longtemps.

A+

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 30 Mars 2013

• #7

Re : Concaténation et suppression données

Bonjour,

Je vous remercie, je ne manquerai de me rappeler de joindre à chaque fois un fichier.

Cordialement,

Cathodique

 

Pièces jointes

• RéductionLignes.xls

  186 KB · Affichages: 40

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 30 Mars 2013

• #8

Re : Concaténation et suppression données

Re,

Merci pour le fichier, mais je n'ai plus le temps de m'en occuper aujourd'hui.

Ni demain non plus je pense.

A+

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 30 Mars 2013

• #9

Re : Concaténation et suppression données

Re,

Aucun souci, entre temps j'essaie de mon côté de trouver une solution. Sur ce fichier, j'ai beaucoup de chose à réaliser et j'avance à petit pas. Je suis en apprentissage du VBA.

Bonne soirée!

Cordialement,

Cathodique

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mars 2013

• #10

Re : Concaténation et suppression données

Bonjour cathodique,

J'ai regardé votre fichier, les macros et vos explications, et je n'ai rien compris.

Que signifient ces 17 tableaux à droite de la feuille "résultat", comment les obtenez-vous ?

Je suppose que le résultat final ce ne sont pas ces 17 tableaux.

Alors donnez le résultat que vous voulez obtenir.

Et revoyez vos explications pour les rendre compréhensibles.

A+

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 31 Mars 2013

• #11

Re : Concaténation et suppression données

Bonjour Job75,

Vraiment désolé pour mon précédent fichier et mes explications confuses. Pour les 17 tableaux, ce ne sont que les détails de mon filtrage manuel pour arriver au résultat souhaité.

J'ai revu et simplifié mon fichier, je pense que celui-ci sera plus explicite.

En te remerciant pour ton aide.

Cordialement,

Cathodique

 

Pièces jointes

• VentilationDonnées.xls

  112 KB · Affichages: 38

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mars 2013

• #12

Re : Concaténation et suppression données

Re,

Toujours incompréhensible pour moi :

- où est la feuille que j'ai demandée avec le résultat que vous voulez obtenir ?

- il y a 3 feuilles Résultat_Beta Resultat_Delta résultatFormule, qu'est-ce que c'est, elles n'ont rien à voir avec la feuille BD

- quel est le rapport avec le post #4 et les images qui s'y trouvent ?

Si vous ne donnez pas d'explications claires je laisse tomber.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Mars 2013

• #13

Re : Concaténation et suppression données

Re,

Bon je comprends qu'à partir de la feuille BD vous voulez obtenir les feuilles Résultat_Beta et Résultat_Delta.

Votre feuille BD est mal faite pour ce genre d'opération, il faudrait la construire autrement.

Alors je laisse effectivement tomber, désolé.

A+

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 31 Mars 2013

• #14

Re : Concaténation et suppression données

Bonsoir,

Merci quand même d'avoir jeté un coup d’œil. j'ai essayé d'être clair, ce n'est pas de votre faute si vous ne m'avez pas compris.

Vous laissez tomber, aucun souci. Je vais me débrouiller autrement.

Cordialement,
Cathodique

 

Vote positif 0 Vote négatif