EXCEL incrementer & copier sur plusieur pages

Question

Bonjour,

Je ne suis pas encore vraiment un expert en excel du tout, et mes competences en VBA sont nulles !! J'ai cherche la reponse dans les differents forums, et chou blanc pour l'instant...merci d'avance.


Mon pb est le suivant :

Je voudrais creer un classeur excel avec : Page 1 = Menu ; Page 2 = Formulaire ; Page 3 = Liste.

Sure la page Menu je voudrais avoir un bouton 1 qui permette: 
- qu'un numero en A1 mais de la Page 2 soit incrementé à chaque clic sur le bouton.
- Et qu'en Page 3, une ligne soit ajoutée à la suite de la dernière avec en colonne A le numéro de la Page 2.

Merci d'avance à qui pourra m'aider, je cherche depuis des heures la reponse sur les forums et je trouve pas...pourtant je ne pense pas etre loin !!

Ivo

gbinforme · Answer

bonjour

Avec cette macro associée au bouton, cela devrait faire ce que tu souhaites
Sub Bouton1_QuandClic()
    Sheets("Formulaire").Range("A1").Value _
        = Sheets("Formulaire").Range("A1").Value + 1
With Sheets("Liste")
    .Cells(.Cells.SpecialCells(xlCellTypeLastCell).Row + 1, 1).Value _
        = Sheets("Formulaire").Range("A1").Value
End With
End Sub

Elle additionne 1 en cellule A1 Formulaire
puis recherche la dernière ligne de la colonne A Liste
et mets la valeur de Formulaire dans la dernière ligne + 1 de la colonne A Liste

gbinforme · Answer

bonjour

C'est bien ainsi que cela devrait fonctionner et je t'ai rajouté le changement de feuille :
Sheets("Formulaire").Activate

Un petit exemple pour voir si c'est bien ce que tu veux :
http://www.cijoint.fr/cjlink.php?file=cj200812/cijiZGLCLp.xls

gbinforme · Answer

bonjour

j'ai protege mon classeur en utilisant la commande Tools/Protection, mais si la page est protegee, le bouton ne marche plus ! C'est bizarre... 

Pas si bizarre que cela car lorsque tu protèges, selon les options bien sûr, cela interdit de modifier ta feuille.
Or il me semble que tu demandes à ta macro d'incrémenter une cellule et de créer une ligne.

Pour que cela fonctionne, il faut donc enlever la protection puis la remettre dans la macro et et donc si tu veux protéger il faut modifier la macro : il n'y a pas beaucoup de magie, juste de la rigueur logique.

http://www.cijoint.fr/cjlink.php?file=cj200812/cijtPyZgl1.xls

Je n'ai pas renseigné le mot de passe, il faut le mettre, si tu en as un, entre les guillemets de cette instruction :
mdp = "" ' mot de passe

Si tu l'oublies, ne me demande pas de le retrouver ton classeur est perdu : à toi de voir...

EXCEL incrementer & copier sur plusieur pages

3 réponses

Discussions similaires

Newsletters