537 visiteur(s) en ligne
Date actuelle : 12-11-2024, 21:08 PM Bienvenue, Visiteur ! ( Identification S'enregistrer )







 
Aide pour VBA sous Excel 2010
 
Note de cette discussion :
  • Moyenne : 0 (0 vote(s))
  • 1
  • 2
  • 3
  • 4
  • 5
Auteur Message
Aurely Hors ligne
Newbie
*

Messages : 1
Inscription : Apr 2012
Réputation : 0
Message : #1
Aide pour VBA sous Excel 2010
Bonjour,
Je viens à vous pour obtenir de l'aide concernant le VBA.
Pour que vous puissiez me comprendre au mieux, voici une brève mise en situation.
Mon tableur me sert à suivre mes contacts avec mes prospects, donc j'ai tout ce qui concerne leur identité, leur situation etc.... et j'ai également deux colonnes traitant les relances.
Et dans mes colonnes L et P j'ai "Résultat de la relance" avec une liste déroulante proposant les trois choix suivants : Acceptation/Refus/A relancer de nouveau.
Avec le VBA je souhaite couper toutes les lignes où il est inscrit "Refus" dans les cases L et P pour les copier dans une feuille prévue à cet effet (feuille se trouvant dans le même classeur)
Pour l'instant mon code ressemble à cela :

Sub couper_coller() 
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("Refus").Activate ' feuille de destination
Col = "L" ' colonne de la donnée non vide à tester
NumLig = 1
With Sheets("Feuil1") ' feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 2 To NbrLig
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Cut
NumLig = NumLig + 1
Cells(NumLig, 1).Select
ActiveSheet.Paste
End If
Next
End With
End Sub

Vous l'aurez compris je ne suis pas une experte et mon code est loin d'être complet, je rencontre donc plusieurs difficultés.
Premièrement, mon code ne traite que la colonne "L" est-ce que l'on peut traiter les colonnes "L" et "P" dans le même code ou faut-il en créer deux ???
Deuxièmement, ce code ne me supprime pas les lignes de mon tableur mais seulement le contenu !!!
Et enfin, je ne sais pas comment inscrire que je veux couper seulement les lignes où il est inscrit "Refus" et du coup ce code me déplace tout !!!
Merci d'avanec aux plus courageux qui auront pris le temps de lire mon roman et d'y répondre dans l'idéal Wink

(Ce message a été modifié le : 05-04-2012 20:25 PM par Troll.)
04-04-2012 12:47 PM
Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
leader.75 Hors ligne
Administrateur
******

Messages : 8 618
Inscription : Jan 2010
Réputation : 22
Message : #2
RE: Aide pour VBA sous Excel 2010
Bonjour et bienvenue AURELY.
Je ne peux vraiment pas t'aider sur cette program, mais j'ai trouvé ceci qui pourrait éventuellement répondre à ta demande.
Tiens-nous au courant de l'évolution.
Bonne journée.

Image: zoran-14f6a03-1.gif
Webmaster
http://bm.etmoi.forumdesfans.com/index.php
http://roch.forumforever.com/index.php
05-04-2012 11:43 AM
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
Troll Hors ligne
Trolls' master
******

Messages : 15 818
Inscription : Mar 2006
Réputation : 21
Message : #3
RE: Aide pour VBA sous Excel 2010
Salut vous deux,

Alors j'y connais rien du tout aux Macros en VBA sur Excel, mais je peux déjà te proposer une solution qui marchera sûrement pour que les actions soient effectués sur la colonne P également et pas uniquement la colonne L. Pour le reste, je dois avouer que j'en sais pas grand chose, faut chercher sur le net :/

Pour que ça marche sur les deux colonnes :

Sub couper_coller() 

Dim Lig As Long

Dim Col As String

Dim NbrLig As Long

Dim NumLig As Long

Sheets("Refus").Activate ' feuille de destination


With Sheets("Feuil1") ' feuille source
Col = "L" ' colonne de la donnée non vide à tester

NumLig = 1

NbrLig = .Cells(65536, Col).End(xlUp).Row

For Lig = 2 To NbrLig

If .Cells(Lig, Col).Value <> "" Then

.Cells(Lig, Col).EntireRow.Cut

NumLig = NumLig + 1

Cells(NumLig, 1).Select

ActiveSheet.Paste

End If
Next

Col = "P" ' colonne de la donnée non vide à tester

NumLig = 1

NbrLig = .Cells(65536, Col).End(xlUp).Row

For Lig = 2 To NbrLig

If .Cells(Lig, Col).Value <> "" Then

.Cells(Lig, Col).EntireRow.Cut

NumLig = NumLig + 1

Cells(NumLig, 1).Select

ActiveSheet.Paste

End If
Next

End With

End Sub

Voilà, en passant j'ai un peu "indenté" ton code et je l'ai mis entre les balises [ code][/code] parce que sinon c'est vraiment illisible, essaies d'y penser quand tu postes du code Smile

Sinon, comme on est pas vraiment compétent là-dessus, tu devrais peut-être essayer sur les forums spécialisés excel, comme notamment XLD en général ils sont assez sympa et plutôt très compétent en terme d'Excel Smile

Voilà, tiens nous au courant, si tu trouves la solution, on serait intéressé pour que tu nous la poste !


Un poste sans accent ? La faute au clavier qwerty :/
|| Merci de mettre des titres explicites !!! || La bouille à Troll ? || 
Vous voulez remercier l'équipe du forum ? Participez ! Exprimez-vous ! Revenez et parlez de ce que vous voulez ! Wink Image: actualites-informatiques-pcw.1.gif
05-04-2012 20:36 PM
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse




Discussions apparemment similaires...
Discussion : Auteur Réponses : Affichages : Dernier message
  Stage pour la 3ème - Informatique MisterBoss 11 37 929 07-01-2020 20:58 PM
Dernier message: Bilifly
  Avis pour achat d'une unité centrale rantanplan 1 6 021 25-05-2017 10:21 AM
Dernier message: rantanplan
  probleme pour imprimer des onglet rajouter veve890 1 5 735 13-06-2015 05:07 AM
Dernier message: Troll
  Avis pour achat Téléphone portable buzzmansai 7 7 496 10-04-2015 04:34 AM
Dernier message: Troll
Lightbulb Film pour mp3 Lolita 5 5 496 25-03-2012 11:30 AM
Dernier message: Troll
  [Résolu] besoin d'avis urgent pour achat compulsif... buzzmansai 9 6 795 11-10-2011 17:00 PM
Dernier message: buzzmansai
  problème pour installer un jeu "fire warrior" Luaine 3 7 486 17-07-2011 20:21 PM
Dernier message: Troll
  [Résolu] conseil pour la création d'un forum roleplay Luaine 34 20 997 21-09-2010 07:27 AM
Dernier message: Luaine
  [Résolu]  Conseil pour faire une recherche sur internet Luaine 5 7 184 04-09-2010 18:02 PM
Dernier message: T-1000
  [Résolu] problème pour installer les sims2 Luaine 2 5 652 11-08-2010 17:12 PM
Dernier message: Luaine

Aller à :


Utilisateur(s) parcourant cette discussion : 1 visiteur(s)