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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème avec mon Loop

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème avec mon Loop

n°2181829
wkrystof2
Posté le 22-03-2013 à 15:22:58  profilanswer
 

Bonjour à tous,
 
J'ai une boucle qui me permets de dupliquer le titre d'une colonne d'un TCD excel et quand le titre change, le dupliquer change aussi.
Mais une fois que j'arrive à la fin (cellule vide dans D4), la boucle s'arrête ce qui est normal mais la macro ne continue pas la suite.
 
Pouvez vous m'aider SVP
 
  'Copier les noms d'agence'
    Dim Ligne As Integer
    Dim Référence As String
 
    Range("D4" ).Activate
    ActiveCell.End(xlDown).Activate
    Ligne = ActiveCell.Row
 
    Range("A5" ).Activate
    Référence = ActiveCell.Value
    ActiveCell.Offset(1, 0).Activate
 
    Do While ActiveCell.Row <> Ligne
        Do While ActiveCell.Value = 0
            ActiveCell.Value = Référence
            ActiveCell.Offset(1, 0).Activate
            If ActiveCell.Row > Ligne Then
                Exit Sub
                    End If
    Loop
    Référence = ActiveCell.Value
    ActiveCell.Offset(1, 0).Activate
     
    Loop
   
     
        'Mise en place de filtres'
    Range("A4" ).Select
    Selection.AutoFilter
    Columns("A:N" ).EntireColumn.AutoFit

mood
Publicité
Posté le 22-03-2013 à 15:22:58  profilanswer
 

n°2181970
boomy29
PSN: tintine29
Posté le 23-03-2013 à 09:17:54  profilanswer
 

Le Exit Sub est peut être la raison?


---------------
[Ach] Just dance + cam PS4
n°2181977
wkrystof2
Posté le 23-03-2013 à 10:14:40  profilanswer
 

déjà essayer mais cela ne fonctionne pas non plus   :(

n°2181981
Marc L
Posté le 23-03-2013 à 10:36:13  profilanswer
 

 
           http://smileys.sur-la-toile.com/repository/Messages/plus-un2.gif avec boomy29 ‼
 

n°2181992
boomy29
PSN: tintine29
Posté le 23-03-2013 à 11:44:47  profilanswer
 

ce que tu peux commencer par faire c'est enlever tes activecell (cf les cours de Marc L ^^)
 
par exemple  
 
 Range("D4" ).Activate
ActiveCell.End(xlDown).Activate
Ligne = ActiveCell.Row
 
tu peux mettre  
Ligne  = Range("D4" ).End(xlDown).Row
 
ensuite pour ton soucis  
commente le exit sub ou remplacer par exit do ( si ça existe) voir si ça te convient mieux, si tu passes par la suite de ton code

n°2182010
otobox
Maison fondée en 2005
Posté le 23-03-2013 à 13:40:19  profilanswer
 

Oui, remplacer le exit sub par exit do


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
n°2182055
wkrystof2
Posté le 23-03-2013 à 18:58:24  profilanswer
 

exit do, pas pensé je test et je vous tiens au courant. Merci les gars

n°2182087
wkrystof2
Posté le 24-03-2013 à 12:14:01  profilanswer
 

ni exit sub ni exit do fonctionne pour faire la suite   :(

n°2182090
otobox
Maison fondée en 2005
Posté le 24-03-2013 à 14:43:38  profilanswer
 

En fait, je ne vois pas trop où tu veux en arriver...
As tu essayé d'exécuter ton code en pas à pas (touche F8) en analysant pourquoi ça ne va pas comme tu veux ?


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
n°2182144
wkrystof2
Posté le 25-03-2013 à 09:17:04  profilanswer
 

F8 fait, mais rien d'anormal

mood
Publicité
Posté le 25-03-2013 à 09:17:04  profilanswer
 

n°2182161
vave
Nice to meet me
Posté le 25-03-2013 à 10:49:50  profilanswer
 

C'est quoi que tu appelles "rien d'anormal" ?
 
En pas à pas, ça sort bien de la boucle et continue la macro ?


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
n°2182186
wkrystof2
Posté le 25-03-2013 à 11:56:23  profilanswer
 

je me suis mal exprimé effectivement, qd il arrive à la fin de la liste, il sort bien du premier loop, mais il ne part pas sur le reste de la macro (ce qui se trouve derrière le deuxième Loop). et j'ai pas d'erreur

n°2182210
Marc L
Posté le 25-03-2013 à 13:01:56  profilanswer
 

 
           Cela marche bien chez tout le monde sauf toi, donc soit ton classeur est endommagé
           (dans ce cas repart de zéro dans un nouveau classeur), soit …  
           On aimerait voir ton code avec les lignes numérotées, y a l'icône pour le code C à cet effet comme préconisé dans les règles du forum !
 


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

  Problème avec mon Loop

 

Sujets relatifs
Problème jointure requête sql.Problème de validation de formulaire
Problème d'affectation ( methode hongroise )problème programmation VBA
Problème de rechercheproblème script PHP
Problème de réception mail "formail"Problème affichage date dans le module de news
Problème pour modifier une fonctionProbleme de loop pour la detection de la resolution d'ecran
Plus de sujets relatifs à : Problème avec mon Loop


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