Tom's Guide > Forum > Programmation > Petit Programme Excel

Petit Programme Excel

Forum Programmation : Petit Programme Excel

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
sid@IDN   15-02-2005 à 15:03:07

Bonjour,

J'ai créé sur Excel un bouton qui, en cliquant dessus, me demande d'entrer un nombre dans la case "A1" et je n'arrive pas à faire en sorte qu'en cliquant sur le même bouton je puisse rentrer un nouveau nombre, mais sur la ligne suivante en dessous, et encore et encore jusqu'à autant de ligne que je souhaite.
Au secours, quelqu'un pourrait-il m'aider rapidement ?

Pour l'instant, j'ai créé ça en visual basic :

Sub Entrer_de_nombre()
'Bouton pour rentrer des nombre ligne après ligne
Note = InputBox("Taper le Nombre" )
range ("A1" ) = note
End Sub

Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
sid@IDN   15-02-2005 à 15:15:39
- 0 +

quelqu'un aurait-il une idée pour m'aider siouplait les amis... :cry:

Répondre à sid@IDN
kyen   15-02-2005 à 17:03:12
- 0 +

j'ai répondu a l'une de tes questions qui me semble etre similaire !

Répondre à kyen
sid@IDN   16-02-2005 à 09:19:36
- 0 +

Je sais bien mais ça n'a pas l'air de bien fonctionner, ça bogue.

Je ne vois pas comment je pourrai écrire sur une autre ligne en cliquant sur le même bouton.
J'utilise la commande range et je voudrai faire un truc du style : range ("position actuelle +1" ) = note
mais comment faire un saut de ligne gardé en mémoire pour les prochains clics pour être sûr de ne pas réécrire au même endroit ?

Répondre à sid@IDN
thewolf   16-02-2005 à 14:11:10
- 0 +

Pour rentrer tes données dans la colonne A en décalant chaque fois vers le bas, il faut que tu sélectionnes la première cellule vide de la colonne ce que fait la commande ci-dessous :

Range("A1" ).End(xlDown).Offset(1, 0).Select

Répondre à thewolf
thewolf   16-02-2005 à 14:16:07
- 0 +

Ou sans la sélectionner :

note = InputBox("Taper le Nombre" )
Range("A1" ).End(xlDown).Offset(1, 0).Value = note

Répondre à thewolf
sid@IDN   18-02-2005 à 11:52:30
- 0 +

Merci beaucoup à tous, ça marche bien ; super :-D

Répondre à sid@IDN
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > Petit Programme Excel
Aller à :

Il y a 2282 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,199 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens