Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème for each cell avec cellule fusionnée

M

Matthieu

Guest
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
 
N

Nanard

Guest
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
 

_Thierry

XLDnaute Barbatruc
Repose en paix
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

XLDnaute Barbatruc
Modérateur
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
 
M

Matthieu

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

Discussions similaires

Réponses
1
Affichages
224
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…