Couper coller avec condition sur deux feuilles...

job75 à dit:

Bonjour zezechacha, bienvenue sur XLD,

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

Code:

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+

Cliquez pour agrandir...

Oranger à dit:

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

Cliquez pour agrandir...

Oranger à dit:

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

Cliquez pour agrandir...

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.

Cliquez pour agrandir...

Staple1600 à dit:

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

Cliquez pour agrandir...

Oranger à dit:

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

Cliquez pour agrandir...