Démarrer une macro quand la cellule à un "X"
viret1290
Messages postés
141
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'aimerai savoir si c'est possible de démarrer une macro que quand dans une cellule le résultat est "X" celle ci lance ma macro
Merci
j'aimerai savoir si c'est possible de démarrer une macro que quand dans une cellule le résultat est "X" celle ci lance ma macro
Merci
A voir également:
- Démarrer une macro quand la cellule à un "X"
- Site x - Guide
- Sites X : Pornhub, YouPorn et Redtube sont de nouveau accessibles en France - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Aller à la ligne dans une cellule excel - Guide
- Pc long a demarrer - Guide
8 réponses
Bonjour,
Oui, c'est possible. C'est quand on met un X dans n'importe quelle cellule du classeur, dans n'importe quelle cellule d'un certain onglet, dans une certaine cellule d'un certain onglet ?
A+
Oui, c'est possible. C'est quand on met un X dans n'importe quelle cellule du classeur, dans n'importe quelle cellule d'un certain onglet, dans une certaine cellule d'un certain onglet ?
A+
Bonjour,
code a mettre dans VBA de la feuille
A+
code a mettre dans VBA de la feuille
Private Sub Worksheet_Change(ByVal Target As Range)
'si plus d'une cellule selectionnee
If Target.Count > 1 Then Exit Sub
'test si dans plage: plage a adapter
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
If UCase(Target.Value) = "X" Then 'test si x ou X
Call MaMacro
End If
End If
End Sub
A+
voici ma macro ou dois je mettre votre solutaion .
Sub deuxmm_1pce()
'
' deuxmm_1pce Macro
'
'
Range("F47").Select
ActiveCell.FormulaR1C1 = "X"
Range("L47").Select
Selection.ClearContents
Range("P47").Select
Selection.ClearContents
Sheets("FORMULES").Select
Range("B2").Select
Sheets("RECTO").Select
Range("V42:W42").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-2]C[2],'FEUILLE ROSE'!R[-39]C[-20]:R[-6]C[-4],6)*RC[-3]"
Range("V43:W43").Select
Sheets("FORMULES").Select
Range("B4").Select
Sheets("RECTO").Select
Range("V44:W44").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-4]C[2],'FEUILLE ROSE'!R[-41]C[-20]:R[-8]C[-4],6)*RC[-3]"
Range("V45:W45").Select
Sheets("FORMULES").Select
Range("B10").Select
Sheets("RECTO").Select
Range("V46:W46").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-6]C[2],'FEUILLE ROSE'!R[-43]C[-20]:R[-10]C[-4],6)*RC[-3]"
Range("V47:W47").Select
End Sub
Sub deuxmm_1pce()
'
' deuxmm_1pce Macro
'
'
Range("F47").Select
ActiveCell.FormulaR1C1 = "X"
Range("L47").Select
Selection.ClearContents
Range("P47").Select
Selection.ClearContents
Sheets("FORMULES").Select
Range("B2").Select
Sheets("RECTO").Select
Range("V42:W42").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-2]C[2],'FEUILLE ROSE'!R[-39]C[-20]:R[-6]C[-4],6)*RC[-3]"
Range("V43:W43").Select
Sheets("FORMULES").Select
Range("B4").Select
Sheets("RECTO").Select
Range("V44:W44").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-4]C[2],'FEUILLE ROSE'!R[-41]C[-20]:R[-8]C[-4],6)*RC[-3]"
Range("V45:W45").Select
Sheets("FORMULES").Select
Range("B10").Select
Sheets("RECTO").Select
Range("V46:W46").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-6]C[2],'FEUILLE ROSE'!R[-43]C[-20]:R[-10]C[-4],6)*RC[-3]"
Range("V47:W47").Select
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
je suis désolé mais je début.
il me dit le message d'eurreur suivant:
ERREUR DE COMPILATION
SUB OU FONCTION NON DEFINIE
ET la première ligne est en jaune
Private Sub Worksheet_Change(ByVal Target As Range)
'si plus d'une cellule selectionnee
If Target.Count > 1 Then Exit Sub
'test si dans plage: plage a adapter
If Not Application.Intersect(Target, Range("F47:P47")) Is Nothing Then
If UCase(Target.Value) = "X" Then 'test si x ou X
Call nombre_de_pieces
End If
End If
End Sub
' x quand clic
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F13,J13,N13,Q13,S13,U13,W13,Q10,S10,W10,N34,Q34,G49,I49,L49,N49,P49,F55,L55,P55,F67,L67")) Is Nothing Then: Target = IIf(Target = "X", "", "X")
End Sub
je suis désolé mais je début.
il me dit le message d'eurreur suivant:
ERREUR DE COMPILATION
SUB OU FONCTION NON DEFINIE
ET la première ligne est en jaune
Private Sub Worksheet_Change(ByVal Target As Range)
'si plus d'une cellule selectionnee
If Target.Count > 1 Then Exit Sub
'test si dans plage: plage a adapter
If Not Application.Intersect(Target, Range("F47:P47")) Is Nothing Then
If UCase(Target.Value) = "X" Then 'test si x ou X
Call nombre_de_pieces
End If
End If
End Sub
' x quand clic
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F13,J13,N13,Q13,S13,U13,W13,Q10,S10,W10,N34,Q34,G49,I49,L49,N49,P49,F55,L55,P55,F67,L67")) Is Nothing Then: Target = IIf(Target = "X", "", "X")
End Sub
encore un truc il y a troix macro selon ou est placer la croix
Bonjour,
Si tu mettais ton fichier avec la description complète de ton problème sur https://www.cjoint.com/ , ça aiderait.
A+
Si tu mettais ton fichier avec la description complète de ton problème sur https://www.cjoint.com/ , ça aiderait.
A+