excel Fermé

Question

Bonjour,
salut a tous voila etans une brelle sous excel je viens vous demander de laide 

coment creer une regle qui en faite j'explique 

j'ai une page avc des nom de personne 
es des page batiment 1 2 3 4 

comment par exemple en modifiant ma liste de personne faire pour que les page se mette a jour toute seul 

exemple si je met a coter de jean batiment 3 et bien que jean s'ajoute au batiment 3 sans faire de copier coller merci a tous de votre aide

Mike-31 · Answer

Salut,

Il y a plusieurs possibilités, mais tes explications ne sont pas très claires, fais un petit fichier avec des noms factices comme toto titi etc … quelques explications, ici j’ai ça et je voudrais ce résultat là etc 

Pour joindre ton fichier avec ce lien

https://www.cjoint.com/

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

As tu quelque notions en VBA

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Plus facile à traiter en VBA, mais on va faire simple avec des formules.

Donc ce que tu veux, c'est mettre les nom de la page Membre qui en K1 soit affiché sur la feuille K1

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Pour commencer une version avec code VBA si tu veux faire tes débuts, je t'expliquerai pour mettre ce code sur ton fichier

https://www.cjoint.com/?gosQszOUZ4

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Je réponds à ton post 11, J'ai écris un code qui sélectionne les donnée de la feuille Membre, tous les K 1 sont copiés page K 1 les K 2 sur la feuille K 2 etc ...

Pour éviter que le code les copie plusieurs fois j’ai ajouté entre le K et le chiffre un tiret ce qui donne K_1 alors qu’au départ nous avions K 1

Pour rajouter des feuilles, il faudra rajouter du code et le modifier 

Cette partie de code concerne la feuille K 3, il faudra copier cette partie juste au dessous de ce code et modifier la première ligne Sheets("K 3").Activate, ce qui est entre ("  ") c’est nom de la feuille si la nouvelle s’appelle K 4 il faudra mettre Sheets("K 4").Activate

Ensuite la ligne 8        If .Cells(Lig, Col).Value = "K 3" Then, ici K 3 c’est la valeur recherché dans la colonne B, donc sit u ajoutes une nouvelle valeur exemple K 4 il faudra saisir If .Cells(Lig, Col).Value = "K 4" Then

ETC …

Sheets("K 3").Activate
    Col = "B"
    LigFin = Range("A65536").End(xlUp).Row + 1
    NumLig = 1
    With Sheets("Membre")
    NbrLig = .Cells(65536, Col).End(xlUp).Row
    For Lig = 1 To NbrLig
        If .Cells(Lig, Col).Value = "K 3" Then
          .Cells(Lig, Col).EntireRow.Copy
          NumLig = NumLig + 1
            Cells(LigFin, 1).Select
            LigFin = LigFin + 1
            ActiveSheet.Paste
            End If
    Next
    End With


A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Excel

5 réponses