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

karim -  
 karim -
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   Statut Membre Dernière intervention   526
 
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   Statut Membre Dernière intervention   149
 
Bonjour Gyrus,

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

A+
0
karim
 
Merci Gyrus,

Est ce que je DOIT FAIRE un bouton pour faire fonctionner ce code.. ?
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
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
karim
 
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   Statut Membre Dernière intervention   149
 
Enregistrer ton fichier au format xlsm (macro-enabled) ?
0
Zoul67 Messages postés 1959 Date d'inscription   Statut Membre Dernière intervention   149
 
Bonjour,

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

A+
0
karim
 
je voulais dire :
Range("E1") = Range("E1") + 1
0
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
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