Discussion :

[MonSavon]

Bonjour,

Je cherche actuellement à faire une macro qui va copier la ligne x_source de la feuille source jusqu'à la colonne numéro stop_col, vers une ligne x_destination de la feuille destination.
On n'écrira dans la feuille destination uniquement si la cellule source est non vide en texte et non nulle.
Cependant j'obtient une erreur du type 1004, qui provient je pense, de mes variables sources et destination qui sont des feuilles.
Je crois qu'il n'a pas accès à ces feuilles, je ne sais pas...
Voilà le code

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
 
 
Public Sub copie_ligne(source As Worksheet, x_source As Integer, destination As Worksheet, x_destination As Integer, stop_col As Integer)
 
    Dim y, z As Integer
    source.Activate
    Do While y <> stop_col
 
         If (source.Cells(x_source, y) <> "") And (Not (IsEmpty(source.Cells(x_source, y)))) Then
            destination.Cells(x_destination, z) = source.Cells(x_source, y)
            z = z + 1
         End If
 
        y = y + 1
    Loop
 
End Sub

Merci !

[Philippe Tulliez]

Bonjour,
A quelle ligne à lieu cette erreur 1004 ?
Comment passes-tu les arguments Destination et Source ?
Pourrais-tu afficher la ligne qui appelle la procédure copie_ligne.
Même si ce n'est peut-être pas la cause de ton erreur, l'argument x_source étant un numéro de ligne si j'en crois ton instruction source.Cells(x_source, y), il serait préférable de lui donner un type Long plutôt qu'Integer. En effet il y a plus de 32767 lignes dans une feuille d'excel, c'est donc un risque d'erreur.
Cette remarque vaut également pour l'argument x_destination

[Invité]

je trouve deux chose de bizarre!

Code :

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

1
2
3
Dim y, z As Integer
    source.Activate
    Do While y <> stop_col

tu es consciente que Y et Z sont à zéro par défaut:

Code :

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

1
2
 If (source.Cells(x_source, y) <> "") And (Not (IsEmpty(source.Cells(x_source, y)))) Then 'Y=0
            destination.Cells(x_destination, z) = source.Cells(x_source, y) 'Z=0

deplus,

Code :

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

1
2
If (source.Cells(x_source, y) <> "") And (Not (IsEmpty(source.Cells(x_source, y)))) Then 'si IsEmpty(source.Cells(x_source, y))=true alor source.Cells(x_source, y) <> "" erreur!  
            destination.Cells(x_destination, z) = source.Cells(x_source, y)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub copie_ligne(source As Worksheet, x_source As Integer, destination As Worksheet, x_destination As Integer, stop_col As Integer)
    Dim y, z As Integer
    source.Activate
 y=1: z=1
    Do While y <> stop_col
 
         If Trim("" & source.Cells(x_source, y)) <> "" Then
 
            destination.Cells(x_destination, z) = source.Cells(x_source, y)
 z = z + 1
         End If
  y = y + 1
    Loop
End Sub

[Philippe Tulliez]

Bonjour,
J'ajouterais encore que dans cette ligne de déclaration

Code :

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

Dim y, z As Integer

La variable y est de type Variant et pas Integer. La bonne syntaxe est

Code :

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

Dim y As Integer, z As Integer

[MonSavon]

Bonjour!
J'ai laissé Integer et non Long, car dans mon cas il est quasi improbable que je dépasse la taille maximale.
Je pense que le problème venait de ma décalaration de variable "...z, x, y As Integer"

Je vous joint mon code, qui marche désormais !
Si vous voyez des choses " peu propres" ou maladroites, n'hésitez pas je reste à l'écoute !

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
 
Sub format_data_m()
 
    Dim y As Integer, x As Integer, cible As Integer
    y = 4
    Do While Not (IsEmpty(Worksheets(3).Cells(y, 1)))
        y = y + 1
    Loop
    ' MsgBox "Est vide : " & y
    cible = y + 1
    x = 1
    y = 1
 
    Do While x <> 18
 
        If Worksheets(3).Cells(cible, x) <> "" And Not (IsEmpty(Worksheets(3).Cells(cible, x))) Then
            Worksheets(1).Cells(2, y) = Worksheets(3).Cells(cible, x)
            y = y + 1
        End If
        x = x + 1
    Loop
 
    Call copie_ligne(Worksheets(3), cible, Worksheets(2), 2, 18)
 
 
End Sub
 
Public Sub copie_ligne(source As Worksheet, x_source As Integer, destination As Worksheet, x_destination As Integer, stop_col As Integer)
 
    Dim y As Long, z As Long
    source.Activate
    y = 1
    z = 1
 
    Do While y <> stop_col
 
         If (source.Cells(x_source, y) <> "") And (Not (IsEmpty(source.Cells(x_source, y)))) Then
            destination.Cells(x_destination, z) = source.Cells(x_source, y)
            z = z + 1
         End If
 
        y = y + 1
    Loop
 
End Sub

[Marc-L]

Bonjour,

il y a tellement de choses qui pourraient être revues que je préfère ne rien tenter !
Par exemple, mauvaise définition de variables pouvant engendrer des erreurs,
pas besoin de boucle pour trouver la dernière cellule saisie ou la première libre,
pas besoin de boucle non plus pour recopier sous condition des données …
Bref, cela devrait nécessiter moins de dix lignes de codes !

Mieux vaut joindre un classeur exemple avec une feuille source et une autre résultat
accompagné d'une présentation claire & exhaustive, là un code optimisé pourrait être proposé …

[MonSavon]

Merci

[Marc-L]

Exemple dans cette discussion dans laquelle des solutions prennent plus de dix lignes,
une même à plus de trente, et la mienne n'en nécessitant que quatre …