Sujet Précédent Sujet Suivant

Créer une macro sous excel

Résolu/Fermé
perrus53 Messages postés 1012 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 29 novembre 2014 - 29 avril 2008 à 17:27
kadeh Messages postés 334 Date d'inscription vendredi 21 décembre 2007 Statut Membre Dernière intervention 15 novembre 2012 - 30 avril 2008 à 02:46
Bonjour,
Je souhaite créer une macro sous excel pour incrementer une case de 1 lorsque je clique sur un bouton.

Pouvez vous m'aider?
A voir également:

8 réponses

Réponse 1 / 8
perrus53 Messages postés 1012 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 29 novembre 2014 222
29 avril 2008 à 19:47
Cela ne fonctionne pas, ca me met erreur d'execution 13, incompatibilité de type.
0
kadeh Messages postés 334 Date d'inscription vendredi 21 décembre 2007 Statut Membre Dernière intervention 15 novembre 2012 92
29 avril 2008 à 21:37
mais ça est bien marché chez moi
tu peux copier/coller ta macro ici ?
@+
0
Réponse 2 / 8
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
29 avril 2008 à 21:26
Bonsoir,

essaie :
Sub inc()
[A1].value = [A1].value + 1
end sub

Tu peux aussi utiliser le contrôle compteur (menu 'affichage / barres d'outils... / formulaire').
Dessiner le contrôle, clic-droit dessus et lier à une cellule dans 'format de contrôle...'

eric
0
Réponse 3 / 8
perrus53 Messages postés 1012 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 29 novembre 2014 222
29 avril 2008 à 21:56
Bizarre, ca ne fonctionne que dans un classeur vide!!!
0
Réponse 4 / 8
perrus53 Messages postés 1012 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 29 novembre 2014 222
29 avril 2008 à 22:00
Bon la deuxieme (celle d'eric) fonctionne
Mais je vous explique, quand j'appuie sur le bouton, j'aimerais que l'incrementation fonctionne si la case n'est pas vide uniquement, j'imagine qu'il doit y avoir une manip?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
29 avril 2008 à 22:04
???
Ca fonctionne dans la feuille où tu as mis le code, qu'il soit vide ou non...
N'oublie pas de mettre en résolu si tu pb est réglé stp
Merci
0
Réponse 6 / 8
perrus53 Messages postés 1012 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 29 novembre 2014 222
29 avril 2008 à 22:07
Justement, je veut que quand A1=0, le compte ne se fasse pas. Je sais je suis chiant!!
0
kadeh Messages postés 334 Date d'inscription vendredi 21 décembre 2007 Statut Membre Dernière intervention 15 novembre 2012 92
29 avril 2008 à 22:44
alors tu faix ça

If [A1].Value > 0 Then
[A1].Value = [A1].Value + 1
Else
Exit Sub
End If

End Sub

Bonne soirée
0
Réponse 7 / 8
perrus53 Messages postés 1012 Date d'inscription samedi 2 février 2008 Statut Membre Dernière intervention 29 novembre 2014 222
30 avril 2008 à 01:00
Sa marche nikel, mis a part que tu avait oublié Sub inc() au debut!!
C'est marrant ce language de programmation ressemble beaucoup a celui des calculatrices!!
Faut que je trouve ou l'apprendre, car il est pratique!!
Post resolu!!
0
kadeh Messages postés 334 Date d'inscription vendredi 21 décembre 2007 Statut Membre Dernière intervention 15 novembre 2012 92
30 avril 2008 à 02:46
désolé j'ai oublié (Sub inc())
mais enfin tu résolue ton problème
bonne chance , bonne soirée
0
Réponse 8 / 8
kadeh Messages postés 334 Date d'inscription vendredi 21 décembre 2007 Statut Membre Dernière intervention 15 novembre 2012 92
29 avril 2008 à 17:57
Bon soir
tu affecte cette macro à ton bouton (clique droit sur bouton, affecter une macro)
bien sur tu remplace A1 par la cellule que tu veux incrémenter


Sub incrémentation()

Dim x As String
Range("A1").Select
x = ActiveCell.Value
ActiveCell.Value = x + 1

End Sub


Bonne soirée
-1