Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Couper coller avec condition sur deux feuilles...

zezechacha

XLDnaute Nouveau
Bonjour,
Déjà j'ai cherché sur plusieurs discussion la solution à mon problème mais je ne trouve pas.
Alors voila j'ai deux feuilles l'une à_venir et l'autre en_cours_PAO. Dans la feuille à_venir il y a le même nombre de colonne et le même genre d'informations que sur en_cours_PAO (numéro de dossier, client, info, format, dossier maquette,...). J'aimerais que lorsque je tape le numéro de dossier dans en_cours_PAO excel trouve la ligne dans à_venir, la coupe et me la colle dans en_cours_PAO. J'ai essayer de faire avec RechercheV mais le problème c'est que quand je supprime les infos dans à_venir elles se suppriment aussi dans en_cours_PAO.
Merci de votre aide!!
 

Staple1600

XLDnaute Barbatruc
Re

@zezechacha
La macro proposée par job75 fonctionne si tu corriges le nom des feuilles
soit dans le code
soit en renommant les onglets

PS: j'ai testé sur le fichier exemple que tu as joint.
Ici j'ai juste modifié les noms des onglets pour qu'ils correspondent au noms des onglets tel que tu les as écrit dans ton fichier exemple
VB:
Sub CouperColler()
Dim x$, c As Range
Do
    x = InputBox("Entrez le numéro du dossier :", , x)
    If x = "" Then Exit Sub
'nom corrigé pour correspondre au nom exact de l'onglet
    Set c = Sheets("A venir").[A:A].Find(x, , xlValues, xlWhole) 'recherche en colonne A
Loop While c Is Nothing
'nom corrigé pour correspondre au nom exact de l'onglet
With Sheets("En cours PAO")
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    c.EntireRow.Copy .Cells(.Rows.Count, 1).End(xlUp)(2)
    c.EntireRow.Delete
    .Activate 'facultatif
End With
End Sub
 

job75

XLDnaute Barbatruc
Bonjour JM,
La macro proposée par job75 fonctionne si tu corriges le nom des feuilles
soit dans le code
soit en renommant les onglets
Bah évidemment qu'elle fonctionne

Et les noms des feuilles que j'utilise sont ceux que zezechacha indique au post #1.

Mais zezechacha ne sait peut-être pas exécuter une macro (Alt+F8) ou simplement créer un bouton.

A+
 

Staple1600

XLDnaute Barbatruc
Re

@job75
Je savais pertinemment que ton code fonctionnait
Mais les noms des onglets différaient entre le message de zezechacha et sa PJ.
D'ou mon petit coup de pouce à l'intention de zezechacha.

PS: Pour être précis, j'aurai du écrire
"Le code de job75 fonctionne.
zezechacha
Mais pour qu'il fonctionne sur ton ordinateur, il faut que tu veilles à ce que les noms des feuilles du classeur et les noms des feuilles dans le code de la macro soient rigoureusement identique."
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…