Faire un calcule simple sur une cellule genre B2=B2+1

Fermé
karim - 27 janv. 2014 à 15:29
 karim - 27 janv. 2014 à 23:13
Bonjour,

A vous tous merci d'avance,

mon problème est que j'ai une cellule a choix multiple (A,B,C) que je choisi dans une liste.
puis ajouter 1 (E1=E1+1) a la cellule E1,E2 ou E3 selon mon choix.
jèspere que je suis clair .




A voir également:

2 réponses

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
27 janv. 2014 à 15:45
Bonjour,

Avec la liste de choix en A1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$1" Then
Select Case Target
Case "A": Range("E1") = Range("E1") + 1
Case "B": Range("E2") = Range("E2") + 1
Case "C": Range("E3") = Range("E3") + 1
End Select
End If
End Sub

A+
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
27 janv. 2014 à 15:59
Bonjour Gyrus,

Je ne pensais pas que ça marcherait en sélectionnant plusieurs fois d'affilée la même lettre.

A+
0
Merci Gyrus,

Est ce que je DOIT FAIRE un bouton pour faire fonctionner ce code.. ?
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
27 janv. 2014 à 16:48
Non,
Mais tu dois placer le code fourni dans le code de l'onglet où tu veux qu'il s'exécute.
(Feuil1 par exemple).
0
Desole,
je l'est fait dans i'editeur vba ,je compile c bon,je fait le test rien ne change dans mes cellules E1,E2,E3.

Je travail sur un mac ,y'a t'il un truc qui m'échappe?

merci :)
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
27 janv. 2014 à 21:05
Enregistrer ton fichier au format xlsm (macro-enabled) ?
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
27 janv. 2014 à 15:47
Bonjour,

Si E1=E1+1, alors 0=1 et ça révolutionne les mathématiques.
ça m'intéresse !

A+
0
je voulais dire :
Range("E1") = Range("E1") + 1
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 418
27 janv. 2014 à 19:16
Bonsoir
pour coller le code:
clic droit sur le nom d'onglet / "visualiser le code"
et coller
ou dans l'éditeur VBA:
double clic sur le nom à droite de feuille et coller dans la fenêtre
crdlmnt
0