Probleme If ActiveCell(4, 4) = "" Then Exit Sub

job75

XLDnaute Barbatruc

• 10 Mars 2010

• #2

Re : Probleme If ActiveCell(4, 4) = "" Then Exit Sub

Bonjour noviceAG,

ActiveCell(4, 4) n'existe pas... et renvoie toujours "".

Ecrire simplement ActiveCell.

A+

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 10 Mars 2010

• #3

Re : Probleme If ActiveCell(4, 4) = "" Then Exit Sub

Bonjour job,
J'ai corrigé comme suit :
If ActiveCell.Value = "" Then
et c'est pareil, je dois encore faire une erreur
tout comme
If ActiveCell = "" Then

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Mars 2010

• #4

Re : Probleme If ActiveCell(4, 4) = "" Then Exit Sub

Bonjour NoviceAG, Job

regarde le code ci-dessous si il peut t'aider, à adapter à ton projet :

Code:

If WorksheetFunction.CountA(Range("D4").MergeArea) = 0 Then MsgBox "vide"

bon après midi
@+

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 10 Mars 2010

• #5

Re : Probleme If ActiveCell(4, 4) = "" Then Exit Sub

Bonsoir Pierrot,
Je te remercie c'est OK
Je suis dans la joie pour la soirée et vous souhaite la même joie à vous tous.
Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Mars 2010

• #6

Re : Probleme If ActiveCell(4, 4) = "" Then Exit Sub

Salut Pierrot,

OK et bravo, fallait intuiter qu'il s'agissait de la cellule D4 et qu'elle était fusionnée...

Mais si elle n'est pas fusionnée, bien sûr écrire :

If Range("D4") = "" Then

ou

If Cells(4, 4) = "" Then

A+

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 10 Mars 2010

• #7

Re : Probleme If ActiveCell(4, 4) = "" Then Exit Sub

noviceAG à dit:

Bonjour chers ami(e)s du Forum,
J'ai un problème que je croyais avoir résolu, mais il n'en est rien.
J'ai une liste de validation dont je souhaite imprimer la totalité des fiches si la zone (cellules fusionnées) nommée "Noms" en ("D4:I4") de ma feuille Graph (liste de validation) n'est pas vide.
Mais vide de nom ou pas le reste du code après Else ne fonctionne pas.

Cliquez pour agrandir...

job, tu dois être fatigué je pense.
Merci de ton implication à résoudre mon problème désormais réglé.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Mars 2010

• #8

Re : Probleme If ActiveCell(4, 4) = "" Then Exit Sub

Re noviceAG,

Ben oui je vieillis (et zut)...

Je m'étais polarisé sur le code en lisant mal le texte, désolé 😱

A+

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 10 Mars 2010

• #9

Re : Probleme If ActiveCell(4, 4) = "" Then Exit Sub

re,
Aucun problème job, ca arrive à tout le monde ce genre d'erreur et à moi le premier
Bonne soirée

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 10 Mars 2010

• #10

Re : Probleme If ActiveCell(4, 4) = "" Then Exit Sub

Re,

dans le code donné, cellule fusionnée ou pas fusionnée, vide ou non vide ne devrait pas donné de message d'erreur, enfin me semble t'il....

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 10 Mars 2010

• #11

Re : Probleme If ActiveCell(4, 4) = "" Then Exit Sub

re,
tout a fait exact pierrot merci encore et bonne soirée

 

Vote positif 0 Vote négatif