bonjour tout le monde,
j'ai un petit problème avec des macro copier ici et la ... "y a des idées mais pas le savoir" lol !
p'tit 1 :
j'aimerais listé les onglets et en même temps récupéré le contenue de certaine cellules. je voulais faire une bidouille des deux code mais nada
code 1
code 2
P'tit 2:
j'aimerai une lien de redirection par nom d'onglet ... pour pointé ce dernier plus rapidement :mrgreen:
________________________________________________________
l'idée serai :
_ rassembler tout les classeurs d'un dossier sur un seul classeur ( ça OK) , Ok mais je rencontre un problème en fin d'action du code
_ il me faut faire, une liste de tout les onglets (ça ok) et en extraire des informations (ça fonctionne a 50%).
_ j'aimerais que le nom de l'onglet pointe voir ce dernier (plus rapide a retrouver) .
si possible en un seul code pour les deux derniers
plus tard ... j'aimerais via un autre classeur regrouper toute les infos de la même manière , enfin sauf que la il y aurais des dossiers
comme exemple
ARRIBO /
... /tagada
.../dragibus
... / ext
une analyse mensuel ==> des analyses bi-mensuel et une analyse en fin d'année
voila si solution vous avez , je me ferai un plaisir de les acceptés
merci
j'ai un petit problème avec des macro copier ici et la ... "y a des idées mais pas le savoir" lol !
p'tit 1 :
j'aimerais listé les onglets et en même temps récupéré le contenue de certaine cellules. je voulais faire une bidouille des deux code mais nada
code 1
VB:
Sub Snamelist() 'liste tout les onglets sans exception nickel pour moi
Dim i As Integer
Range("a5").Select ' ici départ du tableau
For i = 1 To Sheets.Count
ActiveCell.Value = Sheets(i).Name
ActiveCell.Offset(1).Select
Next i
End Sub
code 2
VB:
Sub ListeRecap() '<=== ne totalise pas tout les onglets que celle avec un nom numérique , mais liste les cellules qui m’intéresse :D
Dim F As Worksheet
Dim Dest As Range
Set Dest = ActiveSheet.Range("A5") ' ici départ du tableau
Dest.CurrentRegion.Offset(1).ClearContents
For Each F In Worksheets
If IsNumeric(F.Name) Then ' je pense que mon problème ce trouve la ...
Dest = F.Name
Dest.Offset(, 1) = F.Range("b6")
Dest.Offset(, 2) = F.Range("d6")
Dest.Offset(, 3) = F.Range("b9")
Dest.Offset(, 4) = F.Range("d9")
Set Dest = Dest.Offset(1)
End If
Next F
Set Dest = Nothing
End Sub
P'tit 2:
j'aimerai une lien de redirection par nom d'onglet ... pour pointé ce dernier plus rapidement :mrgreen:
________________________________________________________
l'idée serai :
_ rassembler tout les classeurs d'un dossier sur un seul classeur ( ça OK) , Ok mais je rencontre un problème en fin d'action du code
_ il me faut faire, une liste de tout les onglets (ça ok) et en extraire des informations (ça fonctionne a 50%).
_ j'aimerais que le nom de l'onglet pointe voir ce dernier (plus rapide a retrouver) .
si possible en un seul code pour les deux derniers
plus tard ... j'aimerais via un autre classeur regrouper toute les infos de la même manière , enfin sauf que la il y aurais des dossiers
comme exemple
ARRIBO /
... /tagada
.../dragibus
... / ext
une analyse mensuel ==> des analyses bi-mensuel et une analyse en fin d'année
voila si solution vous avez , je me ferai un plaisir de les acceptés
merci