[VBA Excel] Automatisation macro
Fermé
musgrave
Messages postés
3
Date d'inscription
jeudi 6 mars 2008
Statut
Membre
Dernière intervention
7 mars 2008
-
6 mars 2008 à 10:31
debutant - 4 juin 2008 à 20:21
debutant - 4 juin 2008 à 20:21
A voir également:
- [VBA Excel] Automatisation macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
4 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 716
6 mars 2008 à 22:36
6 mars 2008 à 22:36
bonjour
Ton explication est un peu succincte, mais je pense qu'il te faut mettre
Ton explication est un peu succincte, mais je pense qu'il te faut mettre
Private Sub Worksheet_SelectionChange(ByVal Target As Range) call ta_macro End Sub
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 716
7 mars 2008 à 08:42
7 mars 2008 à 08:42
bonjour
Tu n'as pas de documentation sur cette bibliothèque ?
Ce sont des fonctions bien spécifiques et il te faut demander la documentation à "Data Analysis"
Tu n'as pas de documentation sur cette bibliothèque ?
Ce sont des fonctions bien spécifiques et il te faut demander la documentation à "Data Analysis"
musgrave
Messages postés
3
Date d'inscription
jeudi 6 mars 2008
Statut
Membre
Dernière intervention
7 mars 2008
7 mars 2008 à 16:32
7 mars 2008 à 16:32
Bah non je ne l'ai pas... c'est une bibliothèque fournie par Microsoft avec Excel (un peu comme Microsoft Equation dans Word pour ceux qui connaissent : à l'installation de Word on peut spécifier si oui ou non on veut que ce composant soit installé)...
Bonjour,
J'aimerais créer une macro permettant d'activer ou desactiver des cellules suivant la valeur d'une autre cellule.
J'explique, dans la cellule A1 on doit ecrire "cw" ou "pulsé".
Après contrôle de ce qui es ecrit dans A1 on poursuit.
Si c'est "cw", les cellules A2 à A5 doivent etre grisés (ou inactive) et on ecrit dans A6
Si c'est "pulsé", les cellules A2 à A5 doivent etre actives et c'est la cellule A6 qui doit etre grisé et inactive.
Si quelqu'un pouvait m'aider ca serai tres sympa
Merci pour vos réponses
J'aimerais créer une macro permettant d'activer ou desactiver des cellules suivant la valeur d'une autre cellule.
J'explique, dans la cellule A1 on doit ecrire "cw" ou "pulsé".
Après contrôle de ce qui es ecrit dans A1 on poursuit.
Si c'est "cw", les cellules A2 à A5 doivent etre grisés (ou inactive) et on ecrit dans A6
Si c'est "pulsé", les cellules A2 à A5 doivent etre actives et c'est la cellule A6 qui doit etre grisé et inactive.
Si quelqu'un pouvait m'aider ca serai tres sympa
Merci pour vos réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 716
3 juin 2008 à 23:24
3 juin 2008 à 23:24
bonjour
Tu peux faire cela avec une mise en forme conditionnelle :
1
- Sélectionnes les cellules A2 à A5
- menu format / mise en forme conditionnelle
- condition 1 choisis "la formule est" et à droite : =$A$1<>"cw"
- ajouter
- condition 2 choisis "la formule est" et à droite : =$A$1="cw"
- format : tu choisis ton grisé et tu valides "OK" "OK"
2
- tu fais de même avec A6 et "pulsé"
Tu peux faire cela avec une mise en forme conditionnelle :
1
- Sélectionnes les cellules A2 à A5
- menu format / mise en forme conditionnelle
- condition 1 choisis "la formule est" et à droite : =$A$1<>"cw"
- ajouter
- condition 2 choisis "la formule est" et à droite : =$A$1="cw"
- format : tu choisis ton grisé et tu valides "OK" "OK"
2
- tu fais de même avec A6 et "pulsé"
merci pour ton aide mais j'aimerais empecher l'ecriture dans la cellule et pour cela je pense qu'il n'y a que les macros qui peuvent le faire.
J'ai ecrit ca mais ca sert a rien,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells("A1").Value = "bb" Then
Range("A2", "A6").Locked = True
Else
Range("A2", "A6").Locked = False
End If
End Sub
Merci pour ton aide;
J'ai ecrit ca mais ca sert a rien,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells("A1").Value = "bb" Then
Range("A2", "A6").Locked = True
Else
Range("A2", "A6").Locked = False
End If
End Sub
Merci pour ton aide;
7 mars 2008 à 00:31