Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1448 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  probleme de programation

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

probleme de programation

n°1728954
parith
Posté le 06-05-2008 à 11:55:04  profilanswer
 

Bonjours a tous, voici mon problème:
 
j'ai sur une feuille qui se nomme Feuill1 plusieurs données inscrites dans des cellules qui contiennent :  
- le matricule, dans la colonne A et sur les lignes de 2 a 30
- les congés, dans la colonne B et sur les lignes de 2 a 30  
- et la date, dans la colonne C et sur les lignes de 2 a 30
 
J'aimerais recuperer sur une autre feuille qui se nomme feuill2 les matricules et les congés de la Feuill1 lorsque dans un userform qui est dans la feuill2, j'entre une certaine date.
En clair j'aimerais recuperer a partir de la feuill1, le matricule et les congés correspondant a une date entrer dans un userform de la feuill2 .
Il peut y avoir plusieurs identiques dans la feuill1 avec des maticules et congés différent
 
j'espere que vous répondrer vite et merci a tous d'avance.

mood
Publicité
Posté le 06-05-2008 à 11:55:04  profilanswer
 

n°1729013
olivthill
Posté le 06-05-2008 à 13:44:12  profilanswer
 

Des feuilles.. Excel ? En VBA ou en formules ?
 
Voici un exemple en VBA

Recopier sur une autre feuille les ligne qui contiennent "terminé"
Sub Get_matricules()
'    Application.ScreenUpdating = False   ' pour aller plus vite on peut désactiver le refresh auto update
    Set src_feuille = ThisWorkbook.Sheets("Feuil1" )
    Set dst_feuille = ThisWorkbook.Sheets("Feuil2" )
    src_col_no = 1 ' pour la colonne A (A = 1, B = 2)
    src_lg_no = 2  ' à partir de la deuxième ligne
    dst_col_no = 1
    dst_lg_no = 2
    Do While (src_lg_no <= 30)
        dst_feuille.Cells(dst_lg_no, dst_col_no).Value _
         = src_feuille.Cells(src_lg_no, src_col_no - 1).Value
        dst_lg_no = dst_lg_no + 1
        src_lg_no = src_lg_no + 1
    Loop
End Sub


Il existe aussi la méthode Copy

Sheets("feuil2" ).Range("A2:A20" ).Copy Sheets("feuil2" ).Range("A2:A20" )  


Ou bien dans une cellule de la deuxième feuille on peut avoir une formule

=Feuil1!A2:A20

(Je n'ai pas testé ces deux dernières solutions)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  probleme de programation

 

Sujets relatifs
Problème pour rediriger sur une autre page htmlproblème à la création d'une fenêtre
probleme HttpSession - RequestDispatcher[PIC] Problème de mise en place I²C
VC++ : Problème de scrolling sur un CEditProblème très étrange qui pourra me donner la réponse ?
Problème avec des JLayeredPaneprobleme programation php
probleme sur une programation vbaprobleme sujet programation excel........help
Plus de sujets relatifs à : probleme de programation


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR