Créer tableau dynamique plage non contiguës puis recherche

C

carlos

XLDnaute Impliqué

• 26 Avril 2014

• #2

Re : Créer tableau dynamique plage non contiguës puis recherche

Bonjour
J'ai avancé dans la premiere etape mais je bloque pour supprimer un enregistrement du tableau :
For k = 1 To 3
'tablo(2, k).Delete ' ne marche pas
Next k
Merci
Carlos

 

Pièces jointes

• creer tableau dynamique avec plage non contigue V2.xlsm

  22.9 KB · Affichages: 34

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 26 Avril 2014

• #3

Re : Créer tableau dynamique plage non contiguës puis recherche

Bonjour,

Si tu as une apostrophe devant tablo(2,k) : c'est normal que ça ne fait rien

a+

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 26 Avril 2014

• #4

Re : Créer tableau dynamique plage non contiguës puis recherche

Bonjour chalet53
J'ai testé sans l'apostrophe,ca ne marche pas .
a+

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 26 Avril 2014

• #5

Re : Créer tableau dynamique plage non contiguës puis recherche

For k = 1 To 3
tablo(2, k).RemoveItem ' ne marche pas
Next k
For k = 1 To 3
tablo(2, k).Remove ' ne marche pas
Next k

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 26 Avril 2014

• #6

Re : Créer tableau dynamique plage non contiguës puis recherche

bonjour,

Afin d'extraire une partie de ta base de données, tu as un outil très performant inclus nativement dans Excel, le Filtre Elaboré....

Regarde le fichier joint.

Attention, les en-têtes dans l'onglet "Rechercher" doivent être strictement identiques aux en-têtes de l'onglet "Tablo".

Bon courage

 

Pièces jointes

• creer tableau dynamique avec plage non contigue V3.xlsm

  24.8 KB · Affichages: 45
• creer tableau dynamique avec plage non contigue V3.xlsm

  24.8 KB · Affichages: 51
• creer tableau dynamique avec plage non contigue V3.xlsm

  24.8 KB · Affichages: 48

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 26 Avril 2014

• #7

Re : Créer tableau dynamique plage non contiguës puis recherche

Bonjour Le Forum, Carlos
Il faut crée un tableau voir sur la Feuille Essai

Code:

Sub Macro1()
Dim MaListe As ListObject
Dim cel As Range
Dim Réponse As String
Réponse = InputBox("Texte cherché ?", "Titre") 'La variable reçoit la valeur entrée dans l'InputBox
Set MaListe = Sheets("ESSAI").ListObjects("Tableau1")
For Each cel In MaListe.DataBodyRange.Columns(2).Cells
    'If cel.Value = "Juin" Then
    If cel.Value = Réponse Then
    cel.Rows.Delete
    End If
    'MsgBox cel.Address & " : " & CStr(cel.Value)
Next cel
End Sub

Voir sur le fichier ci-joint
Ma réponse correspond a ce que j'ai compris

 

Pièces jointes

• XLD_Plage-non-contigue.xlsm

  23.6 KB · Affichages: 30
• XLD_Plage-non-contigue.xlsm

  23.6 KB · Affichages: 36
• XLD_Plage-non-contigue.xlsm

  23.6 KB · Affichages: 33

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 26 Avril 2014

• #8

Re : Créer tableau dynamique plage non contiguës puis recherche

Bonjour Regueiro , bhbh

je pense que je me suis mal exprimé .
je cherche seulement à supprimer une ligne ( pas dans excel mais dans mon tableau ) dans mon tablo() pas dans les cellules .
For k = 1 To 3
tablo(2, k).RemoveItem ' ne marche pas
Next k

Pour resumer :
J'ai 2 plages de cellules que je veux comparer: pour cela je crée un tableau"virtuel" qui s'appelerait tablo() que je vide à chaque fois que la même valeur se trouve dans les 2 plages .
A la fin il me restera que le valeurs qui ne seraient pas en double .
J'ai juste besoin du code qui me permettrait de supprimer les doublons .
Je veux absolument passer par un tableau car j'ai des milliers de lignes .
Merci
Carlos

 

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 26 Avril 2014

• #9

Re : Créer tableau dynamique plage non contiguës puis recherche

Re
Si j'ai bien tu veux supprimer les doublons dans ta Base initiale
Ou tu veux préserver cette Base.
Tu veux comparer uniquement sur la colonne des mois ou également sur la colonne C et F
Merci de ton retour

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 26 Avril 2014

• #10

Re : Créer tableau dynamique plage non contiguës puis recherche

Bonjour à tous

Pas très clair tout ça....

Pour utiliser un tableau et supprimer les lignes qui en colonne 2 sont égales à la cellule $M$1, puis coller le résultat en feuille "Recherche":

VB:

Sub test()Dim i&, J&, K&, T As Variant, Val$
With Sheets("Tablo")
    T = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(3)(1, 6))
    Val = .Range("$M$1").Value
End With


For i = LBound(T, 1) To UBound(T, 1)
    If T(i, 2) <> Val Then
        K = K + 1
        For J = LBound(T, 2) To UBound(T, 2)
            T(K, J) = T(i, J)
        Next J
    End If
Next i
    
Sheets("Rechercher").Cells(1, 1).Resize(K, UBound(T, 2)) = T
End Sub

Cordialement

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 26 Avril 2014

• #11

Re : Créer tableau dynamique plage non contiguës puis recherche

Re
Je ne veux pas supprimer les doublons de ma base initiale mais juste les doublons ( des mois seulement) du tableau dynamique crée pour me retrouver à la fin qu'avec les éléments qui ne seront pas dans la base initiale .
Merci

 

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 26 Avril 2014

• #12

Re : Créer tableau dynamique plage non contiguës puis recherche

Re Bonjour
Alors une très courte à essayer

Code:

Sub ExtractAutreFeuille()
Set F1 = Sheets("Rechercher")
    Range("Tableau1[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
        :=F1.Range("A2:K3"), CopyToRange:=F1.Range("A7:G7"), Unique:=True
End Sub

Avec le fichier

 

Pièces jointes

• XLD_Plage-non-contigue.xlsm

  31.3 KB · Affichages: 35
• XLD_Plage-non-contigue.xlsm

  31.3 KB · Affichages: 40
• XLD_Plage-non-contigue.xlsm

  31.3 KB · Affichages: 36

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 26 Avril 2014

• #13

Re : Créer tableau dynamique plage non contiguës puis recherche

Re Efgé ;Reguerio
C'est presque cela .
Je crois que je vais repartir de zéro car je m’aperçois que je vous ai embrouillé .
J'ai 2 plages sur 2 onglets différents .
J'aimerais que sur l'onglet "Resultat" apparaisse les mois qui sont dans l'onglet "Tablo 2" mais pas dans l'onglet "Tablo 1".
Le plus important est que cela passe par un tableau comme tu as fait Efgé "mais à l'envers".
Merci

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 26 Avril 2014

• #14

Re : Créer tableau dynamique plage non contiguës puis recherche

Avec le fichier .Désolé

 

Pièces jointes

• creer tableau dynamique avec plage non contigue V3.xlsm

  26.7 KB · Affichages: 33
• creer tableau dynamique avec plage non contigue V3.xlsm

  26.7 KB · Affichages: 33
• creer tableau dynamique avec plage non contigue V3.xlsm

  26.7 KB · Affichages: 36

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 26 Avril 2014

• #15

Re : Créer tableau dynamique plage non contiguës puis recherche

Re
As-tu regarder mon post N°12

 

Vote positif 0 Vote négatif