démarrer une macro quand la cellule à un "X" Fermé

Question

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

Configuration: Windows 7 / Internet Explorer 10.0

Zoul67 · Answer

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+

f894009 · Answer

Bonjour,

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 IfEnd Sub

A+

viret1290 · Answer

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

f894009 · Answer

Re,

code a mettre dans VBA de la feuille ou vous mettez les x!!!!!!!

viret1290 · Answer

laisser tomber, c'est ma femme qui c'est tromper

viret1290 · Answer

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

viret1290 · Answer

encore un truc il y a troix macro selon ou est placer la croix

f894009 · Answer

Bonjour,

Comme l'a ecrit Zoul67, mettez un fichier a dispo parce que c'est ingerible (ingerable, peu l'etre encore)

A+

Démarrer une macro quand la cellule à un "X"

8 réponses

Discussions similaires