Sujet Précédent Sujet Suivant

[Catégorie modifiée VB6 -> VBA] Aide Macro Excel 2007

petarr Messages postés 17 Date d'inscription vendredi 15 avril 2011 Statut Membre Dernière intervention 22 avril 2011 - 18 avril 2011 à 10:45
petarr Messages postés 17 Date d'inscription vendredi 15 avril 2011 Statut Membre Dernière intervention 22 avril 2011 - 22 avril 2011 à 10:16
Bonjour,

Je voudrais créer une macro qui change la couleur et le contenu des cellules sélectionnées. Je voudrais que le macro s'active après avoir appuyé sur un bouton.

- j'appuie sur le bouton
- je sélectionne une cellule qui devient rouge et le texte A1-1 apparaît dans la cellule
- si j'appuie à nouveau sur la même cellule, elle devient blanche (en cas que je me trompe avec la sélection)
- je sélectionne une deuxième cellule qui devient également rouge et cette fois le texte est A1-2
- je répète cela jusqu'à A1-4
- j'appuie sur le bouton et la macro n'est plus active

Le but:
J'ai un champ de 15 à 21 modules photovoltaïques... Ils vont être connectés en 4 à 7 chaînes de 3 à 4 modules. la dénomination sera A1-1 jusqu'à A1-4, A2-1 jusqu'à A2-4 etc. Le premier chiffre indique la chaîne, le deuxième, le numéro du module dans la chaîne. Je voudrais que la dénomination se fasse automatiquement en indiquant la chaîne avec le bouton (7 boutons). Donc j'appuie sur le bouton et je commence à indiquer l'emplacement des modules sur le surface.

Merci d'avance à tous qui peuvent m'aider

23 réponses

Précédent
  • 1
  • 2
Réponse 21 / 23
petarr Messages postés 17 Date d'inscription vendredi 15 avril 2011 Statut Membre Dernière intervention 22 avril 2011
21 avril 2011 à 10:23
ca, je le mets dans l'objet Feuil2:

Private Sub Worksheet_Activate()
Application.OnKey "~", "test1"
End Sub

Private Sub Worksheet_Deactivate()
Application.OnKey "~", ""
End Sub

ca, je le mets dans un modul:

Public Sub test1()
If Cells(1, 5) 1 Then selection.Cells 1 Else selection.Cells = 2
End Sub

Quand je sélectionne une autre feuil, la touche "entrée" ne marche pas... et elle n'exécute non plus la macro

En plus quand je supprime la macro, la touche "entée" ne marche pas

Et au final, l'OnKey avec "%" pour MAJ ne fonctionne pas

Pouras tu m'aider?
0
Réponse 22 / 23
petarr Messages postés 17 Date d'inscription vendredi 15 avril 2011 Statut Membre Dernière intervention 22 avril 2011
21 avril 2011 à 10:32
J'ai essayé faire cela avec un "Option button" relié avec la macro "test2":

Sub test2()
Application.OnKey "~", "test1"
End Sub
Sub test1()
If Cells(1, 5) 1 Then selection.Cells 1 Else selection.Cells = 2
End Sub

Quand le bouton es sélectionné, tous va bien. Par contre après avoir dé-sélecionné le bouton, la macro est toujours active

Pourquoi?
0
Réponse 23 / 23
petarr Messages postés 17 Date d'inscription vendredi 15 avril 2011 Statut Membre Dernière intervention 22 avril 2011
22 avril 2011 à 10:16
merci en tous cas
0

Discussions similaires

fonction modulo en VBA
krisprolss -
Benouille -

2 réponses
Comment fonctionne la fonction FormulaR1C1
cs_razmokets -
wape -

2 réponses
Tester si une macro est en cours d execution
helpvb -
us_30 -

8 réponses
Le Modulo en VB6
elkasmi_ahmed -
econs -

2 réponses
Modulo pour chiffres à virgule
cs_ebro -
Gally -

8 réponses
Rejoignez-nous