Discussion :

[DenisHen]

Bonjour à tous,

Et un petit coucou en même temps aux réguliers de ce forum qui nous donnent toujours des supers solutions à nos problèmes...

Et en parlant de problème, j'en ai un petit. En effet, j'ouvre un classeur Excel depuis un autre. J'ai donc, parmi toutes mes lignes de code, ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.ActiveSheet.Range("NbGeoref").Value = ThisWorkbook.ActiveSheet.Range("SaisieGeoref").Value

Avec ThisWorkbook le classeur contenant la macro et ActiveWorkbook le classeur contenant le nom de la cellule que je cherche ("NbGeoref")...

Je cherche à mettre avant cette ligne de code une "recherche" pour savoir si le nom de la cellule du classeur cible existe avant de créer l'erreur 1004 quand Excel ne la trouve pas...

Et je ne sais absolument pas comment faire...

Si quelqu'un a une petite idée... Je suis preneur...

Denis...

[mercatog]

Une fonction qui donne si un nom Tmp exist dans un classeur Wbk

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function NameExist(ByVal Wbk As Workbook, ByVal Tmp As String) As Boolean
Dim Nm As Name
 
For Each Nm In Wbk.Names
    If Nm.Name = Tmp Then
        NameExist = True
        Exit For
    End If
Next Nm
End Function

Ou d'une manière avec gestion d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function NameExist(ByVal Wbk As Workbook, ByVal Tmp As String) As Boolean
 
On Error Resume Next
NameExist = Wbk.Names(Tmp).Index
End Function

[Kimy_Ire]

Bonjour DenHen,

La toute première chose que j'ai envie de te dire, c'est que les mentions ActiveWorkbook, ActiveSheet ou encore ThisWorkbook sont à proscrire.
Utilise de préférence Workbooks("mon_classeur_1") et Worksheets("ma_feuilX") quitte à récupérer leur nom au début de la macro par l'une des mentions que tu utilises.

Bref, ceci est une aparté.

Voici une petite fonction pour toi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function CellExiste(NomFeuil As Worksheet, NomCell As String) As Boolean
Dim f As Range
 
On Error Resume Next
Set f = NomFeuil.Range(NomCell)
 
If Err = 0 Then CellExiste = True
Set f = Nothing
End Function

Voici une procédure afin de la tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Sub test()
Dim Wksh As Worksheet
Dim oStr As String
 
Set Wksh = Worksheets("Feuil1")
 
oStr = "ma_cellul"
 
With Wksh
    If CellExiste(Wksh, oStr) Then
        MsgBox "La cellule """ & oStr & """ existe."
    Else
        MsgBox "La cellule """ & oStr & """ n'existe pas."
    End If
End With
 
End Sub

Voila, n'hésite pas à revenir vers moi !

Cordialement,
Kimy

EDIT : mercatog, toujours plus rapide !

[DenisHen]

Bonjour à tous,

Mercatog, merci pour ta Fonction, et quelle rapidité ! !

Kimy_Ire, merci aussi pour tes conseils, je vais réécrire mon code en fonction de tes remarques... Et j'ai du boulo ! !

Encore merci à vous...

Denis...