XL 2016 Copier des lignes si validées dans une nouvelle feuille

F

FREDNORDISTE

XLDnaute Nouveau
Bonjour
j'ai une feuille contenant toutes les contacts de l'entreprise.
Je souhaite opérer à des filtres selon leurs qualification et ensuite effectuer une selection de celle qui m'interesse en vue de lancer des invitations.
Je souhaite donc resortir un tableau ne contenant que les entreprises ayant été validées.
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Hasco

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Dans le fichier joint sur 'Feuil1' un tableau filtré sur 'Selection = o' et produit par une requête Power Query (inclus dans votre version excel dans l'onglet 'Données/A partir d'un tableau ou d'une plage').

Lorsque votre sélection change, sélectionnez une cellule du tableau puis cliquez sur 'Données/Actualiser tout' ou faîtes un click-droit puis -> actualiser.

Cordialement
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Bernard_XLD

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Bonjour le fil, le forum

@FREDNORDISTE , désolé de vous souhaiter la bienvenue sur Xld comme cela mais votre fichier contient énormément de données sensibles sur des personnes physiques et morales, ce qui contrevient au RGPD, voir article 1.1 de la charte Xld.
En conséquence, je l'ai supprimé ainsi que celui de la réponse de @Roblochon (désolé).
Merci de modifier votre fichier exemple pour en éliminer ces données et de consulter auparavant la charte Xld .

Bien cordialement, @+
 
Vote positif 0 Vote négatif
F

FREDNORDISTE

XLDnaute Nouveau
Yeahou à dit:
Bonjour le fil, le forum

@FREDNORDISTE , désolé de vous souhaiter la bienvenue sur Xld comme cela mais votre fichier contient énormément de données sensibles sur des personnes physiques et morales, ce qui contrevient au RGPD, voir article 1.1 de la charte Xld.
En conséquence, je l'ai supprimé ainsi que celui de la réponse de @Roblochon (désolé).
Merci de modifier votre fichier exemple pour en éliminer ces données et de consulter auparavant la charte Xld .

Bien cordialement, @+
Cliquez pour agrandir...
bonjour et merci pour votre alerte en effet, je n'ai pas mesuré le risque. je refais un post avec un fichier expurgé de toute info sensible
bien cdt
 
Vote positif 0 Vote négatif
F

FREDNORDISTE

XLDnaute Nouveau
donc après avoir nettoyé mon fichier précédent je joins un fichier TEST expurgé de toute info sensible et je réitère ma question ;

  1. Dans la feuille liste EDP!, j'ai un listing de plus de 1000 entrées de contacts
  2. J'ai besoin de sélectionner ponctuellement des entreprises via des filtres (Qualification, Code postal, ville etc...),
    Puis je recopie le contenu de toute la ligne dans une feuille Ent. Sel.! (= entreprises sélectionnées).
    Pour cela j'ai créé dans ma feuille Liste EDP une colonne Sélection avec une liste de choix O / N
    Je souhaite recopier l'intégralité des lignes comportant la valeur O de cette colonne dans la feuille Ent. Sel.!
    L'idée c'est que les lignes s'ajoutent sous celles déjà existantes notamment si j'effectue ma sélection en plusieurs fois.
  3. L'objectif étant d'avoir une liste restreinte de 60 / 90 entreprises maxi, dans ma feuille Ent. Sel.!.
    Je souhaite ajouter 2 colonnes : Contacté (avec un choix de réponse O/N) et Souhaite Répondre (avec un choix O/N)
  4. Je pensais donc faire 2 boutons :
    - le premier pour transférer toutes les lignes ayant la valeur O dans la colonne Sélection.
    - le second pour Dupliquer la feuille Ent. Sel.! en lui donnant un nouveau nom (par exemple celui de l'opération en cours). et en effaçant le contenu de Ent. Sel.! pour l'utiliser pour une nouvelle opération.
Evidemment je suis une bille en VBA, (je bosse avec VBA pour les nuls, mais je balbutie)
J'espère que vous saurez m'aider et m'accompagner dans ce projet.
Bien à vous tous.
 

Pièces jointes

  • Listing Test.xlsx
    354.9 KB · Affichages: 11
Vote positif 0 Vote négatif
Hasco

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Avant de commencer : ce qui alourdi inutilement un fichier et le fait atteindre la limite des formats possibles : mettre un fond sur toutes les cellules d'une feuille

Si vous ne voulez par voir le quadrillage d'excel, onglet Affichage -> décocher la case 'Cadrillage' tout simplement.
Ne mettez pas de fond coloré non plus sur toute une ligne (entête) si vous n'en avez pas besoin.

Dans le tableau joint je vous propose une solution simple par Power Query (Onglet/Données/A partir d'un tableau ou d'une plage).

pour cela votre tableau source des données a été transformé en tableau structuré. Tuto sur les tableaux structurés

La requête filtre les lignes 'O' de la colonne Sélection. Attention pour PQ 'O' n'est pas 'o'(sensible à la casse mais on pourra éventuellement y remédier s'il y a risque de mauvaise saisie.)

Lorsque vous changez la sélection, faites, sur une cellule du tableau résultat,, un click-droit puis 'Actualiser'.

Par contre dans le tableau de résultats si vous vous voulez conserver les informations des deux colonnes rajoutées (Contactée et Souhaite Répondre) il faut un identifiant unique de ligne sur lequel on pourrait faire un tri (ascendant ou descendant).
Dans le fichier joint j'ai choisit le nom de l'entreprise comme identifiant constant et unique de ligne.


Cordialement
 

Pièces jointes

  • Listing Test.xlsx
    230.3 KB · Affichages: 6
Vote positif 0 Vote négatif
F

FREDNORDISTE

XLDnaute Nouveau
merci bcp , je ne connais pas du tout l'utilisation de PowerQuery, du coup, j'ignore comment mettre à jour la feuille SEL. ENT. lorsque je valide d'autre entreprise dans la premiere feuille
en outre, je comprends la nécessité d'un identifiant unique par entreprise et du coup je pense qu'il faut inserer une colonne ID avec une numérotation incrémentielle car j'ai des homonymes dans mon listing (nom d'entreprises parfois, nom de contact souvent)
pouvez vous m'expliquer l'usage de P./Q , en attendant je lis votre tuto sur le tableau structuré.
cdt
 
Vote positif 0 Vote négatif
Hasco

Hasco

XLDnaute Barbatruc
Repose en paix
FREDNORDISTE à dit:
pouvez vous m'expliquer l'usage de P./Q
Cliquez pour agrandir...
Re,

Pour votre requête PQ et comme je le disais précédement :
Lorsque vous changez la sélection, faites, sur une cellule du tableau résultat,, un click-droit puis 'Actualiser
Cliquez pour agrandir...
Ou 'Données /Actualiser tout'

Quant à l'usage même de PQ, c'est un vaste domaine. Mais son idée générale est l'importation/Transformation/Exploitation des donnée. Données qui peuvent provenir de nombreuses sources, locales ou web ; intra/extra net, produites dans de nombreux format.

Eventuellement commence par là :

À propos de Power Query dans Excel - Support Microsoft

Avec Power Query, vous pouvez rechercher des sources de données, établir des connexions, puis mettre en forme ces données (par exemple, supprimer une colonne, modifier un type de données ou fusionner des tables) d’une manière qui répond à vos besoins. Lorsque vous aurez mis en forme vos données...
support.microsoft.com support.microsoft.com
Cliquez pour agrandir...

Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonsoir FREDNORDISTE, les amis,

Voyez le fichier joint et la macro affectée au bouton :
VB: 
Sub Copier()
Dim d As Object, F As Worksheet, F1 As Worksheet, tablo, ncol%, i&, x$, tablo1, ajout(), n&, j%, nn&
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
Set F = Sheets("Ent. Sel.")
Set F1 = Sheets("Liste EDP")
If F.FilterMode Then F.ShowAllData 'si la feuille est masquée
If F1.FilterMode Then F1.ShowAllData 'si la feuille est masquée
tablo = F.Range("C3:X" & F.Range("D" & F.Rows.Count).End(xlUp).Row)
ncol = UBound(tablo, 2)
For i = 2 To UBound(tablo)
    x = Trim(tablo(i, 2))
    If x <> "" Then d(x) = i 'la ligne est mémorisée
Next i
tablo1 = F1.Range("G3:AC" & F1.Range("I" & F1.Rows.Count).End(xlUp).Row)
ReDim ajout(1 To F.Rows.Count, 1 To ncol)
For i = 2 To UBound(tablo1)
    If UCase(tablo1(i, 1)) = "O" Then
        x = Trim(tablo1(i, 3))
        If d.exists(x) Then
            n = d(x)
            For j = 1 To ncol
                tablo(n, j) = tablo1(i, j + 1)
            Next j
        Else
            nn = nn + 1
            For j = 1 To ncol
                ajout(nn, j) = tablo1(i, j + 1)
            Next j
        End If
    End If
Next i
'---restitution---
n = UBound(tablo)
Application.ScreenUpdating = False
F.[C3].Resize(n, ncol) = tablo
If nn Then
    F.[C3].Offset(n).Resize(nn, ncol) = ajout
    With F.[A3].Offset(n).Resize(nn, 2)
        .Interior.ColorIndex = 6 'jaune
        .Borders.Weight = xlHairline 'bordures
        .Validation.Delete
        .Validation.Add xlValidateList, Formula1:="O,N"
    End With
End If
F.Columns.AutoFit 'ajuste les largeurs
F.Activate
End Sub
La macro est très rapide car elle utilise des tableaux VBA et le Dictionary.

A+
 

Pièces jointes

  • Listing Test(1).xlsm
    239.1 KB · Affichages: 10
Dernière édition:
Vote positif 0 Vote négatif
cathodique

cathodique

XLDnaute Barbatruc
job75 à dit:
Bonsoir FREDNORDISTE, les amis,

Voyez le fichier joint et la macro affectée au bouton :
VB: 
Sub Copier()
Dim d As Object, F As Worksheet, F1 As Worksheet, tablo, ncol%, i&, x$, tablo1, ajout(), n&, j%, nn&
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
Set F = Sheets("Ent. Sel.")
Set F1 = Sheets("Liste EDP")
If F.FilterMode Then F.ShowAllData 'si la feuille est masquée
If F1.FilterMode Then F1.ShowAllData 'si la feuille est masquée
tablo = F.Range("C3:X" & F.Range("D" & F.Rows.Count).End(xlUp).Row)
ncol = UBound(tablo, 2)
For i = 2 To UBound(tablo)
    x = Trim(tablo(i, 2))
    If x <> "" Then d(x) = i 'la ligne est mémorisée
Next i
tablo1 = F1.Range("G3:AC" & F1.Range("I" & F1.Rows.Count).End(xlUp).Row)
ReDim ajout(1 To F.Rows.Count, 1 To ncol)
For i = 2 To UBound(tablo1)
    If UCase(tablo1(i, 1)) = "O" Then
        x = Trim(tablo1(i, 3))
        If d.exists(x) Then
            n = d(x)
            For j = 1 To ncol
                tablo(n, j) = tablo1(i, j + 1)
            Next j
        Else
            nn = nn + 1
            For j = 1 To ncol
                ajout(nn, j) = tablo1(i, j + 1)
            Next j
        End If
    End If
Next i
'---restitution---
n = UBound(tablo)
Application.ScreenUpdating = False
F.[C3].Resize(n, ncol) = tablo
If nn Then
    F.[C3].Offset(n).Resize(nn, ncol) = ajout
    With F.[A3].Offset(n).Resize(nn, 2)
        .Interior.ColorIndex = 6 'jaune
        .Borders.Weight = xlHairline 'bordures
        .Validation.Delete
        .Validation.Add xlValidateList, Formula1:="O,N"
    End With
End If
F.Columns.AutoFit 'ajuste les largeurs
F.Activate
End Sub
La macro est très rapide car elle utilise des tableaux VBA et le Dictionary.

A+
Cliquez pour agrandir...
Bonjour @FREDNORDISTE ,@soan ,@Roblochon ,@Yeahou , @job75 ;)

@FREDNORDISTE : excuse mon intrusion

@job75: Ayant 6Go de ram, je n'ai pas compris pourquoi j'ai eu ce message
1625284048894.png

sur la ligne suivante
1625284113210.png


Merci pour tes explications. Pour info, je suis sous windows7 64bits, excel2010 32bits avec 6Go de ram.

Bon week-end.
 
Vote positif 0 Vote négatif

Discussions similaires

_l_ours
  • Résolu(e)
XL 2016 Créer une feuille si elle n'existe pas + Copier une plage de cellule d'une feuille à l'autre
Réponses
9
Affichages
223
_l_ours
_l_ours
J
  • Question
Microsoft 365 Création Macro pour copier/coller en valeur dans une autre feuille.
Réponses
1
Affichages
601
Lolote83
L
B
  • Question
XL 2016 a partir d'une feuille sélectionner des lignes et copier dans une autre feuille
Réponses
1
Affichages
467
sylvanu
sylvanu
S
  • Résolu(e)
XL 2016 Comment classer des résultats avec attributs et couleurs et avoir la somme des classes sur une feuille Excel?
Réponses
6
Affichages
387
stuka
S
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
1 K
meyscal
M
I
  • Question
XL 2013 Copier des colonnes d'un tableau sur une autre feuille
Réponses
7
Affichages
882
desquiens.gabriel@hotmail
D
L
  • Question
Microsoft 365 Copier les mêmes lignes venant de différentes feuilles dans une feuille "Summary"
Réponses
3
Affichages
484
liod21
L
My<3
  • Résolu(e)
XL 2016 VBA créer une nouvelle feuille, la renommer et boite de dialogue pour compléter la feuille
Réponses
4
Affichages
833
My<3
My<3
oguruma
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
273
oguruma
oguruma
A
  • Résolu(e)
Microsoft 365 faire une boucle auto pour supprimer les lignes contenant un "I" ou un "D" et copier les lignes qui contiennent un "A" dans une autre feuille excel
2
Réponses
19
Affichages
1 K
Alex55
A

Membres actuellement en ligne

6 membres et 114 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 215
Messages
2 086 328
Membres
103 180
dernier inscrit
Vcr