Problème for each cell avec cellule fusionnée

Matthieu · 25 Juillet 2005

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 · 25 Juillet 2005

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 · 25 Juillet 2005

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 · 25 Juillet 2005

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 · 25 Juillet 2005

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 · 25 Juillet 2005

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...

Problème for each cell avec cellule fusionnée

Matthieu

Guest

Nanard

Guest

Matthieu

Guest

_Thierry

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Matthieu

Guest

Discussions similaires