Discussion :

[klash384]

Bonjour,

Je viens vers vous car je ne comprends pas ce qui se passe avec ma macro. Je pensais que le code est bon, à croire que non puisque j'ai une erreur 1004 "erreur définie par l'application ou par l'objet", qu'Excel me situe au premier range que je fais.

Je demande à ce que tout le temps qu'un critère ne soit pas vide et si un autre critère est validé, qu'une plage de cellules soient copiées dans une autre feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Ligne
Dim P, R As Object
 
Ligne = 3
Set P = Sheets("Principal")
Set R = Sheets("Recap Commissions")
    Do While Cells(Ligne, 1) <> ""
        If Cells(Ligne, 12) = "Validé" Then
            Range(Cells(Ligne, 1)).Copy R.Range(Cells(Ligne, 1))
            Range(Cells(Ligne, 35), Cells(Ligne, 51)).Copy R.Range(Cells(Ligne, 2))           
        End If
    Ligne = Ligne + 1
    Loop
End Sub

Si quelqu'un sait ce qui ne va pas, je suis extrêmement preneur !

Merci !

[Marc-L]

Bonjour, bonjour !

Si un Range n'a qu'une cellule, utiliser soit Range soit Cells mais pas les deux ‼




__________________________________________________________________________________________________
Tous unis, tous Charlie

[Mrfreeze117]

Il me semble que tu as oublié un ".past" pour coller ce que tu as copié.

Attention il me semble que tu ne te sers pas de ta variable "P"

[klash384]

Effectivement, j'ai oublié de virer la variable "P" !

Je teste en utilisant que range ou Cells pour une seule cellule !
Merci !

Après Test, ça fonctionne effectivement super bien, voici le code corrigé !

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
Sub Actualisation_Commissions()
Dim Ligne, Ligne2
Dim R As Object
 
Ligne = 3
Ligne2 = 3
Set R = Sheets("Recap Commissions")
    Do While P.Cells(Ligne, 1) <> ""
        If Cells(Ligne, 12) = "Validé" Then
            Cells(Ligne, 1).Copy R.Cells(Ligne2, 1)
            Range(Cells(Ligne, 35), Cells(Ligne, 51)).Copy R.Cells(Ligne2, 2)
            Ligne2 = Ligne2 + 1
        End If
    Ligne = Ligne + 1
    Loop 
End Sub

Il ne me manque plus qu'à faire un peu "d'esthétique" maintenant !

[Mrfreeze117]

Personnellement je n'utilise plus le copy / past. Je trouve ça trop lourd.

j'utilise:

Code :

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

cells(i,j).value= cells(x,y).value

comme ça je récupère que la valeur de la cellule.

Après c'est un choix personnel.

[klash384]

Personnellement je n'utilise plus le copy / past. Je trouve ça trop lourd.
comme ça je récupère que la valeur de la cellule.

C'est vrai que ça peut être pas mal aussi, après vu que je n'utilise pas de formule dans mon tableau, j'ai tout passé en vb pour justement ne pas avoir à gérer les formules. Mais j'y penserai la prochaine fois que j'aurais un tableau avec des formules, ça pourra m'être, je pense, bien utile !