[VB6 -> VBA]reporter le contenu de cellules d'une feuille à l'autre (N-1 sur N)

SophieT - 24 avril 2013 à 17:18
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
- 25 avril 2013 à 21:41
Bonjour

La question: comment faire une Macro qui me permettent de lier la feuille active (ça je sais dire: ActiveSheet) et la feuille précédente (qui serait ActiveSheet-1)

J'explique le pb:
j'essaye de construire un fichier "modele" qui contient 13 feuilles (12 mois + fermeture); il s'agit de l'activité de membres d'une association. une colonne contient les noms de ces membres, mais il peut y avoir des nouveaux à chaque mois ; ils sont alors enregistré ce mois ci/sur la feuille du mois en question.

j'ai par ailleurs une cellule avec formule pour compter combien il y a de membres, en fonction des cellules "non vides" de cette liste.

j'ai essayé de copier tout simplement la liste d'une feuille à l'autre (par ex: D3 ='feuille antérieure'!D3) mais du coup il n'y a plus de cellules non occupées (sic!)donc mon comptage ne fonctionne plus. J'ai alors pensé à copier la colonne d'une feuille à l'autre. si j'enregistre la macro le nom des feuilles impliquées apparait, et cela ne fonctionne donc pas. J'ai essayer de faire la macro avec toutes les feuilles, mais alors c'est la liste de la 1° feuille qui est copiée et efface les noms des gens qui se sont inscrits en mois M 2, M3 etc.

bref !! je ne m'en sors. Désolée si la question a été posée et résolue déjà. J'ai vu des échanges sur des pb proches mais sans bien comprendre les réponses.

merci d'avance de votre aide


au secours !

4 réponses

Utilisateur anonyme
24 avril 2013 à 18:52
Bonjour,
As-tu essayé avec la propriété 'Index' de 'ActiveSheet' ?


Cordialement


CF2i - Guadeloupe
Ingénierie Informatique
0
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
20
24 avril 2013 à 20:23
Une piste peut-être ...

Dim Nom As String
Dim Feuille As Worksheet

Nom = Activesheet.name

For each Feuille in Worksheets
   If Feuille.Name <> Nom then ... on n'est pas sur la feuille de départ
..........


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
0
Merci Acive et MPI , vous etes vraiment sympa d'avoir pris le temps de répondre.

mais je ne comprends pas les réponses!!!!
-propriétés de activessheet : je regarde et ne vois rien qui me dise quoique ce soit
- j'ai copié la séquence que m'a envoyée MPi mais je ne la comprends pas.

Désolée, je suis VRAIMENT novice !!

mais merci quand meme, je vais continuer à chercher....


au secours !
0
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
20
25 avril 2013 à 21:41
Ma réponse te montrait comment lire chaque feuille du classeur tout en vérifiant que leur nom soit différent de la feuille de départ.

Mais je pense que je n'ai pas vraiment compris le sens de ta question ou de ton problème...

Quand tu dis que tu enregistres une macro mais que le nom, dans la macro, est celui de la ou les feuilles concernées, quel est le problème ?


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
0