Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

R

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


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"


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
Trier par date Trier par votes
C

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.
 
Vote positif 0 Vote négatif

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: 16
Vote positif 0 Vote négatif

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+
 
Vote positif 0 Vote négatif
C

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:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Je ne connais pas libre office mais visiblement quelque chose n'est pas cohérent.

Car le fichier du post #23 est quasiment le même que celui du post #18 qui allait bien chez vous.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
255
mromain
S
  • Résolu(e)
Microsoft 365 Copier automatiquement sur une ligne sur une autre feuille si la date est supérieur à une date définie
2
Réponses
17
Affichages
977
S.J
S
L
  • Question
XL 2021 Renvoi d'une valeur texte dans une colonne d une autre feuille
Réponses
6
Affichages
115
laurent34750
L
A
  • Question
XL 2019 Ajouter ou supprimer une ligne selon un mot trouvé dans une autre feuille
Réponses
1
Affichages
373
Oneida
S
  • Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
603
salma_hayek
S
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
440
Nel'
N
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
412
steph_29120
S
M
  • Question
XL 2021 Copier coller les valeur d'une ligne si la case contiens "x"
Réponses
2
Affichages
563
manga419
M
J
  • Question
LibreOffice Calc Reporter toute une ligne si une case contient la réponse "oui"
2
Réponses
27
Affichages
300
JHA
J
M
  • Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
629
MGH
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…