Bonjour le forum,
J'aurai besoin de conseil avisé, voici mon problème :
Sur un onglet Excel j'ai l'information des clients visités pour un commercial.
Le commercial peu vendre plusieurs familles à un client (dans ce cas il ya une ligne pour chaque ensemble "client-famille")
J'ai le numéro client en colonne B et je cherche par rapport à cette info, chaque fois qu’une valeur est différente de la valeur suivante à insérer une ligne entre les deux valeurs.
Ca j'en suis pas trop loin mais déjà je bloque :
Sub test_initial()
Dim i As Long
Dim truc As Range
Set truc = Range("B2")
i = 1
With truc
While .Cells(i) <> Empty
If .Cells(i) = .Cells(i + 1) Then
i = i + 1
Else
Rows(i + 1).Insert Shift:=xlDown (il y a un problème à cette ligne)
i = i + 2
End If
Wend
End With
End Sub
Et en plus dans cette ligne insérer je voudrais mettre des informations
- en colonne B insérer : "Total"N°client
- en colonne J et K insérer : un sous total
- En colonne N et O une fonction si par rapport respectivement à ce qu'il y a en cellule J et K
Exigeant le gars xD
Voici un fichier (vu que mes explications sont pas forcément très claire)
Il y a 2 onglet : ce que j'ai au départ (onglet "initial") et ce que je voudrais obtenir (onglet "final")
Est il possible de faire ça?
Si quelqu'un a des pistes ou des conseils je suis preneur
Merci d'avance
Nono89
J'aurai besoin de conseil avisé, voici mon problème :
Sur un onglet Excel j'ai l'information des clients visités pour un commercial.
Le commercial peu vendre plusieurs familles à un client (dans ce cas il ya une ligne pour chaque ensemble "client-famille")
J'ai le numéro client en colonne B et je cherche par rapport à cette info, chaque fois qu’une valeur est différente de la valeur suivante à insérer une ligne entre les deux valeurs.
Ca j'en suis pas trop loin mais déjà je bloque :
Sub test_initial()
Dim i As Long
Dim truc As Range
Set truc = Range("B2")
i = 1
With truc
While .Cells(i) <> Empty
If .Cells(i) = .Cells(i + 1) Then
i = i + 1
Else
Rows(i + 1).Insert Shift:=xlDown (il y a un problème à cette ligne)
i = i + 2
End If
Wend
End With
End Sub
Et en plus dans cette ligne insérer je voudrais mettre des informations
- en colonne B insérer : "Total"N°client
- en colonne J et K insérer : un sous total
- En colonne N et O une fonction si par rapport respectivement à ce qu'il y a en cellule J et K
Exigeant le gars xD
Voici un fichier (vu que mes explications sont pas forcément très claire)
Il y a 2 onglet : ce que j'ai au départ (onglet "initial") et ce que je voudrais obtenir (onglet "final")
Est il possible de faire ça?
Si quelqu'un a des pistes ou des conseils je suis preneur
Merci d'avance
Nono89
Pièces jointes
Dernière édition: