Déplacer une colonne d'un onglet dans un autre

Question

Petit sujet bien tordu : j’essaie de créer un tableau excel pour mes relances client : Mon idée : j'ai des onglets En Cours 0-1000 / En cours 1001 - 2000 ...... et des onglets : Résolus 0-1000 / Résolus 1001-2000 Dans un premier temps pour chaque client qui n'a pas payé (ho pas bien....) je crée ces coordonnées dans une colonne dans un onglet En cours ... en fonction de son numéro de client interne, avec historique des relances. Une fois que le client à payé, j'indique en ligne 17, 26 ou ligne 35 le montant réglé. Mon idée est quand cette ligne est égale à ce que le client doit, ce qu'elle disparaisse de l'onglet En cours ... et que cette colonne se crée dans l'onglet Résolus..... Je ne sais pas comment faire pour vérifier si le montant est égal à ce que doit le client et de la couper / collé dans un autre onglet Merci de votre aide Franck...

Yvouille · Accepted Answer

Je n’ai pas très bien compris pourquoi à la feuille ‘En cours 3001-4000‘ correspondait la feuille ‘Résolu 3500-4000‘ mais bon, tu fais ce que tu veux Voici un nouveau code - dans le fihcier ci-joint - à tester : Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim j As Integer, DerCol As Integer, Feuille_Base As String, Feuille_Correspondante As String If Target.Count &gt; 1 Then Exit Sub Application.EnableEvents = False If Left(ActiveSheet.Name, 8) = "En cours" Then Feuille_Base = ActiveSheet.Name Select Case Feuille_Base Case Is = "En cours 0-1000" Feuille_Correspondante = "Résolus 0-1000" Case Is = "En cours 1001-2000" Feuille_Correspondante = "Résolus 1000-2000" Case Is = "En cours 2001-3000" Feuille_Correspondante = "Résolus 2000-3000" Case Is = "En cours 3001-4000" Feuille_Correspondante = "Résolus 3500-4000" Case Else Feuille_Correspondante = "Résolus 4000-...." End Select If Not Application.Intersect(Target, Range("D17:IV17,D26:IV26,D35:IV35")) Is Nothing Then If Cells(17, Target.Column) + Cells(26, Target.Column) + Cells(35, Target.Column) = Cells(8, Target.Column) Then DerCol = Sheets(Feuille_Correspondante).Cells.SpecialCells(xlCellTypeLastCell).Column Cells(1, Target.Column).EntireColumn.Cut j = Target.Column ' A la ligne ci-dessous, la Target.Column prend la valeur de la target de la feuille dans laquelle sont collées les données, il faut dont l'enregistrer auparavant. Sheets(Feuille_Correspondante).Columns(DerCol + 1).Insert Shift:=xlToRight Cells(1, j).EntireColumn.Delete Shift:=xlToLeft End If End If End If Application.EnableEvents = True End Sub Bonnes salutations...

gmb · Answer

Dans la colonne E de l’onglet « En cours 1001-2000 » on trouve un Montant exprimé en texte : « 371,31 + 896,91 » On ne peut donc pas se servir de cette valeur pour faire des tests sur les montants ou les additionner. Si on y avait des valeurs numériques, quitte à ajouter une ligne, au besoin, ton problème serait relativement facile à résoudre. Est-ce possible ? A te lire...

Yvouille · Answer

Ca fait un moment que je cherche, alors je me permets de vous présenter ma solution. Cordialement...

Yvouille · Answer

Normalement oui, as-tu fait des essais ? Mais si tu as un si grand nombre de feuilles, il serait peut-être bien de modifier un peu le code. Je regarde ça à l'occasion ? A te relire...

Yvouille · Answer

Regarde dans le fichier ci-joint comment j’ai modifié mon code afin que ça joue pour une troisième paire de feuilles. J’ai mis les nouveautés en commentaires majuscules.

N’oublie pas d’aller voir également la ligne qui commence par If ActiveSheet.Name = "En cours 0-1000" Or …..

Mais comme je te l’ai déjà dit, pour rajouter encore 2 ou 3 paires de feuilles, ça risque d’être très laborieux. Il vaut mieux partir dans une autre direction selon moi. Je peux faire ça d’ici demain soir je pense.

Si j’ai ton feu vert, peux-tu me confirmer que toutes les feuilles comment bien par ‘En cours’ ou par ‘Résolus’ uniquement ?

A te relire.

15suivi-relances-clients-v2.zip (34.15 Ko)