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

[carlos]

Bonjour,
Il y a beaucoup de sujet sur ce thème mais je n'arrive pas à construire l'ensemble .

1 - Je souhaite créer un tableau dynamique des colonnes de A à F et M ( Lignes variables mais pas les colonnes)
2- Rechercher l'endroit ou se trouve le mois de juin dans mon tableau par exemple
3- Supprimer la ligne"Juin" du tableau

cordialement
carlos

 

[carlos]

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

 

[CHALET53]

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+

 

[carlos]

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

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

 

[carlos]

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

 

[Cousinhub]

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

 

[Regueiro]

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

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

 

[carlos]

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

 

[Regueiro]

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

 

[Efgé]

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":

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

 

[carlos]

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

 

[Regueiro]

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

Re Bonjour
Alors une très courte à essayer

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

 

[carlos]

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

 

[carlos]

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

Avec le fichier .Désolé

 

[Regueiro]

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

Re
As-tu regarder mon post N°12