Boucle tant que caractére inférieure à .. Fermé

Question

Bonjour, 

Mon programme est assez complexe et je n'arrive pas à trouver la solution à ce problème .. 

J'ai tout une macro qui recherche des donnés pour les placer sur une autre feuille , j'aimerais effectuer une recherche pour trouver la bonne cellule sur la première feuille donc : 

-Pour de la colonne 26 à 25 j'aimerais qu'on sélectionne la cellulle de la ligne k
- compter le nombre de caractères
-tant que le nombre de caractère est inférieur à 10 on décale de 1 
- Si supérieur à 10 on copie et on colle sur la seconde feuille dans la colonne 27 

Je pensais que mon code était bon , mais il tourne dans le vide et ne se termine jamais :/

Merci 

Code : 
For i = 7 To dern                     
For j = 27 To 79  

[...] ' DU CODE ET PLEIN DE CODE 
                    
For M = 26 To 35                   
 Cells(k, M).Select                   
    N = Len(ActiveCell)         
MsgBox (N)
Do While N < 10
ActiveCell.Offset(0, 1).Select
    N = Len(ActiveCell)        

Loop

Next
    

ActiveCell.Offset(0, 26).Select       
    
Selection.Copy                      
Sheets("Données_triées").Select      
Cells(k, 27).Select                  
ActiveSheet.Paste                     

[ ... ] 'ENCORE DU CODE

k=k+1

Next

Next

michel_m · Answer

Bonjour
For i = 7 To dern For j = 27 To 79 [...] ' DU CODE ET PLEIN DE CODE For M = 26 To 35  Cells(k, M).Select  sur ton code, au départ k=0 ! alors ????combien de lignes dans ton tableau? --

Merci de donner un code cohérent si tu veux ^tre aider
 Michel

Boucle tant que caractére inférieure à ..

1 réponse

Discussions similaires