Débutant VBA

Débutant VBA - VB/VBA/VBS - Programmation

Marsh Posté le 14-05-2016 à 13:36:54    

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
Reply

Marsh Posté le 14-05-2016 à 13:36:54   

Reply

Marsh Posté le 14-05-2016 à 16:38:36    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed