Copié collé sous condition

Bonjour j'aimerais savoir de quelle façon je peux transférer la ligne d'un classeur à un autre classeur automatiquement si le % de réalisation atteint 100 %

Dans mon fichier ci-joint si le vendeur indique 100 dans la colonne F du classeur Prospect

Je veux que la ligne se transfère au classeur Nouveaux clients à la suite l'une de l'autre des lignes et se supprime du classeur ''Prospect'' automatiquement

Est-ce faisable ?

merci

13fichier-test.xlsx (16.86 Ko)

Bonjour,

Une proposition à étudier.

Cdlt.

14fichier-test.xlsm (32.94 Ko)

Wow , Merci Jean-Éric !!

afin de pouvoir reproduire plus tard, penses-tu pouvoir m'expliquer ce que tu as fait ?

Bonjour,

Il y a une procédure évènementielle qui s'exécute quand tu changes la valeur d'une cellule de la colonne % réalisation, sous condition que cette valeur soit égale à zéro.

Tes données ont été mises sous forme de tableau.

Est ce plus clair ?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lo As ListObject, lo2 As ListObject, lr As ListRow, Cell As Range
    If Target.ListObject Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set lo = Target.ListObject
    If Target.Column - lo.HeaderRowRange.Cells(1).Column + 1 = 6 Then
        If Target.Value = 100 Then
            Set lr = lo.ListRows(Target.Row - lo.HeaderRowRange.Cells(1).Row)
            Set lo2 = Worksheets("Nouveaux Clients").ListObjects(1)
            With lo2
                .ShowTotals = False
                If .InsertRowRange Is Nothing Then
                    Set Cell = .HeaderRowRange.Cells(1).Offset(.ListRows.Count + 1)
                Else
                    Set Cell = .InsertRowRange.Cells(1)
                End If
            End With
            lr.Range.Copy
            Cell.PasteSpecial xlPasteValuesAndNumberFormats
            Application.CutCopyMode = 0
            lo2.ShowTotals = True
            lr.Range.Delete shift:=xlUp
            MsgBox "Enregistrement effectu? !...", 64, "Information"
        End If
    End If
End Sub

Bonjour Jean-Éric, tu m'avais aidé début juillet avec une procédure événementielle,

mon tableau à grossi depuis et avec les vacances , j'ai perdu le fil de la procédure.. j'aimerais pouvoir changer la zone de sélection dans le code car j'ai ajouté plusieurs nouvelles colonnes à mon tableau, es-tu en mesure de me donner un coup de main ?

En fait , dès qu'un représentant indique 100 % à la colonne F (% de réalisation) du dossier ''PROSPECT'', j'aimerais que toutes les données de la ligne en cours se transfèrent au dossier '' Nouveaux Clients'', les un après les autres et se suppriment du dossier prospect.. je te joins mon nouveau fichier.

un énorme merci , j'en ai mal à la tête, je ne maîtrise pas tu tout ce volet ..

Bonjour,

La mise en forme des données n'est pas correcte.

Pour l'ajout d'équipements, il fallait ajouter une colonne Equipement et garder la structure existante.

A te relire.

Cdlt.

Rechercher des sujets similaires à "copie colle condition"