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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  champs de saisie qu permet d'isoler une ligne

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

champs de saisie qu permet d'isoler une ligne

n°2303003
elio55
l\
Posté le 06-07-2017 à 15:57:23  profilanswer
 

Bonjour !!  
 
 J'ai vraiment besoin de votre aide  
 Je voudrais qua partir d'un champs de saisi je saisie "C4" et la macro me sélectionne toute la ligne contenant "c4" et la met dans une feuille a part du même fichier Excel  
 Merci a tous  
 
 


---------------
elio
mood
Publicité
Posté le 06-07-2017 à 15:57:23  profilanswer
 

n°2303067
wago
Posté le 07-07-2017 à 21:32:40  profilanswer
 

J'enfrein un peu la règle [0C] mais bon c'etait rapide.
 
Je ne comprends pas pourquoi tu veux entrer l'adresse d'une cellule pour déplacer une ligne complete alors que juste demander la ligne suffi.
J'ai fait le bout de code en fonction de ca.
Je dis pas que c'est la meilleur méthode mais ça fait le job
 

Code :
  1. Sub DeplaceLigne()
  2. 'déclaration des variables
  3. Dim ligne As String
  4. Dim feuil1 As String
  5. Dim feuil2 As String
  6. 'Boite de dialogue demandant la ligne à déplacer
  7. ligne = InputBox("Veuillez entrez le numéro de ligne à copier", "?" )
  8. 'Stocke le nom de la feuille de départ
  9. feuil1 = ActiveSheet.Name
  10. 'Créé une nouvelle feuille et stocke son nom
  11. Sheets.Add
  12. feuil2 = ActiveSheet.Name
  13. 'Copie la ligne dans la nouvelle feuille
  14. Sheets(feuil1).Range(ligne & ":" & ligne).Copy Sheets(feuil2).Range("A1" )
  15. 'Supprime la ligne dans la feuille de départ
  16. Sheets(feuil1).Range(ligne & ":" & ligne).Delete Shift:=xlUp
  17. 'reselectionne la feuille de départ
  18. Sheets(feuil1).Select
  19. End Sub


 
 
Edit:
Bon je pense pas que ca me resservira mais j'ai trouvé intéressant d'essayer exactement ce que tu veux, c'est à dire entrer une adresse de cellule et déplacer toute la ligne dans une nouvelle feuille.
 

Code :
  1. Sub DeplaceLigne2()
  2. 'déclaration des variables
  3. Dim ligne As String
  4. Dim Cellule As String
  5. Dim feuil1 As String
  6. Dim Feuil2 As String
  7. 'Boite de dialogue demandant la cellule dont la ligne est à déplacer
  8. Cellule = InputBox("Veuillez entrez l'adresse de la cellule dont la ligne est à déplacer", "?" )
  9. ligne = Range(Cellule).Row
  10. 'Stocke le nom de la feuille de départ
  11. feuil1 = ActiveSheet.Name
  12. 'Créé une nouvelle feuille et stocke son nom
  13. Sheets.Add
  14. Feuil2 = ActiveSheet.Name
  15. 'Copie la ligne dans la nouvelle feuille
  16. Sheets(feuil1).Range(ligne & ":" & ligne).Copy Sheets(Feuil2).Range("A1" )
  17. Sheets(feuil1).Range(ligne & ":" & ligne).Delete Shift:=xlUp
  18. 'reselectionne la feuille de départ
  19. Sheets(feuil1).Select
  20. End Sub


Message édité par wago le 07-07-2017 à 23:30:20
n°2303134
elio55
l\
Posté le 10-07-2017 à 10:48:51  profilanswer
 

Bonjour WAGO,
 
Je suis impressionner tu es la 1ere personne a avoir réussi a faire merciiii beaucoup, cependant c'est une erreur de ma part d'avoir mal expliquer au lieu de donner la ligne ou le nom de la cellule je voudrai saisir le champs de la cellule c'est la raison pour laquelle j'ai dit c4 (c la valeur que contient la cellule H5) et ainsi je devrais avoir plusieurs résultat pour c4 . Mais d'avance je ne peux pas connaitre ni la ligne ni le nom de la cellule dont je cherche le champs  
Désolé surtout que tu t'es vraiment pencher sur mon problème
as tu compris ce que je voudrais ?


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

  champs de saisie qu permet d'isoler une ligne

 

Sujets relatifs
lister les champs d'une table en connexion odbcpb sauts de ligne $.ajax
Champs email en code qui renvoi vers formulaire d'inscriptionJe voudrais sélectionner une ligne du tableau
supprimer le premier ligne d'un fichierselection ligne tableau pour requête
Executer une ligne de commande windows en javasupprimer retour à la ligne
supprimer plusieurs retours à la lignelancer un programme python en ligne de commande sous windows
Plus de sujets relatifs à : champs de saisie qu permet d'isoler une ligne



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR