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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Aide : VBA SELECTION une colonne entière sous condition bug

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Aide : VBA SELECTION une colonne entière sous condition bug

n°2060014
MythSkille​s
Posté le 28-02-2011 à 12:35:54  profilanswer
 

Bonjour à tous,
 
Alors voilà mon problème . Sur excel/
 
But : lorsque qu un "X" est présent dans la première ligne alors :
        sélectionner toute la colonne>la copier>la coller sur une autre feuille.
 
Le problème : Il bug au niveau de la copie et me bloque mon excel.Le problème provient sans doute de la boucle mais je n'arrive pas à trouver de solution malgrès de longue recherche.  
Merci par avance  
 
Le code :

Sub copierligne()
Range("A1" ).Select ' début de la liste'
Do While ActiveCell <> ""
If ActiveCell = "X" Then
ActiveCell.EntireColumn.Select
Application.CutCopyMode = False
    Selection.Copy  
ActiveCell.Offset(0, 1).Select
Else
ActiveCell.Offset(0, 1).Select ' on traite la ligne suivante'
End If
Loop
End Sub

mood
Publicité
Posté le 28-02-2011 à 12:35:54  profilanswer
 

n°2060033
billgatesa​nonym
Posté le 28-02-2011 à 13:48:33  profilanswer
 

Ne serait-ce pas ActiveCell.Offset(1, 0) au lieu de ActiveCell.Offset(0,1) ?
 
Edit : Ou alors le commentaire est faux "on traite la ligne suivante" et le nom de la fonction ne devrait-il pas être copiercolonne au lieu de copierligne ?
 
Edit 2 : Souvent, au lieu de Do While ActiveCell <> "" on écrit Do Until IsEmpty(ActiveCell), comme c'est le cas sur un exemple de M$ : http://msdn.microsoft.com/en-us/li [...] e.10).aspx


Message édité par billgatesanonym le 28-02-2011 à 14:10:49
n°2060096
MythSkille​s
Posté le 28-02-2011 à 16:51:43  profilanswer
 

Merci bien, avec until is empty ca ne bug plus.


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

  Aide : VBA SELECTION une colonne entière sous condition bug

 

Sujets relatifs
aide en EJB StatelessVBA - Selections lignes tableau sous Excel
copier lignes excel et coller dans corps de mail outlook (VBA)aide je me suis fait hacker mon compte
[VBA Excel] Keycode -> ? [Résolu][VBA] Dernière ligne vide dans un fichier excel vide
Aide pour modifier visionneuseAide pour capturer image de webcam sur volcan actif
VBA Excel Remplacer retour chariot par saut celluleVBA: collage speciale de texte provenant du presse papier vers Excel
Plus de sujets relatifs à : Aide : VBA SELECTION une colonne entière sous condition bug


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