Créer un onglet pour chaque donnée différente
Bonjour,
VBA débutant, j'ai voulu adapter une macro à mon cas :
J'ai donc besoin de votre aide :
But de la macro : Partager un fichier en plusieurs onglets en fonction des données de la colonne B.
Ma macro créée bien un onglet par données qui se trouve dans la colonne B mais elle ne recopie qu'une seule ligne alors que je souhaite qu'elle récupère toutes les lignes qui ont la même donnée en colonne B :
Sub creation_onglets()
Dim Ws As Worksheet
Dim trouve As Boolean
Dim contenu As String
Dim lig, derlig As Integer
With Sheets("Feuil1")
derlig = .Range("B65536").End(xlUp).Row
For lig = 2 To derlig
contenu = .Cells(lig, 2).Value
For Each Ws In ThisWorkbook.Worksheets
trouve = False
If StrComp(Ws.Name, contenu, vbTextCompare) = 0 Then
trouve = True
Exit For
End If
Next Ws
If trouve = True Then
.Rows(lig).Copy Sheets(contenu).Range("A65536").End(xlUp).Offset(1, 0)
Else
Sheets.Add
ActiveSheet.Name = contenu
.Rows(lig).Copy Sheets(contenu).Range("A65536").End(xlUp).Offset(1, 0)
End If
Next lig
End With
End Sub
Merci d'avance pour votre aide.
Peux-tu joindre un fichier?
Le forum pourra intervenir en te proposant différentes solutions.
dlt
Bonjour,
Voici un exemple en pièce jointe. La colonne B peut comporter jusqu'à 50 codes différents.
Merci pour votre aide
Bonjour,
Un début de réponse.
Ouvrir le fichier et activer les macros. Faire Ctrl + w pour démarrer la procédure VBA.
Pour ouvrir l'éditeur VBE et accéder au code : ALT F11
A te relire
Cdlt.
Bonjour,
Merci beaucoup pour cette réponse parfaite.
SI je peux abuser, j'ai 1 question qui découle de la première :
Est ce qu'il est possible d'envoyer automatiquement par mail chaque onglet à un destinataire différent?
En tout cas merci pour votre efficacité et votre rapidité.
Re,
Certainement.
Mais tu dois commencer par clore ce sujet et en ouvrir un nouveau.
Ta nouvelle question est inappropriée
Sinon, fais une recherche sur ce site, en spécifiant avec quoi tu veux envoyer tes emails.
Tu auras certainement la réponse à ta nouvelle question.
Cdlt.
Merci.
Je ne suis pas encore habitué à Excel pratique, c'est ma première connexion et certainement pas ma dernière.
Encore merci.