probleme code

[shuriken001]

Bonjour tout le monde comment ça va?

Je voudrais savoir ou est mon erreur s'il vous plaid :


Private Sub CommandButton1_Click()
With Sheets("Menu").Range("E10:K11")
.Copy Sheets("Récapitulatif").Range("A65536").End(xlUp).Offset(1, 0)
.ClearContents
End With


If Range("G10") > 0 And Range("H10") > 0 Then
Sheets("Carte").Range("$C$3:$BX$40")(Range("G10"), Range("H10")) = "X"
End If
End Sub





Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("$C$3:$BX$40"), Target) Is Nothing Then
If UCase(Target) = "X" Then
MsgBox "X" & Cells(Target.Row, 1) & ":Y" & Cells(1, Target.Column)
End If
End If
End Sub

 

[pandaexcel]

Re : probleme code

Bonjour , un petit fichier exemple à nous donner
que veux tu faire exactement ?

 

[shuriken001]

Re : probleme code

oui tien je te mais mon projet ici:
Ce lien n'existe plus
en faite dans la feuil "menu" il prend les valeur en G10 et H10 et les envoie dans la feuil"Carte" mais il les mai comme des coordonnées et il mais une croix

Merci pour ta réponse, et à très bientôt.