Problème for each cell avec cellule fusionnée

[Matthieu]

Bonjour,

J'ai un range (ligne de plusieurs cellules) nommé coordcli. Il contient des infos comme l'adresse, le nom, le num de tel d'un client.

L'utilisteur doit avoir saisi toutes les infos de ce client pour imprimer ou pour enregistrer le document. Dans ma fonction beforeprint, j'ai un problème avec des cellules fusionnées. Apparemment il teste les 2 cellules de ma cellule fusionnées.

Voici mon code

For Each cell In Range('COORDCLI')
If cell.Value = '' Then
Cancel = True
msg = msg + '- les coordonnées de l'interlocuteur technique du client' & Chr(13)
Exit For
'Else
'Cancel = False
End If
MsgBox cell.Value
Next

Merci de votre aide

 

[Nanard]

Bonjour mathieu,

Tout d'abord, tes cellules fusionnées doivent elles être testées ?
Si ce n'est pas le cas modifie ta plage de cellules appelée coordcli, en évitant les fusions !!

@+

Nanard

 

[Matthieu]

Oui, les cellules fusionnées doivent être testées... Elles sont mêmes au milieu de mon Range nommé. Du coup je ne peux pas éviter les fusions.

 

[_Thierry]

Bonjour Matthieu, Nanard, le Forum

Essaie de faire soit une Array (comme dans ma démo Lien supprimé

Soit une 'Union(Range)' comme ceci :

For Each Cell In Application.Union(Range('A1'), Range('A5:B6'), Range('A10'))

Bon Aprèm
@+Thierry

 

[PascalXLD]

Bonjour

essaies comme ceci

Dim cell As Range, cancel As Boolean, msg As String

For Each cell In Range('COORDCLI')
If cell.MergeCells = True Then
If cell.MergeArea.Value(1, 1) = '' Then
cancel = True
msg = msg + '- les coordonnées de l'interlocuteur technique du client' & Chr(13)
End If
ElseIf cell.Value = '' Then
cancel = True
msg = msg + '- les coordonnées de l'interlocuteur technique du client' & Chr(13)
Exit For
'Else
'Cancel = False
End If
MsgBox cell.Value
Next

Bon courage

 

[Matthieu]

Parfait,

Je ne connaissais pas cette fonction permettant de tester une cellule fusionnée. Juste une petite correction pour ceux qui veulent utiliser ce code

If cell.MergeArea.Cells(1, 1) = '' Then

Encore merci...