noviceAG
XLDnaute Impliqué
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
Sub ImprimerMatListeValidation()
Dim c As Range
Sheets("Graph").Activate
If ActiveCell(4, 4) = "" Then
Exit Sub
Else
For Each c In Range("Eleves")
Range("Noms").Value = c.Value
Sheets("Graph").PrintOut
Next c
End If
End Sub
En vous remerciant de bien vouloir m'indiquer mon erreur.
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
Sub ImprimerMatListeValidation()
Dim c As Range
Sheets("Graph").Activate
If ActiveCell(4, 4) = "" Then
Exit Sub
Else
For Each c In Range("Eleves")
Range("Noms").Value = c.Value
Sheets("Graph").PrintOut
Next c
End If
End Sub
En vous remerciant de bien vouloir m'indiquer mon erreur.