Sujet Précédent Sujet Suivant

Macro en fonction de la valeur d'une cellule

Résolu/Fermé

juju93 - 15 oct. 2008 à 10:26
bratak67 - 26 mai 2016 à 06:38

Bonjour,

Est ce que quelqu'un sait comment executer une macro en fonction de la valeur d'une cellule?

D'avance merci

A voir également:

Déclencher une macro en fonction de la valeur d'une cellule
Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Logiciels
Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
Aller à la ligne dans une cellule excel - Guide
Renseigner cellule en fonction de la valeur d'une autre cellule ✓ - Forum Excel
Fonction si et - Guide

7 réponses

Réponse 1 / 7

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
15 oct. 2008 à 21:16

Salut,

Normal tout texte doit être entre "" c'est à dire "Mecachrome". Ensuite le nom de ta macro ne doit pas être précédé '
C'est à dire que tu dois saisir testtttttt

En fait voila le code que tu dois saisir

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C10") = "Mecachrome" Then

testtttttt

End If
End Sub

Dès que dans ta cellule C10 tu aura Mecaghrome ta macro testttttt s'exécutera automatiquement

A+

Si ou dès que ton problème sera résolu n'oublis pas de le marquer ton statut résolu

Réponse 3 / 7

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
15 oct. 2008 à 14:41

Salut,

Non tu ne saisis pas une macro dans un module, Tu place l'ensemble du code comme je te l'ai écris dans le code feuille

Places ce code dans le code feuille en faisant clic droit sur l'onglet de ta feuille concernée/visualiser le code, une feuille blanche va s'ouvrir et fais un copier coller de ce code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A3") = 10 Then

'ICI PLACE TON CODE MACRO QUE TU SOUHAITES EXECUTER ou simplement le nom de ta macro que tu as créé dans un module par exemple Sub titi () tu saisis simplement titi et la macro titi s'exécutera automatiquement dès que dans ta cellule A3 il y aura 10

End If
End Sub

A+

KLAM
26 févr. 2015 à 06:06

Merçi
Ca marche

Réponse 5 / 7

vvl5
11 déc. 2013 à 09:41

Bonjour j'ai pour ambition de faire une macro qui nous met sur une autre feuille selon le résultat de la cellule.

Je pense avoir réussit tout ce qui à été dit mais je sais pas comment faire pour l'insérer dans une autre macro. Car le problème c'est que je veut exuter cette macro juste après l'enregistrement du résultat.

Je vous donne la macro avec les If:

"Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "G14" Then
Select Case Target.Value
Case Is = A

Ptouché

End If

If Target.Address = "G14" Then
Select Case Target.Value
Case Is = X
Ptouché

End If

If Target.Address = "G14" Then
Select Case Target.Value
Case Is = O
Ptouché

End If

If Target.Address = "G14" Then
Select Case Target.Value
Case Is = 0
Peau

End If

If Target.Address = "H10" Then
Select Case Target.Value
Case Is = Perdu
Pover

End If
End Sub
"

Que je veux mettre dans la macro suivante:

"Sub Navalrésult()
'
' Navalrésult Macro
' Macro enregistrée le 10/12/2013 par pedago
'

Rows("23:23").Select
Range("E23").Activate
Selection.Insert Shift:=xlDown
Range("G12").Select
Selection.Copy
Range("F23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G13").Select
Application.CutCopyMode = False
Selection.Copy
Range("G23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G14").Select
Application.CutCopyMode = False
Selection.Copy
Range("H23").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("G14").Select
Application.CutCopyMode = False
Selection.Copy
Range("H23").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H26").Select

End Sub"

Voilà le but c'est de faire un sorte d'affichage pour le résultat, car c'est une bataille navale et je voulais mettre les touchés, à l'eau et Game Over. C'est plus pour le fun (oui je sais il y a des trucs plus drôle ^^ ) et pour apprendre des trucs.

Voilà en espérant que ma question soit assez clair :D

Réponse 6 / 7

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
15 oct. 2008 à 11:05

Salut,

Place ce code dans le code feuille en faisant clic droit sur la feuille concernée/visualiser le code, une feuille blanche va s'ouvrir et fais un copier coller de ce code.

ensuite tu l'adaptes, dans l'exemple, le déclenchement se fera lorsque la cellule A3 sera = à 10 mais tu peux également dire >= à 10 ou l'inverse ou avec un mot ="titi".
Ensuite dans l'espace vide place le code que tu souhaites exécuter

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A3") = 10 Then

'ICI PLACE TON CODE MACRO QUE TU SOUHAITES EXECUTER

End If
End Sub

A+

bratak67
26 mai 2016 à 06:38

Bonjour, Je suis nul en excel et cette procédure m'a été très utile. Mecri

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Méthode find dans VBA - Recherche de données sous Excel

[vba] recherche d'une valeur EXACTE

VBA : Copier valeur de cellules dans une autre feuilles

Effacer le contenu d'une cellule

Masquer une ligne sous condition

Discussions similaires

Newsletters