Modification Code macro avec fusion de cellule

[gourdin]

Bonjour,

Ce petit code macro à titre d'exemple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "OK" Then
Range("C2").select
End If
End Sub

Comment faire pour que celà fonctionne si je fusionne 2 cellules "OK"

Voir exemple

Merci

 

[phlaurent55]

Re : Modification Code macro avec fusion de cellule

Bonjour Gourdin,

remplace ton code par ceci:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 4 Then
Range("C2").Select
End If
End Sub

qui fonctionnera suite à un double-clic sur ta cellule

mais comme je sais d'avance que tu vas en demander plus ( comme dans ton dernier post)😀😀😀......................
il va falloir que tu sois précis dans ta question une fois de plus

à+
Philippe

 

[Fo_rum]

Re : Modification Code macro avec fusion de cellule

Salut,

à phlaurent55 : merci pour ton intervention dans le message cité.
Une autre possibilté :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Target.UnMerge
   If ActiveCell = "OK" Then [C2].Select
   Target.Merge
End Sub

mais, attention, "If Target.Count >1 ... " ne convient plus ici !
Pour t'en rendre compte, intercale en deuxième ligne : MsgBox Target.Address.

 

[gourdin]

Re : Modification Code macro avec fusion de cellule

Bonjour et merci de vos réponses,

Philippe commence à me connaître ...🙂

En effet vos solutions conviennent parfaitement à mon petit exemple mais, mais ....🙂

j'ai du mal à les utiliser sur un autre exemple un peu plus complet (avec de nombreuses cellules à double cliquer).

Cf fichier joint.

Merci

 

[mromain]

Re : Modification Code macro avec fusion de cellule

bonjour le fil, gourdin

je te propose ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target[B][COLOR=Red].Cells(1, 1)[/COLOR][/B].Value = "OK" Then
Range("C2").Value = Target.Offset(0, -1)
Range("D2").Value = Target.Offset(0, -1).Offset(1, 0)
End If
[B][COLOR=Red]Cancel = True[/COLOR][/B]
End Sub

a+

 

[gourdin]

Re : Modification Code macro avec fusion de cellule

bonjour le fil, gourdin

je te propose ce code :

private sub worksheet_beforedoubleclick(byval target as range, cancel as boolean)
if target[b][color=red].cells(1, 1)[/color][/b].value = "ok" then
range("c2").value = target.offset(0, -1)
range("d2").value = target.offset(0, -1).offset(1, 0)
end if
[b][color=red]cancel = true[/color][/b]
end sub

a+

merci beaucoup

 

[phlaurent55]

Re : Modification Code macro avec fusion de cellule

Re bonjour à tous,

la solution la plus simple et la plus fiable consiste à tester la couleur de la cellule sur laquelle on "double-clique"
If............InteriorColor <>... Then Exit Sub
ça marchera à tous les coups, que la cellule soit fusionnée ou non

j'ai du mal à les utiliser sur un autre exemple un peu plus complet (avec de nombreuses cellules à double cliquer).

@ Gourdin, si tes cellules reviennent à intervalle régulier comme dans la question de ton avant-dernier post, Faudrait nous le dire tout de suite 😀😀😀

bon après-midi à tous

 

[gourdin]

Re : Modification Code macro avec fusion de cellule

Re bonjour à tous,

la solution la plus simple et la plus fiable consiste à tester la couleur de la cellule sur laquelle on "double-clique"
If............InteriorColor <>... Then Exit Sub
ça marchera à tous les coups, que la cellule soit fusionnée ou non



@ Gourdin, si tes cellules reviennent à intervalle régulier comme dans la question de ton avant-dernier post, Faudrait nous le dire tout de suite 😀😀😀

bon après-midi à tous

Merci pour tes conseils et tes remarques au sujet de mes post😀😀😀😀😀