J0K068
Messages postés32Date d'inscriptionmercredi 23 février 2011StatutMembreDernière intervention 8 mai 2018
-
23 févr. 2011 à 20:38
J0K068
Messages postés32Date d'inscriptionmercredi 23 février 2011StatutMembreDernière intervention 8 mai 2018
-
23 févr. 2011 à 23:37
Hello à tous,
Habituellement j'arrive à commencer un code malgré que je ne sache pas grand chose, l'enregistreur de macros et d'autres fichiers personnels m'aident dans le commencement, mais là je suis sec !
Je m'explique :
J'ai une feuille : feuil1
Colonne 1 : Nom Prénom (longueur indéfinie)
Plusieurs feuilles Nom_Prénom.
Dans ces feuilles, un tableau avec des statistiques pris sur un ensemble de colonnes.
Je cherche à faire une macro qui va chercher dans la feuil1 tous les noms prénoms,puis activer chaque feuille personnelle pour exécuter la macro de statistique.
La macro statistique, je l'ai déjà utilisée dans une autre feuille, donc je n'ai qu'à la remettre à jour.
J0K068
Messages postés32Date d'inscriptionmercredi 23 février 2011StatutMembreDernière intervention 8 mai 2018 23 févr. 2011 à 21:48
Humm ...
J'insiste sur le fait que j'pige pas grand chose .. comme maintenant ...
Je vais réexpliquer mon soucis :
- un tableau avec en première colonne : "Nom Prénom"
- chacun de ces gens ont une feuille personnelle appelée : "nom_prénom"
Comment faire :
- pour associer tous les "Nom Prénom" à leurs feuilles respectives pour y lancer une seconde macro ?
-> NICOLAS José : nicolas_josé
-> SCHMITT Martin : schmitt_martin
etc etc ...
Je vois un :
[code=vbs]Sub StatsIndiv()
'Sheets("Vac_SP").Activate
Sheets("Vac_SP").Range("A1000").End(xlUp).row
nouvnom = Replace(nom, " ", "_")
Sheets("Vac_SP").Range("D25") = nouvnom
End Sub/code]
J0K068
Messages postés32Date d'inscriptionmercredi 23 février 2011StatutMembreDernière intervention 8 mai 2018 23 févr. 2011 à 22:53
Etant donné que je ne comprends pas, j'ai commencé par faire une macro qui va sélectionner dans ma feuille de A4 à indéfini vers le bas (enfin jusqu'à ce qui'il trouve quelque chose.
Sub StatsIndiv()
Sheets("Vac_SP").Activate
For c = 4 To Sheets("Vac_SP").Range("A10000").End(xlUp).Row
ActiveSheet.Range("A4:A" & c).Select
Next c
End Sub
Maintenant comment associer cette sélection aux feuilles correspondantes ?
Comment mettre en pièce jointe mon fichier ?!
merci