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
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
A voir également:
- Créer une macro sous excel
- Créer une liste déroulante excel - Guide
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un groupe whatsapp - Guide
- Créer une adresse hotmail - Guide
8 réponses
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
29 avril 2008 à 19:47
Cela ne fonctionne pas, ca me met erreur d'execution 13, incompatibilité de type.
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 208
29 avril 2008 à 21:26
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
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
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
29 avril 2008 à 21:56
Bizarre, ca ne fonctionne que dans un classeur vide!!!
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
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?
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?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 208
29 avril 2008 à 22:04
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
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
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
29 avril 2008 à 22:07
Justement, je veut que quand A1=0, le compte ne se fasse pas. Je sais je suis chiant!!
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
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
If [A1].Value > 0 Then
[A1].Value = [A1].Value + 1
Else
Exit Sub
End If
End Sub
Bonne soirée
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
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!!
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!!
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
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
mais enfin tu résolue ton problème
bonne chance , bonne soirée
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
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
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
29 avril 2008 à 21:37
tu peux copier/coller ta macro ici ?
@+