Bonjour,
Je parcours avec attention les pages de ce forum qui me permets de progesser rapidement en vba sur Excel.
J'arrive à mes limites, et voici ma question.
Je gère quotidiennement un tableau ou apparait l'ensemble des projets que nous suivons au bureau.
Sur certaines colonnes (Colonnes B à J), je note des informations qui me permettent de suivre l'activité: QUI, QUAND, COMBIEN DE TEMPS, etc...
Chaque mois, je reçois les nouvelles affaires avec des évolutions sur certaines colonnes (Colonnes K à V). Il existe des lignes supplémentaires, et des lignes en moins (Chantiers terminés).
Je souhaite supprimer les doublons sur le critère de la colonne L, mais sans perdre les informations notés dans les colonnes B à J.
Mais voilà, je n'arrive pas à copier toutes les informations, ou je supprime les mauvaises lignes.
Pouvez-vous m'aider à m'y retrouver.
Voici le code que j'utilise :
Sub supprimeDoublons()
MaCellule = InputBox("Veuillez saisir l'adresse de la 1ere cellule à comparer (Indiquer L2)")
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
Donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
z = 2
w = z + 1
While ActiveCell <> ""
If ActiveCell = Donnee1 Then
Range("B" & z & ":J" & z).Select
Selection.Copy
Range("B" & w).Select
ActiveSheet.Paste
Range("L" & w).Select
ActiveCell.EntireRow.Delete
Donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
z = z + 1
w = w + 1
Else
Donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Merci de votre aide.
Stef
Je parcours avec attention les pages de ce forum qui me permets de progesser rapidement en vba sur Excel.
J'arrive à mes limites, et voici ma question.
Je gère quotidiennement un tableau ou apparait l'ensemble des projets que nous suivons au bureau.
Sur certaines colonnes (Colonnes B à J), je note des informations qui me permettent de suivre l'activité: QUI, QUAND, COMBIEN DE TEMPS, etc...
Chaque mois, je reçois les nouvelles affaires avec des évolutions sur certaines colonnes (Colonnes K à V). Il existe des lignes supplémentaires, et des lignes en moins (Chantiers terminés).
Je souhaite supprimer les doublons sur le critère de la colonne L, mais sans perdre les informations notés dans les colonnes B à J.
Mais voilà, je n'arrive pas à copier toutes les informations, ou je supprime les mauvaises lignes.
Pouvez-vous m'aider à m'y retrouver.
Voici le code que j'utilise :
Sub supprimeDoublons()
MaCellule = InputBox("Veuillez saisir l'adresse de la 1ere cellule à comparer (Indiquer L2)")
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), Order1:=xlAscending, Header:=xlYes
Donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
z = 2
w = z + 1
While ActiveCell <> ""
If ActiveCell = Donnee1 Then
Range("B" & z & ":J" & z).Select
Selection.Copy
Range("B" & w).Select
ActiveSheet.Paste
Range("L" & w).Select
ActiveCell.EntireRow.Delete
Donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
z = z + 1
w = w + 1
Else
Donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Merci de votre aide.
Stef