Couper coller avec condition sur deux feuilles...

[zezechacha]

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!!

 

[job75]

Bonjour zezechacha, bienvenue sur XLD,

Placez cette macro dans un module quelconque de l'éditeur VBA (Alt+F11) :

Sub CouperColler()
Dim x$, c As Range
Do
    x = InputBox("Entrez le numéro du dossier :", , x)
    If x = "" Then Exit Sub
    Set c = Sheets("à_venir").[A:A].Find(x, , xlValues, xlWhole) 'recherche en colonne A
Loop While c Is Nothing
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

Vous pouvez affecter cette macro à un bouton pour l'exécuter.

A+

 

[Oranger]

Bonjour,

Une autre proposition

Oranger

 

[zezechacha]

Bonjour zezechacha, bienvenue sur XLD,

Placez cette macro dans un module quelconque de l'éditeur VBA (Alt+F11) :

Sub CouperColler()
Dim x$, c As Range
Do
    x = InputBox("Entrez le numéro du dossier :", , x)
    If x = "" Then Exit Sub
    Set c = Sheets("à_venir").[A:A].Find(x, , xlValues, xlWhole) 'recherche en colonne A
Loop While c Is Nothing
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

Vous pouvez affecter cette macro à un bouton pour l'exécuter.

A+

J'ai essayé avec ce code mais ça ne marche pas...

 

[zezechacha]

J'ai un autre problème maintenant si le dossier n'existe pas il ne me dit pas qu'il n'existe pas mais me donne les valeurs de celui d'avant...

 

[Oranger]

En effet, je n'avais pas initialisé la variable qui teste si le dossier existe. C'est corrigé. Est-ce ok?

Ce code s'exécute suite à un changement survenu sur la feuille. Donc si tu fais des modifications sur la feuille "A venir", il faut mettre aussi en code dans Feuil1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ce code s'active en cas de changements sur la feuille
Call main
End Sub

 

[zezechacha]

En effet, je n'avais pas initialisé la variable qui teste si le dossier existe. C'est corrigé. Est-ce ok?

Ce code s'exécute suite à un changement survenu sur la feuille. Donc si tu fais des modifications sur la feuille "A venir", il faut mettre aussi en code dans Feuil1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ce code s'active en cas de changements sur la feuille
Call main
End Sub

C'est bon ça marche mais j'ai toujours un problème j'aimerais que même si on supprime les information dans à_venir elle reste dans en_cours_PAO
Merci pour votre aide!!

 

[Oranger]

Dans ce cas là je pense qu'il ne faut rien mettre dans la feuil1. Voici le fichier corrigé.

 

[zezechacha]

Dans ce cas là je pense qu'il ne faut rien mettre dans la feuil1. Voici le fichier corrigé.

Ca ne marche toujours pas pour moi...
Mais merci quand même de m'avoir aidé

 

[Oranger]

Donnes moi un exemple de ce que tu essayes de faire et qui ne marche pas pour toi pour que je regarde ce qui va pas stp

 

[Staple1600]

Bonjour le fil, le forum

@zezechacha [Bienvenue sur le forum]
A la vue de la copie d'écran, du message#6
Il serait peut-être temps de s'inquiéter de ce point de la charte du forum, non ?

5 – La possibilité de joindre des fichiers est donnée sur ce forum.
Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

Cela pourrait t'éviter d'éventuelles déconvenues si ton employeur découvrait ce fichier diffusé sur un forum public

 

[zezechacha]

Bonjour le fil, le forum

@zezechacha [Bienvenue sur le forum]
A la vue de la copie d'écran, du message#6
Il serait peut-être temps de s'inquiéter de ce point de la charte du forum, non ?


Cela pourrait t'éviter d'éventuelles déconvenues si ton employeur découvrait ce fichier diffusé sur un forum public

Merci mais j'ai bien fait attention....

 

[zezechacha]

Donnes moi un exemple de ce que tu essayes de faire et qui ne marche pas pour toi pour que je regarde ce qui va pas stp

Par exemple je veux le dossier 2B dans la feuille en_cours_PAO et ensuite le supprimer de à_venir car il a été traité

 

[Staple1600]

Re

@zezechacha
Je voulais parler ce qu'on pouvait lire sur ta copie d'écran (celle du message#5)
NB: Je viens de voir que j'avais précédemment écris message#6
désolé pour la coquille

 

[zezechacha]

Oui je sais mais les données sont fausses donc aucun problème