Autres Private Sub Worksheet_SelectionChange(ByVal R As Range) sur cellules fusionnées

Usine à gaz

XLDnaute Barbatruc

• 11 Avril 2023

• #2

Re-Bjr
Je pense avoir trouvé :

VB:

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("e4,g4")) Is Nothing Then
    If R.Cells(1, 1) <> "" Then
    'Feuil.Protect , UserInterfaceOnly:=True
    [g1].Select
    R.Copy
    [a1].Select
    End If
End If
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Avril 2023

• #3

Bonjour Lionel,

En G4 R est composé de plusieurs cellules dont remplace If R <> "" Then par If R(1) <> "" Then

Edit : oui If R.Cells(1, 1) <> "" Then va bien aussi, c'est juste plus long.

A+

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 11 Avril 2023

• #4

Bjr Gérard
Merci d'être encore là pour me répondre.
Merci aussi pour cette seconde possibilité

 

Vote positif 0 Vote négatif