transferer ligne sur la derniere ligne d'une autre feuille

[sago974]

Bonjour a tous,

J'ai besoin d'aide!!!!!!!

Voila mon problème :
J'ai un tableau avec diffèrentes lignes que je souhaite classé dans diffèrentes feuilles en fonction du nom d'équipe.

Je regarde donc si le chantier et terminer et si oui quelle équipe l'a réalisé. je copie la ligne de ma premiere feuille vers la feuille sur la quelle je veux la copier. 😱 un peu compliquée mon explication!

voici mon code :

i = 3
an = "A" & i

while feuil1.range(an) <> ""

'numéro de cellule
an = "A" & i
na = "N" & i
mm = "M" & i
gg = "G" & i

'variable récupere le nom de l'équipe
var = Feuil1.Range(gg).Text

If Feuil1.Range(mm) = "term" Then
If var = "exploit" Or var = "labo" Or var = "meca" Then

Range(an, na).Select
Selection.Cut
Sheets(var).Select
'derniere ligne +1
Rows(ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.Paste
Sheets("Consignation").Select
Rows("3:3").Select

End If
End If
i = i + 1
Wend




Je ne comprend pas pourquoi j'ai une erreur 1004
La methode Select de la classe Range a échoué.

 

[Efgé]

Re : transferer ligne sur la derniere ligne d'une autre feuille

Bonjour sago974,
Faute de fichier exemple je ne peux pas vérifier, mais en utilisant les lignes suivantes, ça peut peut être améliorer les choses:

Dim Derligne As Long
Derligne = Sheets(var).range("A" & application.rows.count).end(xlup).row +1
Rows(Derligne & ":" & Derligne).Select

Cordialement

 

[Gorfael]

Re : transferer ligne sur la derniere ligne d'une autre feuille

Salut sago974 et le forum

i = 3
an = "A" & i
While Feuil1.Range(an) <> ""
    'numéro de cellule
    an = "A" & i
    na = "N" & i
    mm = "M" & i
    gg = "G" & i
    
    'variable récupere le nom de l'équipe
    Var = Feuil1.Range(gg)
    
    If Feuil1.Range(mm) = "term" Then
        If Var = "exploit" Or Var = "labo" Or Var = "meca" Then
            Range(an, na).Cut Sheets(Var).range("A" & Sheets(Var).UsedRange.Rows.Count + 1)
        End If
    End If
    i = i + 1
Wend

J'aime pas ce style de code, mais le modifier impose d'avoir plus de données.
A+

 

[sago974]

Re : transferer ligne sur la derniere ligne d'une autre feuille

Merci pour ta rapidité de réponse.

J'ai essayé ta solution mais le problème est toujours le même, au niveau du Select ( là : Rows(Derligne & ":" & Derligne).Select )

Je rajoute mon classeur si cela peut vous êtes plus clair.. 🙄

 

[Staple1600]

Re : transferer ligne sur la derniere ligne d'une autre feuille

Bonsoir


Une solution adaptée d'une macro de Ron de Bruin

Pour tester, lancer la macro Dispatcher

 

[Gorfael]

Re : transferer ligne sur la derniere ligne d'une autre feuille

Salut sago974 et le forum
Dans mon code, il n'y a aucun Select, qui sont rarement utiles et toujours ralentisseurs, voire bloqueurs !
A+

 

[Efgé]

Re : transferer ligne sur la derniere ligne d'une autre feuille

Bonjour sago974, Gorfael, Staple1600 🙂,
sago974, j'ai refait le code à ma manière. Je pense que cela donne le résultat attendu, mais je pense aussis que le code de Staple1600 est nettement mieux.
Cordialement

 

[sago974]

Re : transferer ligne sur la derniere ligne d'une autre feuille

Ahhh ce forum, c'est vraiment le top !! 🙂

Merci à tous pour votre aide. 'Efgé' ton code et super et correspond parfaitement à mes attentes, ton code est clair et explicite.

Par contre 'Staple1600' je n'est pas compris du tout ta méthode... Mais bon je ne suis pas un expert en VBA. En tous cas je vous remerci tous les 3 de m'être venu en aide..

A bientôt pour de nouveaux dévellopements
😎