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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Débutant VBA

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Débutant VBA

n°2281448
rgbnop
Posté le 14-05-2016 à 13:36:54  profilanswer
 

Bonjour,
 
Je suis tout débutant en VBA, j'ai pas mal glané le net mais je n'arrive pas à comprendre la philosophie du truc.
 
Je souhaite faire une chose simple à mon sens :
 
- J'ai un classeur avec plusieurs feuilles
- Je souhaite chercher dans la colone G de la feuille1 s'il y à la donnée "PSY" par exemple
- Si oui je veux copier toute la ligne dans la feuille2
- Je souhaite chercher dans la colone G de la feuille1 s'il y à la donnée "B1" par exemple
- Si oui je veux copier toute la ligne dans la feuille3
- Etc, ...
- De plus je veux m'assurer que si la ligne de la feuille1 à été collée dans la feuille2 (puisque "PSY" dans la colonne G par exemple) et que la donnée de la colonne G a changé dans la feuille1 en B1 = que la ligne soit supprimée de la feuille2 et coller dans la feuille3
 
SI vous connaissez un tuto bien expliquer je suis preneur, je veux bien faire les efforts maisje n'arrive pas à trouver la bonne info.
 
Je n'arrive pas à joindre un fichier ...
 
Merci d'avance pour votre aide.


Message édité par rgbnop le 14-05-2016 à 14:01:21
mood
Publicité
Posté le 14-05-2016 à 13:36:54  profilanswer
 

n°2281463
rgbnop
Posté le 14-05-2016 à 16:38:36  profilanswer
 

Voici le code que j'ai commencé à essayer de construire ...
 
 
Sub test_cop()
 
'Je créé une valeur : l'AAF et je lui donne le type texte
Dim AAF As String
 
'Je demande la sélection de ma feuille
Sheets("Départ" ).Select
 
'J'active ma colonne dans laquelle je cherche à identifier certaines valeurs (exemple : PSY)
Columns("G" ).Activate
 
'Je dis si tu trouve PSY dans cette colonne
If AAF = PSY Then
 
'J'aimerais lui dire : tu copie la ligne et tu la colle dans la feuille 2 après la dernière (en espérant qu'après je puisse filtrer pour que cela se mette par ordre alphabétique)
Rows("17" ).Copy Destination = Sheets("Feuil2" ).Rows("2" )
 
 
End If
 
End Sub


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

  Débutant VBA

 

Sujets relatifs
[RESOLU] Débutant - Tri de donnéesDébutant en VBA
Select Case en VBA : question de débutant[VBA Excel 2003 - débutant] Macro et renommage d'un classeur Excell
[VBA] If/then débutantVBA : débutant, besoind'aide pour une macro
Quizz debutant VBADebutant VB: un probleme de ligne a copier!!!
Debutant VBAProbleme requete VBA
Plus de sujets relatifs à : Débutant VBA


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