Bonjour
Ci dessous un code avec recherche de la valeur des cellules fusionnées.
Dim dOUBLON As Range, Cel As Range, Data As String, Data2 As String, Pos As Long, Data1 As String
If TextBox15 <> "" Then
With Sheets(ActiveSheet.Name)
lig = ActiveCell.Row
For i = 3 To 11 'nombre de colonne
Set Cel = .Range(.Cells(lig, i), .Cells(lig, i))
If Cel.MergeCells Then ' si les cellules sont fusionnées
Data = Cel.MergeArea.Address(0, 0) ' zone fusionnée
Pos = InStr(1, Data, ":")
Data1 = Mid(Data, 1, Pos - 1)' cellule qui contient la valeur
Data2 = .Range(Data1)
Else
Data1 = Cel.Address
Data2 = Cel
End If
If Data2 = TextBox15 Then
MsgBox "Ce Nom est déjà en : " & Data1 & vbLf & "Sélectionner un autre nom ou supprimer celui déjà inscrit "
End If
Next i
End With
A tester
Jp14