Problème macro excel 2007 sur une boucle

Version imprimable

Bonjour a tous,

Je suis débutant en macro

Je viens vers vous pour résoudre un problème sur une macro en boucle

je vous détail ce que je veux faire :

Dans un onglet j'ai un tableau avec une liste. je veux reclasser chaque ligne de ce tableau dans différents tableaux selon des critères différents.

J'utilise une boucle pour traiter ligne par ligne mon tableau avec ma liste.

voici ma macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 Sub liste() Sheets("D05" ).Select FindeLigne = ActiveSheet.UsedRange.Rows.Count + 1 Numeroligne = 1 Co = Sheets("FEmai" ).Range("A4" ).End(xlDown).Row + 1 Co1 = Sheets("FEmai" ).Range("A33" ).End(xlDown).Row + 1 Co2 = Sheets("FEmai" ).Range("A58" ).End(xlDown).Row + 1 Co3 = Sheets("FEmai" ).Range("A208" ).End(xlDown).Row + 1 While Numeroligne < FindeLigne Sheets("D05" ).Select Range("A" & Numeroligne, "J" & Numeroligne).Select Selection.Copy If Sheets("D05" ).Range("I" & Numeroligne).Value = "AMB" Then Sheets("FEmai" ).Select Range("A" & Co).Select ActiveSheet.Paste Range("A4" ).Select End If If Sheets("D05" ).Range("I" & Numeroligne).Value = "T" Then Sheets("FEmai" ).Select Range("A" & Co1).Select ActiveSheet.Paste Range("A4" ).Select End If If Sheets("D05" ).Range("I" & Numeroligne).Value = "TM" Then Sheets("FEmai" ).Select Range("A" & Co2).Select ActiveSheet.Paste Range("A4" ).Select End If If Sheets("D05" ).Range("I" & Numeroligne).Value = "VSL" Then Sheets("FEmai" ).Select Range("A" & Co3).Select ActiveSheet.Paste Range("A4" ).Select End If Numeroligne = Numeroligne + 1 Wend
Mon problème vient d'une ligne de ma macro à partir du 2ème tour de ma boucle car au 1er tour tt marche correctement.

Voici la ligne qui beug :

Code:

Range("A" & Co).Select

sachant que

Code:

Co = Sheets("FEmai" ).Range("A4" ).End(xlDown).Row + 1

(idem pour Co1 Co2 et Co3)

Mon souci vient du +1 car je veux sélectionner la première cellule vide de la colonne "A" pour coller à la suite de mon tableau la ligne avec le critère demander.
Donc sur le 1er tour la première tt se passe comme je veux.
Mais sur le deuxième tour la macro ne prend pas en consédration le +1, la cellule qu'elle selection est la derniére cellule du tableau qui est rempli.

Si quelqu'un peut m'aider ça serai super sympa.
J'espère avoir été claire dans mes explication.

Merci

16/08/2014, 10h52
Daniel.C

Bonjour,

Quel est le message d'erreur ?
16/08/2014, 11h25
SfJ5Rpw8
Bonjour,

difficile de t'aider ton code n'est pas vraiment lisible...

tout d'abords tu pourrais le rendre plus lisible en supprimant les instructions Selection, Select , ActiveSheet , Range (sans préfixe...)

Lorsque tu utilise Range précise TOUJOURS de qu'elle feuille il s'agit .. ,tu n'as pas besoin de sélectionner une cellule pour agir dessus.

par exemple :
Code:

1 2 3 Sheets("FEmai" ).Select Range("A" & Co).Select ActiveSheet.Paste
deviens

Code:

Sheets("FEmai" ).Range("A" & Co).Paste

pense aussi à lire et reporter ici les message d'erreur d'Excel...

Bonjour à tous,

néo tu dis

Citation:

Mon souci vient du +1 car je veux sélectionner la première cellule vide de la colonne "A" pour coller à la suite de mon tableau...

Tu peux te positionner par une boucle en testant si la valeur de la cellule est vide. Pour tester la valeur d'une cellule il est plus facile d'utiliser l'objet Cells plutôt que Range Comme par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Posit()
    Dim Lign As Long
    Dim Col As Integer
    Lign = 1
    Col = 1                       'N° de la Colonne
    Sheets("Feuil1").Select
    Do While Cells(Lign, Col).Value <> ""
        Lign = Lign + 1
    Loop
    MsgBox "N° ligne : " & Lign
End Sub

Sinon quelque conseils :
- essaye d'indenter ton code avec des tabulations il en sera plus lisible
Ton code devient sans rien changer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Sub liste()
 
    Sheets("D05").Select
 
    FindeLigne = ActiveSheet.UsedRange.Rows.Count + 1
    Numeroligne = 1
    Co = Sheets("FEmai").Range("A4").End(xlDown).Row + 1
    Co1 = Sheets("FEmai").Range("A33").End(xlDown).Row + 1
    Co2 = Sheets("FEmai").Range("A58").End(xlDown).Row + 1
    Co3 = Sheets("FEmai").Range("A208").End(xlDown).Row + 1
 
    While Numeroligne < FindeLigne
 
        Sheets("D05").Select
        Range("A" & Numeroligne, "J" & Numeroligne).Select
        Selection.Copy
 
        If Sheets("D05").Range("I" & Numeroligne).Value = "AMB" Then
            Sheets("FEmai").Select
            Range("A" & Co).Select
            ActiveSheet.Paste
            Range("A4").Select
        End If
 
        If Sheets("D05").Range("I" & Numeroligne).Value = "T" Then
            Sheets("FEmai").Select
            Range("A" & Co1).Select
            ActiveSheet.Paste
            Range("A4").Select
        End If
 
        If Sheets("D05").Range("I" & Numeroligne).Value = "TM" Then
            Sheets("FEmai").Select
            Range("A" & Co2).Select
            ActiveSheet.Paste
            Range("A4").Select
        End If
 
        If Sheets("D05").Range("I" & Numeroligne).Value = "VSL" Then
            Sheets("FEmai").Select
            Range("A" & Co3).Select
            ActiveSheet.Paste
            Range("A4").Select
        End If
 
        Numeroligne = Numeroligne + 1
 
    Wend
End Sub

- depuis plusieurs années je n'utilise plus While ... Wend mais Do ... Loop qui est plus pratique (possibilité de sortir de la boucle avant la fin) et je l'ai appris depuis peu la boucle While ... Wend est la boucle la plus lente.

- essaye également comme te l'a dit bbil evite les .select (quand tu peux)

A bientôt

17/08/2014, 08h37
neo222816

Merci beaucoup pour vos explications.

je vais essayer de rendre plus lisible mon code

Concernant le message d'erreur, il n'y en a pas, c'est juste que lors de la deuxième boucle l'étape qui consiste à se placer sur la première ligne VIDE du tableau ne fonctionne plus,
la sélection de la cellule se trouve sur la dernière ligne ECRITE de mon tableau se qui fait que le collage efface une ligne avec des données.

Si vous voyez une explication à cela merci de me la communiquer pendant ce temps je vais prendre en considération tt vos remarque pertinente pour améliorer mon code.

Merci encore pour avoir pris temps à m'expliquer certaines choses

Bonjour,

Le calcul de Co et autres ne se trouve pas à l'intérieur de la boucle. Donc sa valeur n'évolue pas. Mets :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
While Numeroligne < FindeLigne
    Co = Sheets("FEmai").Range("A4").End(xlDown).Row + 1
    Co1 = Sheets("FEmai").Range("A33").End(xlDown).Row + 1
    Co2 = Sheets("FEmai").Range("A58").End(xlDown).Row + 1
    Co3 = Sheets("FEmai").Range("A208").End(xlDown).Row + 1
    Sheets("D05").Select
    Range("A" & Numeroligne, "J" & Numeroligne).Select
    Selection.Copy
 
    If Sheets("D05").Range("I" & Numeroligne).Value = "AMB" Then
    Sheets("FEmai").Select
    Range("A" & Co).Select

Méfie-toi aussi de "UsedRange". La plage peut être plus importante que celle de tes données.

18/08/2014, 12h34
neo222816

Merci beaucoup Daniel mon problème est résolu.