VBA deplace ligne dans une autre feuil selon textbox

Bens7 · 8 Mars 2016

Bonjour a tous !
ayant rechercher des dizaine de post sur Google impossible de trouver quelque chose qui me corespond
en fait ca a l'air simple mais etant novice VBA je ne sais pas du tout coder ce genre de Macro
Je vous met un fichier exemple tout est dedans...
Merci a vous !

vgendron · 8 Mars 2016

Re : VBA deplace ligne dans une autre feuil selon textbox

Hello

Avec ce code sur le bouton déplacer

Code:

Private Sub CommandButton1_Click()
'récupère le numéro de la facture saisi
NumFacture = TextBox1.Value
'la cherche dans la feuille ACTIF
Set c = Range("R:R").Find(NumFacture)
If Not c Is Nothing Then
    'MsgBox c.Row
    'copie la ligne entière
    Range(c.Row & ":" & c.Row).Copy
    
     'la colle à la fin
    With Sheets("ARCHIVES")
        LastLine = .Range("A65536").End(xlUp).Row + 1
        .Activate
        .Rows(LastLine & ":" & LastLine).Select
        .Paste
    End With
     'retourne dans la feuille ACTIF pour supprimer la ligne
    Sheets("ACTIF").Activate
    ActiveSheet.Rows(c.Row & ":" & c.Row).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    
End If

End Sub

Bens7 · 8 Mars 2016

Re : VBA deplace ligne dans une autre feuil selon textbox

Que dire ! Parfait ! mais c'est ou le resolu ?

vgendron · 8 Mars 2016

Re : VBA deplace ligne dans une autre feuil selon textbox

parfait. j'en doute..
il y a toujours cette histoire de copier coller sans activer les feuilles que je ne maitrise pas..(j'ai pas pigé le truc encore..)
ce serait donc plus rapide..

pour le résolu: pas de bouton pour cela. mais tu peux juste éditer le titre de ton post d'origine pour y rajouter la mention [resolu]

VBA deplace ligne dans une autre feuil selon textbox

Bens7

XLDnaute Impliqué

Pièces jointes

vgendron

XLDnaute Barbatruc

Bens7

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

Discussions similaires