Bonjour tout le monde!
Je me retrouve dans un problème.
Je réalise un programme qui analyse une liste. Pour ne pas me perdre j'utilise les zones nom, comme ça n'importe qui peut présenter sa liste comme il le souhaite.
Et donc j'ai 4 zones nom obligatoires pour les vérifier je procède ainsi :
Mon teste If v(0) = False etc est un peu plus long car j'affiche des MsgBox pour informer quelle révision manque.
Ensuite donc si rien ne manque j'appelle une autre fonction, et celle ci commence le traitement.
Sauf que pour traiter le tableau il faut que je trouve les colonnes de ces zones noms.
Et j'ai essayé d'autre chose, mais rien ne fonctionne...
Voilà, si quelqu'un pourrait m'expliquer comment procéder?
J'ai une autre question, j'ai des zones nom non obligatoire, facultatif, je pensais faire un teste du genre :
Mais pareil ça ne fonctionne pas. Pareil, si quelqu'un pourrait m'aiguiller?
Je vous remercie!
Je me retrouve dans un problème.
Je réalise un programme qui analyse une liste. Pour ne pas me perdre j'utilise les zones nom, comme ça n'importe qui peut présenter sa liste comme il le souhaite.
Et donc j'ai 4 zones nom obligatoires pour les vérifier je procède ainsi :
Code:
Function VerifZonesNom() As Boolean
Dim ZoneNom As Name
Dim v(3) As Boolean
For Each ZoneNom In ActiveWorkbook.Names
If ZoneNom.Name = "N1" Then
v(0) = True
End If
If ZoneNom.Name = "N2" Then
v(1) = True
End If
If ZoneNom.Name = "N3" Then
v(2) = True
End If
If ZoneNom.Name = "N4" Then
v(3) = True
End If
Next ZoneNom
If v(0) = False Or v(1) = False Or v(2) = False Or v(3) = False Then
VerifZonesNom = False
Exit Function
End If
End Function
Mon teste If v(0) = False etc est un peu plus long car j'affiche des MsgBox pour informer quelle révision manque.
Ensuite donc si rien ne manque j'appelle une autre fonction, et celle ci commence le traitement.
Sauf que pour traiter le tableau il faut que je trouve les colonnes de ces zones noms.
Code:
col = ActiveWorkbook.Names("N1").RefersToRange.Columns
Voilà, si quelqu'un pourrait m'expliquer comment procéder?
J'ai une autre question, j'ai des zones nom non obligatoire, facultatif, je pensais faire un teste du genre :
Code:
If ActiveWorkbook.Names("N5").ReferToRange.Columns <> 0 Then
Mais pareil ça ne fonctionne pas. Pareil, si quelqu'un pourrait m'aiguiller?
Je vous remercie!
Dernière édition: