Copie/col ROW

[herve62]

Bonjour
J'ai peut-être l'air de m'entêter pour pas grand chose
En fait je veux ( après bon critère) copier Toute la ligne (ROW) et coller dans une autre feuille
mais bizarre mon code BUG !! ici dans la feuille du bouton (code) même si je mets en DUR : ROW(5:5). select au lieu de (n & ":" & n) ??
Alors que si je mets ce ROW(5:5).select dans un module .... ca passe ???
Sinon je passe par autre méthode ?
Je cherche un exemple dans mon grenier .... mais beaucoup poussière !!!🙂
Merci à vous

 

[herve62]

Re : Copie/col ROW

Yups , oubli de coller le code

Private Sub CommandButton1_Click()
choixV = InputBox("Quelle ville voulez vous trier ?")
der_lig = Range("A65000").End(xlUp).Row
   
    For nolig = 2 To der_lig
        
       vil = Cells(nolig, 6).Value
       If choixV = vil Then
       Sheets(vil).Activate
last_lig = Worksheets(vil).Range("A65000").End(xlUp).Row
n = last_lig + 1
'Rows(n & ":" & n).Select
Rows("14:14").Select
    
 ActiveSheet.Paste
    Sheets("Base de données").Select
        'Call triV
        End If
    Next nolig
End Sub

 

[dev_co]

Re : Copie/col ROW

Apparemment , il y a ROW et ROWS ?
Dans l'aide VBA on ne voit pas la structure seule > rows( 10:10).select (exemple)
ta syntaxe existe t-elle ?
l'histoire entre MODULE et code feuille , je vois pas !!!

 

[herve62]

Re : Copie/col ROW

Bonsoir
Je ne trouve toujours pas la raison du Bug ?
Macro enregistrée : testée OK ( dans un module )
Si je mets ce code dans un bouton ca plante ?? ( code dans Feuille)
Mettez ce bout de code dans n'importe quel fichier avec des données ajoutez un bouton de Cde et dites moi si ca marche !!

Private Sub CommandButton1_Click()
Sheets("Feuil1").Activate

Rows("18:18").Select
    Selection.Copy
    Sheets("Feuil2").Activate
    Rows("5:5").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

 

[Staple1600]

Re : Copie/col ROW

Bonsoir à tous

hervé62
Ton code plante
Celui-ci non.

Private Sub CommandButton1_Click()
Sheets("Feuil1").Rows("18:18").Copy Sheets("Feuil2").Rows("5:5")
End Sub

 

[herve62]

Re : Copie/col ROW

Merci l'ancien !
Cela me permet de comprendre que MAcro # VBA !!
J'avais aidé qq aussi pour un Pb similaire , mais pas retrouvé.. trop ancien : il y avait un genre de syntaxe
Copy > destination dans la formule , mais je sais plus !!!!
Sinon je viens de tester avec des variables au lieu de ("18:18") c'est OK
Bonne soirée A+