XL 2010 Doublon ligne

[GHISLAIN]

Bonsoir le forum,

voila j'utilise une macro qui en cliquant sur un bouton vérifie et empêche la saisie d'un nom si présent sur une ligne . Il fonctionne parfaitement .
La ou je cale et je ne trouve pas la solution pour l'adapter , c'est que je dois fusionner et défusionner des cellules.
Du coup lorsque j'ai une cellule fusionnée sur la ligne a contrôler , impossible de détecter si le nom est présent avant la saisie .

ci joint un fichier plus explicite , je l’espère ( Nb le tableau est issue d'un fichier excel et la structure ne pourra être modifiée)

Merci a tous pour vos suggestions et aide apportée

Bien Amicalement

>Ghislain

 

[jp14]

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

 

[GHISLAIN]

Bonjour jp14

je te remercie pour ce superbe travail qui va me permettre d’alléger mon code , dans mon projet .

Bien amicalement

ghislain