XL 2013 Si une colonne contient le mot x, copier la ligne vers une autre feuille Répondre

roki

XLDnaute Nouveau
Bonjour,

Je recherche une solution pour un fichier Excel.

J'ai un tableur avec plusieurs feuilles : "General" ; "Orga_WP" ; "Orga_Q", "Orga_listes-SO" et " Ressources" ("ressources" = 3 choix possibles pour la colonne "statut")

image
Dans ma feuille "General" je vais entrer pleins d'organisations décrivant 7 critères : "Nom organisation / personnalité" ; " Statut" ; " Lien" ; " Contributeur principal" ; " Contributeur suppléants" ; " Date de création" et "Date dernière mise à jour"

image
Ce que j'aimerais c'est que quand dans ma feuille "General" j'entre une ligne décrivant une organisation :

si dans la colonne "statut" de cette ligne je choisie "Organisations dans Wordpress" alors toute cette ligne est également copier dans la feuille "Orga_WP"

si dans la colonne "statut" de cette ligne je choisie "Liste organisations SO" alors toute cette ligne est également copier dans la feuille "Orga_listes-SO"

si dans la colonne "statut" de cette ligne je choisie "Organisations réponses questionnaire" alors toute cette ligne est également copier dans la feuille "Orga_Q"

De ce fait, quand je change une information dans la feuille "General" ça l'a change également dans la feuille où la ligne et copié.

Et que quand je change le "Statut" d'une ligne par un autres des 3 choix ( "Organisations dans Wordpress" ; "Liste organisations SO"" ; "Organisations réponses questionnaire" ) alors ça copie également la ligne dans la feuille en lien avec ce choix (et qu'elle ni soit plus dans la précédente).

Voilà j'espère que c'est pas trop compliqué.

Moi j'avais essayé =SI(General!$B2="Liste organisations SO";(General!A2:G2);0) et j'avais modifié et étiré la formule. Mais cette solution ne me convient pas (le problème c'est que il me copie les bon éléments mais dans les mêmes ligne d’origine, de ce fait je me retrouve avec des lignes vides dans ma nouvelle feuille).

J'ai lu pas mal de posts sur des sujets équivalent mais je n’arrive pas à voir où et comment adapter le code VBA (sachant que j'en ai jamais fait).

Voilà merci pour votre aide !
Cordialement.
 

Pièces jointes

  • Liste_orga_SO_forum.xlsx
    26.9 KB · Affichages: 24

Cédric36

XLDnaute Nouveau
je suis vraiment desoler d'avoir l'impression d'insiter mais pouvez vous concevoir que certaine personne n'y connaisse rien en matiere de formule et autre sorcelerie et passe par ce qui est gerereusement mis en place par des personnes competente.
le fichier que vous avez corrigé n'etait pas un fichier m'appartenant mais un fichier trouver dans un autre poste pour lequel je suis incapable de transposer la macro n'y connaissant rien.
mon fichier est l'autre "richardière" pour lequel je ne trouve pas , pour le moment ce que je désire.
pour la première fois et probablement pas la dernière, merci pour votre temps precieux a nous répondre.
 

job75

XLDnaute Barbatruc
Donc vous ne plaisantiez pas :
VB:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> "Saisie" Then
        Application.ScreenUpdating = False
        Sh.Cells.Clear
        With Sheets("Saisie").[A1].CurrentRegion
            .AutoFilter Field:=5, Criteria1:=Sh.Name
            .Copy Sh.[A1]
            .AutoFilter
        End With
        Sh.Columns(5).Delete
    End If
End Sub
 

Pièces jointes

  • Richardière.xlsm
    32.1 KB · Affichages: 15

job75

XLDnaute Barbatruc
Bonjour Cédric36, le forum,

Votre fichier est corrompu, il faut le détruire et le refaire entièrement.

En effet il y a 12 feuilles indésirables de type ThisWorkbook : Feuil1 à Feuil10, Sheet1, ThisWorkbook1.

Alors qu'il ne doit y avoir qu'un seul ThisWorkbook.

A+
 

Cédric36

XLDnaute Nouveau
comment cela a pu arriver ?
j'ai tenter de reprendre le fichier que vous m'aviez donner plus haut dans ce post mais la aussi cela ne fonctionne plus.
aurais je fait des choses sur mon excel (libreoffice) qui persiste malgres tout ?
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 892
Membres
101 831
dernier inscrit
gillec