Boucle qui permet de récupérer certaines lignes d'une feuil
Bonjour à tous !
Je voudrai une boucle qui va me parcourir les lignes de la feuille "TCD". Les lignes différentes d'une date et créer un onglet automatiquement par ligne.
Exemple : Le fichier joint a 34 lignes.
Donc la boucle doit parcourir toutes lignes jusqu'à ce qu'il rencontre "Total général".
La boucle pourra récupérer de la feuille "TCD", la cellule "A5" et passer à la cellule "A9" puis "A12" jusqu'à ce qu'il rencontre "Total général" et créer automatiquement les onglets.
Merci de votre aide!
Merci Bcp "Games over ".
C'est un grand début pour moi !
Je teste avec mon fichier des données avant de valider.
Merci énormément d'être là pour nous aider aussi rapidement.
Bonjour "Game over"
J'adapte le code que tu m'as envoyé hier à mon fichier.
Je voudrai une macro qui peut aller dans la cellule "A4" choisir un projet et désélectionner les autres cases.
Ensuite copier/coller ce projet dans onglet et que l'onglet porte le du projet c'est-à-dire la cellule "A5".
Ensuite passer au projet suivant en réitérant la même opération jusqu'au dernier projet.
Merci pour ton aide !
Ci-joint un code et le fichier.
Sub Macro1()
'
' Macro1 Macro
''InStr("ta_chaine", "sous_chaine_a_chercher").
' Récupérer nombre de projets
' Commencer la boucle de 1 à X
' Pour chaque projet récupérer la ligne du TCD
Feuil5.Activate
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Projet")
.PivotItems(1).Visible = True
For i = 1 To 88
If i <> 1 Then
.PivotItems(i).Visible = False
End If
Next
End With
' Créer une feuille en copiant la feuille modèle
Application.ScreenUpdating = False
Sheets("TCD").Copy After:=Sheets("TCD")
ActiveSheet.Name = "1g6 - Pierre - 2013"
Cells.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Shapes("Button 1").Delete
Range("A5").Select
Do Until IsEmpty(ActiveCell)
If ActiveCell Like "**/**/****" Then
ActiveCell.Rows.EntireRow.Delete
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
' Remmplir la feuille
' Changer le nom : !!!! la taille max que peut prendre le nom d'un onglet est de 31 caractères
' Remplir la feuille Résumé Prévu
'
End Sub
Salut,
voilà, le dispatch des projets sur des feuilles différentes.
à tester...
Cordialement,
Bonjour,
Merci ce travail laborieux "Game Over".
Ton programme fonctionne parfaitement bien!
pour ceux qui voudront l'utiliser prochainement, faites attention au nombre de caractères qui est de 31 que peut prendre le nom d'un onglet.
encore merci d'avance.
Salut Game Over,
Je reviens vers toi encore car ton programme fonctionne parfaitement. j'ai besoin de ton aide encore.
Je voudrai à ce que :
a-la colonne "Total général" de mes tableaux sois supprimer.
b-Insérer une colonne à partir de la colonne "A" pour que la cellule "A2" porte le nom de l'onglet.
c- remplacer la cellule "A1" par "Projet".
Voir exemple de ce que je voudrai obtenir sur l'onglet "exemple" du fichier joint.
Merci d'avance !
Les nouvelles requêtes ont été programmées.
Si tu souhaites faire de nouvelles modifications ou de nouveaux ajouts, je te suggère d'ouvrir un nouveau fil de discussion.
Cordialement.