Macro : Selon valeur cellule
Résolu/Fermé
Keusti_001
Messages postés
29
Date d'inscription
mercredi 15 mai 2019
Statut
Membre
Dernière intervention
7 février 2023
-
2 oct. 2019 à 16:48
Keusti_001 Messages postés 29 Date d'inscription mercredi 15 mai 2019 Statut Membre Dernière intervention 7 février 2023 - 16 oct. 2019 à 14:10
Keusti_001 Messages postés 29 Date d'inscription mercredi 15 mai 2019 Statut Membre Dernière intervention 7 février 2023 - 16 oct. 2019 à 14:10
A voir également:
- Macro : Selon valeur cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
2 réponses
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
3 oct. 2019 à 08:15
3 oct. 2019 à 08:15
Bonjour,
Il vous faut activer la macro à chaque changement de la valeur que vous recherchez avec la formule Recherchev
Exemple: supposons que la valeur à rechercher est en B3 de la feuille "Analyses"
Votre formule: Recherchev(B3; Plage de recherche; colonne; 0)
Macro à copier dans le module de la feuille "Analyses"
Cdlt
Il vous faut activer la macro à chaque changement de la valeur que vous recherchez avec la formule Recherchev
Exemple: supposons que la valeur à rechercher est en B3 de la feuille "Analyses"
Votre formule: Recherchev(B3; Plage de recherche; colonne; 0)
Macro à copier dans le module de la feuille "Analyses"
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$23" Then If [C23] = 1 Then ZSOLO_BoutonSOLO ElseIf [C23] > 1 Then Z_BOUTON End If End If End Sub
Cdlt
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
3 oct. 2019 à 11:00
3 oct. 2019 à 11:00
Si vous voulez lancer la macro via un bouton:
Cdlt
Sub Test() If [C23] = 1 Then ZSOLO_BoutonSOLO ElseIf [C23] > 1 Then Z_BOUTON End If End Sub
Cdlt
Keusti_001
Messages postés
29
Date d'inscription
mercredi 15 mai 2019
Statut
Membre
Dernière intervention
7 février 2023
Modifié le 16 oct. 2019 à 12:51
Modifié le 16 oct. 2019 à 12:51
Comment je peux faire si la case C23 est dans un autre onglet?
Quelque chose comme ceci ?
Quelque chose comme ceci ?
Sub AA_MACRO_GLOBALE()
If Worksheets("Procédures").Range("C23") = 1 Then
AC_Bouton_SOLO
ElseIf Worksheets ("Procédures").Range("C23") > 1 Then
AB_Bouton
End If
End Sub
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 311
16 oct. 2019 à 13:46
16 oct. 2019 à 13:46
Bonjour,
c'est bon
c'est bon
Keusti_001
Messages postés
29
Date d'inscription
mercredi 15 mai 2019
Statut
Membre
Dernière intervention
7 février 2023
16 oct. 2019 à 14:10
16 oct. 2019 à 14:10
Oui, j'ai fini par y arriver effectivement :D. Merci à vous deux ! :)
Modifié le 3 oct. 2019 à 10:37
Merci pour ton aide !
Est-ce possible de donner un nom a cette macro, et de pouvoir l'appliquer via un bouton? :)
Quelques chose comme ceci ?
Mais il me mets la 2e ligne en rouge - Erreur de compilation / syntaxe...
PS : Petite faute de frappe dans la 2e ligne de ton code ? Il s'agit bien de "$C$23" et non "$B$23" ;-).
D'ailleurs, est-ce que les $ sont indispensables dans les macro ? Je comprends l'utilité dans les formules, mais moins dans une macro.