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

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+

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 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

Re,

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

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

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

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

Bonjour,

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

A+