recherche cell avec coordonnées (X,Y)

[starz]

Bonjour,
Pouvez m'aidez à réaliser cette macro :

Je cherche à obtenir le résultat suivant : faire clignoter une cellule en fonction des coordonnées saisie dans 2 celllule (G3 et G5) soit (x,y)

Si
dans une cellule G3 je tape une valeur (2) qui correspond à X
dans une celulle G5 je tape une valeur (3) qui correspond à Y

Alors
la cellule B3 clignote

un fichier joint pour être beaucoup plus explicite 😉

d'avance merci

 

[starz]

Re : recherche cell avec coordonnées (X,Y)

merci pour votre réponse

Le clignotement démarre à partir du moment ou X est renseigné et n'attend pas que la valeur Y le soit ?

J'oubliai un détail, si mes cellules sont déjà colorisés ! après clignotement je souhaiterai que ma cellule redevienne colorisé.

 

[guytou18]

Re : recherche cell avec coordonnées (X,Y)

Regardez ceci

Private Sub Worksheet_Activate()
       Range("G5").Value = ""
       Range("G3").Value = ""
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lig, col, compteur As Integer
    If Not Intersect(Target, Range("G3:G5")) Is Nothing Then
       lig = Range("G5").Value
       col = Range("G3").Value
        
       If lig = Int(lig) And lig > 0 And lig <= 4 And col = Int(col) And col > 0 And col <= 4 Then
          Cells(lig, col).Select
          For compteur = 0 To 3
                 With Selection.Interior
                     .ColorIndex = 4
                     .Pattern = xlSolid
                 End With
                 Application.Wait Now + TimeValue("00:00:01")
                 
                 Selection.Interior.ColorIndex = xlNone
                 Application.Wait Now + TimeValue("00:00:01")
          Next compteur
       Range("G5").Value = ""
       Range("G3").Value = ""
       End If
     End If
End Sub

 

[starz]

Re : recherche cell avec coordonnées (X,Y)

merci ça fonctionne 🙂

 

[starz]

Re : recherche cell avec coordonnées (X,Y)

Bonjour,

Jean marcel, pourriez vous m'aidez une dernière fois.

je vous ai dit que la cellule A1 avec comme coordonnées x=1 y=1
je me suis trompé

c'est : A1 x=0 y=0

J'ai essayé de modifier la macro mais ça plante !

POurriez vous me donner la solution ?

merci

 

[starz]

Re : recherche cell avec coordonnées (X,Y)

Merci beaucoup !:d