Erreur macro Excel

pp911 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Dans la macro su dessous, j'ai un problème avec le ligne :
While Cells(i, 2).Value <> "Nº"
Je ne trouve pas l'erreur, si quelqu'un à une idée elle serra la bien venue..

Merci
------------------------------------------------------------------------------------------ 

Sub filtrar()
    lua_fich = ActiveWorkbook.Name
    Load UserForm1
    UserForm1.Show
    Workbooks(lua_fich).Sheets("Datos Filtrados").Select
End Sub

Sub crear_acta()
    ruta = ActiveWorkbook.Path
    nombre = ActiveWorkbook.Name
    Workbooks.Open Filename:=ruta & "\Acta Reunion.xls"
    dia = Workbooks(nombre).Sheets("Datos Filtrados").Cells(6, 3).Value
    semana = DatePart("ww", dia, vbMonday, vbFirstFourDays)
    año = DatePart("yyyy", dia)
    Cells(3, 5).Value = dia
    i = 1
    While Cells(i, 2).Value <> "Nº"
    i = i + 1
    Wend
    i = i + 1
    j = 6
    Cells(2, 4).Value = Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 6).Value
    j = j + 1
   
    While Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 3).Value <> ""
        Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 2).Copy
        Cells(i, 2).Select
        ActiveSheet.Paste
        
        Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 5).Copy
        Cells(i, 3).Select
        ActiveSheet.Paste
        
        Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 6).Copy
        Cells(i, 4).Select
        ActiveSheet.Paste
        
        Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 8).Copy
        Cells(i, 5).Select
        ActiveSheet.Paste
        
        Workbooks(nombre).Sheets("Datos Filtrados").Cells(j, 7).Copy
        Cells(i, 6).Select
        ActiveSheet.Paste
        
        i = i + 1
        j = j + 1
    Wend
    
        Cells(1, 1).Select
End Sub


A voir également:

2 réponses

Réponse 1 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Pour l'espagnol ou le portugais tu a des forums dans ta langue, pourquoi venir en français ?
Bref..
Qu'y a t'il dan tes cellules While Cells(i, 2).Value <> "Nº"
Je suppose qu'elle ne contienne pas uniquement N°
Tu dis, ou met un exemple de ton classeur sur Cjoint.com (sans donnée confidentielle) et mettre le lien dans un poste suivant.
A+
0
Réponse 2 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonsoir,

tout à fait d'accord avec lermite sur la fourniture d'un fichier dès le 1er post.
J'ajouterai que 'j'ai un pb' n'explique rien. Quel pb ? Quelle erreur ? On n'est pas ici pour t'arracher les renseignements. On se lasse vite et tu te retrouves bien seul...

Si tu n'as plus de "Nº" dans ta colonne tu ne sors plus de ta boucle. Il te faut une énde condition de sortie : dernière ligne dépassée par exemple.

eric
0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses