je veu copier une feuille d'un classeur et il affiche erreur 424

**booskap** · 18/07/2007, 16h22

oui je comprend c pas un site pour avoire du tout cuit ,c plus de l'encadrement

**booskap** · 19/07/2007, 10h52

pour faire ce que je t dis il faut que met:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ligne_début = InputBox("Placer : Ligne début ?")
ligne_fin = InputBox("Placer : Ligne fin ?")
 
For ligne = ligne_début To ligne_fin
    test = 0

juste apres mes declaration et que je mette mon code dans une boulce c sa

**COCONUT2** · 19/07/2007, 11h07

Oui sauf que les input Box réclament des valeurs

donc il faut demander: "Donner la ligne de début de selection."

Il faut faire un petit test (histoire que l'utilisateur ne mette pas de valeurs farfelues qui planteraient la macro) du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Do until reponse isnuméric
     If not reponse isnumeric then
        reponse=Inputbox("N'importe quoi! Il faut donner un numéro de ligne!!!")
     End if
Loop
 
If reponse =0 then
        reponse=Inputbox("Qu'est ce que tu crois?? La ligne 0 n'existe pas!")
end if

Bien sur à dédoubler pour les ligndébut et lignfin

et ne pas oublier le Next à la fin pour reboucler

les Collage spécial fonctionneront à chaque fois sans probleme.

**booskap** · 19/07/2007, 11h13

pourquoi m affiche-t-il :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Do until reponse isnuméric
     If not reponse isnumeric then

en rouge

**COCONUT2** · 19/07/2007, 11h31

A pardon parceque réponse est la variable que tu récupere de l'Inputbox.

Dans ton cas, à remplacer par Ligne_début et par Ligne_fin

dslé

**booskap** · 19/07/2007, 11h41

le next ce met apres le end if c sa

**COCONUT2** · 19/07/2007, 11h47

Il faut revoir ton code en mettant à chaque fois ce que tu fais!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
'Demander le numéro de la ligne de début
ligne_début = InputBox("Placer : Ligne début ?")
 
'Test de réponse exacte
 
'Demander le numéro de ligne de fin
ligne_fin = InputBox("Placer : Ligne fin ?")
 
'Test de réponse exacte
 
'Boucle pour chaque ligne
For ligne = ligne_début To ligne_fin
    test = 0
 
'Si la valeur de la cellule xy vaut une valeur, alors
 
'je la copie
 
'Je la colle sur la feuille précédente 
 
'etc...
 
'et je passe à la ligne suivant
next

Tu mets donc le next apres tout ce que tu dois faire sur la ligne

l'avantage de cette méthode et de savoir à quel moment mettre les boucle, les end if, les else....
Ca permet aussi de reprendre un code écrit il y a un an.

**booskap** · 19/07/2007, 11h54

et si je dois copier sur trois colonne differente je fais 3 boucle for

**COCONUT2** · 19/07/2007, 12h08

Soit tu as exactement les memes critères et tu selectione d'abord les 3 colonnes avec un truc du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(A:A,C:C,E:E).select

qui va sellectionner les 3 colonnes A, C et E

ou alors tu as des critères spécifiques pour chaque et il faut mieux passer par une boucle For ou autre chose en fonction de ce que tu noteras en francais dans ton code

**booskap** · 19/07/2007, 13h58

mais si je dois coller par exemple :
_la colonne A sur la colonne B
_la colonne B sur la colonne E
_la colonne C sur la colonne S

sur l autre feuille je fais comme tu as ecrit sauf que j'ecris
Range(A:B,B:E,C:S).select

mais je crois que je me trompe

**COCONUT2** · 19/07/2007, 14h27

Ca va etre compliqué de tout faire en meme temps.

Dans ce cas, tu décomposes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'Coller la colonne A sur la colonne B 
Sheets("feuille départ").range("A:A").copy (Sheets("feuille arrivée").range("B:B"))
'Coller la colonne B sur la colonne E 
Sheets("feuille départ").range("B:B").copy (Sheets("feuille arrivée").range("E:E"))
 
'Coller la colonne C sur la colonne S
Sheets("feuille départ").range("C:C").copy (Sheets("feuille arrivée").range("S:S"))

**booskap** · 19/07/2007, 14h44

ok,g eu un autre probleme g essayé pour testé de mettre un zero dans les messages box pour tester le message d'erreur maintenat le messagebox ne s'enleve plus mon application est bloqué

**COCONUT2** · 19/07/2007, 14h54

Oui mais c'est normal si tu n'as pas mis le test que je t'ai proposé.

Si tu lui demande de partir à la ligne 0 qui n'existe pas, il plante forcément.

Il y a un autre test à ajouter si jamais tu lui donne une ligne_fin < ligne_début car il ne trouvera jamais cette ligne puisque que la boucle for incrémente le numéro de ligne.

**booskap** · 19/07/2007, 15h10

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
50
51
52
53
54
55
56
57
58
59
60
61
Sub Copier()
 
Dim WBSource As Workbook, WBDest As Workbook
Dim i As Integer
Dim j As Long
 
 
'Demander le numéro de la ligne de début
ligne_début = InputBox("Placer : Ligne début ?")
 
'Test de réponse exacte
 Do Until ligne_début
     If Not ligne_début Then
        reponse = InputBox("N'importe quoi! Il faut donner un numéro de ligne!!!")
     End If
Loop
 
If reponse = 0 Then
        reponse = InputBox("Qu'est ce que tu crois?? La ligne 0 n'existe pas!")
End If
'Demander le numéro de ligne de fin
ligne_fin = InputBox("Placer : Ligne fin ?")
 
'Test de réponse exacte
 Do Until ligne_fin
     If Not ligne_fin Then
        reponse = InputBox("N'importe quoi! Il faut donner un numéro de ligne!!!")
     End If
Loop
 
If reponse = 0 Then
        reponse = InputBox("Qu'est ce que tu crois?? La ligne 0 n'existe pas!")
End If
'Boucle pour chaque ligne
For ligne = ligne_début To ligne_fin
    test = 0
   If Cells("B") Or Cells("E") Or Cells("S") <> 0 Then GoTo saut3:
 Set WBSource = Workbooks("ruitz.xls")
Set WBDest = Workbooks("planning.csv")
'cherche la ligne vide dans le classeur de destination
i = WBDest.Worksheets("planning").Range("A65536").End(xlUp).Row + 1
 
 
 
WBDest.Sheets("planning").Range("A:A").Copy (WBDest.Sheets("planning").Range("B:B"))
 
WBDest.Sheets("planning").Range("B:B").Copy (WBDest.Sheets("planning").Range("E:E"))
 
 
WBDest.Sheets("planning").Range("C:C").Copy (WBDest.Sheets("planning").Range("S:S"))
 
 Next
 
 
saut3:
Next ligne
'et je passe à la ligne suivant
 
 
 
End Sub

g ecrit sa mais ca ne marche pas

**COCONUT2** · 19/07/2007, 15h24

do = faire
until = jusqu'à

derriere, il faut mettre une condition

idem pour le if

comme par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Do until Ligne_début isnuméric
     If not Ligne_début isnumeric then
        reponse=Inputbox("N'importe quoi! Il faut donner un numéro de ligne!!!")
     End if
Loop
 
If ligne_début =0 then
        ligne_début =Inputbox("Qu'est ce que tu crois?? La ligne 0 n'existe pas!")
end if

et on peut encore améliorer la protection en éliminant les lignes avec signe négatif en écrivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If ligne_début <=0 then
        ligne_début =Inputbox("Qu'est ce que tu crois?? La ligne 0 n'existe pas!")
end if

autre probleme, tu utilise Goto qui peut fonctionner mais qui est déconseillé
Tu as un if sans end if

**booskap** · 19/07/2007, 16h00

pourquoi me met-il erreur 13 a la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells("B") Or Cells("E") Or Cells("S") <> 0 Then GoTo saut3:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub Copier()
 
Dim WBSource As Workbook, WBDest As Workbook
Dim i As Integer
Dim j As Long
 
 
'Demander le numéro de la ligne de début
Ligne_début = InputBox("Placer : Ligne début ?")
 
'Test de réponse exacte
Do Until Ligne_début
     If Not Ligne_début Then
        reponse = InputBox("N'importe quoi! Il faut donner un numéro de ligne!!!")
     End If
Loop
 
If Ligne_début = 0 Then
        Ligne_début = InputBox("Qu'est ce que tu crois?? La ligne 0 n'existe pas!")
End If
'Demander le numéro de ligne de fin
ligne_fin = InputBox("Placer : Ligne fin ?")
 
'Test de réponse exacte
 Do Until Ligne_début
     If Not Ligne_début Then
        reponse = InputBox("N'importe quoi! Il faut donner un numéro de ligne!!!")
     End If
Loop
 
If Ligne_début = 0 Then
        Ligne_début = InputBox("Qu'est ce que tu crois?? La ligne 0 n'existe pas!")
End If
'Boucle pour chaque ligne
For ligne = Ligne_début To ligne_fin
    test = 0
 
 
 
 Set WBSource = Workbooks("ruitz.xls")
Set WBDest = Workbooks("planning.csv")
'cherche la ligne vide dans le classeur de destination
i = WBDest.Worksheets("planning").Range("A65536").End(xlUp).Row + 1
 
'Si la valeur de la cellule xy vaut une valeur, alors
 
'je la copie
 'Coller la colonne A sur la colonne B
WBSource.Sheets("planning").Range("D:D").Copy (WBDest.Sheets("planning").Range("B:B"))
'Coller la colonne B sur la colonne E
WBSource.Sheets("planning").Range("B:B").Copy (WBDest.Sheets("planning").Range("E:E"))
 
'Coller la colonne C sur la colonne S
WBSource.Sheets("planning").Range("C:C").Copy (WBDest.Sheets("planning").Range("S:S"))
'Je la colle sur la feuille précédente
 Next
'etc...
 
'et je passe à la ligne suivant
 
 
 
End Sub

ce programme copie mais ne tient pas en compte les lignes selectionné

**COCONUT2** · 19/07/2007, 16h07

Essais plutot de séparer les condition

Axiome : Un ordi, c'est débile et ca le restera!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells("B")<>0 Or Cells("E")<>0 Or Cells("S") <> 0 Then GoTo saut3:

Sinon, ca ne veurt rien dire Cells("B")

Que veux tu dire exactement?

**booskap** · 19/07/2007, 16h11

je veus faire ma condition pour que si la ligne est vide il va a la suivante

**COCONUT2** · 19/07/2007, 17h40

Dans ce cas, tu vas désigner la cellule par cells

Syntaxe (voir touche F1)

Cells(N°Ligne,N°Colonne)

Donc cellule B5 donne Cells(5,2)

Attention, si la cellule est vide, elle ne vaut pas 0 mais rien ("")

le code devient:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells(ligne,2)="" Or Cells(ligne,5)="" Or Cells(ligne,19) ="" Then GoTo saut3:

Et ca devient cohérent puisque la variable incrémentée se retrouve dans la condition

**ouskel'n'or** · 20/07/2007, 08h50

Deux choses, une simple indication : préfère utiliser Empty plutôt que ""

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells(ligne,2)= Empty Or Cells(ligne,5)= Empty Or Cells(ligne,19) = Empty Then

deuxièmement, un autre principe de base et un bon gros conseil :
N'utilise JAMAIS de goto dans une boucle.
Et donc, remplace ta ligne par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If not (Cells(ligne,2)= Empty Or Cells(ligne,5)= Empty Or Cells(ligne,19) = Empty) Then
     'Ton code
Endif

NB - Si tu as toujoours une erreur, elle ne viendra pas de là

je veu copier une feuille d'un classeur et il affiche erreur 424

Macros et VBA Excel

Discussions similaires

Partager

Partager