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

tester l'existence d'une "référence"

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion celegorm
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

celegorm

Guest
bonsoir à tous,
ma première journée avec VBA aura été mouvementée.
là j'essaye de tester l'existence d'un groupe de valeurs.
le code Application.Goto Reference:="test" me pose problème car cette référence "test" n'existe pas forcément. Et lorsqu'elle existe, je veux la supprimer.
Je n'arrive pas à trouver comment tester cette "référence".
J'ai mis le bloc problématique en commentaire dans le code.
le "If (Reference.Name = "test") " ne fonctionne évidemment pas... et je ne trouve pas comment récupérer cette valeur.
D'avance merci de votre aide

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strSearch As String
    strSearch = Range("A2").Value
    If Target.Address = "$A$2" Then

If (Left(strSearch, 4) = "http") Then
'If (Reference.Name = "test") Then
'MsgBox "la référence est inconnue et va être créée"
'Else
'    Application.Goto Reference:="test"
'    Selection.QueryTable.Delete
'    Selection.ClearContents
'  End If
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;" & strSearch & "", _
        Destination:=Range("$D$2"))
        .Name = "test"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 60
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

End If
End If
End Sub
 
Trier par date Trier par votes
Re : tester l'existence d'une "référence"

bonjour

je n'ai pas tout compris, mais pour savoir si une chaine existe dans une autre, il y a instr
if instr(Machaine,marecherche) = 0 then msgbox "Pas trouvé"
 
Vote positif 0 Vote négatif
Re : tester l'existence d'une "référence"

je vais être plus précis : lorsqu'on crée une querytable, elle prend un nom. je voudrais effacer la précédente querytable. Mais avant de l'effacer, il faut que je teste son existence (j'utilise toujours le même nom "test"). Comment faire pour récupérer ces nom de querytable ?
 
Vote positif 0 Vote négatif
Re : tester l'existence d'une "référence"

re:

à tester
Code: 
Dim essai As QueryTable
Set essai = ActiveSheet.QueryTables("Test")
If Not essai Is Nothing Then essai.Delete
pas très sûr de moi sur ce coup (pas copain avec tout ça)
 
Vote positif 0 Vote négatif
Re : tester l'existence d'une "référence"

je teste, merci beaucoup en tout cas 🙂
résultat: error 9
le "Set essai = ActiveSheet.QueryTables("Test")"
donne une erreur "l'indice n'appartient pas à la sélection"
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : tester l'existence d'une "référence"

Bonsoir celegorm, wilfried,

Si j'ai bien compris, pour supprimer le nom "test" du classeur :

Code: 
On Error Resume Next
ActiveWorkbook.Names("test").Delete
On Error GoTo 0 'facultatif

A+
 
Vote positif 0 Vote négatif
Re : tester l'existence d'une "référence"

alors effectivement ça me supprime l'occurence test mais à ma grande surprise, le script crée un test_1... puis un test_2 etc. même si "test" a disparu. Du coup je me retrouve rapidement avec des dizaines de names....
o_0
edit: apparemment c'est un bug... si quelqu'un a trouvé le moyen de le contourner...
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Question Question
XL 2021 EXCEL VBA chercher text precis sur Internet
Réponses
6
Affichages
660
pasquetp
P
M
  • Question Question
Microsoft 365 macro en fct de l'état d'une autre (boucle)
Réponses
3
Affichages
318
sylvanu
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
874
Lu76Fer
Astuce du jour (Lister les cellule avec formule avec référence circulaire)
Réponses
3
Affichages
591
Dranreb
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
837
patricktoulon
G
  • Question Question
XL 2021 Vers fichier html selon résultat inputbox
Réponses
4
Affichages
546
gilboss
G
L
  • Question Question
XL 2021 Comment utiliser la colonne d'une adresse en Private Sub - svp ?
Réponses
3
Affichages
593
vgendron
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
905
lesoldat9
L
L
  • Question Question
Microsoft 365 VBA sur outlook
Réponses
14
Affichages
1 K
lesoldat9
L
C
  • Question Question
XL 2019 Déplacer lignes selon contenu d'une cellule
Réponses
2
Affichages
1 K
ARMAEL
A
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
S
  • Question Question
XL 2013 Problème de copie de cellule quand valeur X est détectée
Réponses
2
Affichages
1 K
sempaimayfire
S
B
  • Question Question
Autres Tester l'existence d'une feuille
Réponses
14
Affichages
1 K
botanicus
B
  • Résolu(e)
Microsoft 365 condition sur texte d'une bulle
Réponses
11
Affichages
878
Usine à gaz
B
  • Question Question
Microsoft 365 VBA Compter 2 lignes après la fin d'un tableau dont on a le nom
Réponses
2
Affichages
1 K
bluesky12000
B
B
  • Question Question
XL 2016 Explication Macro
Réponses
2
Affichages
1 K
brice2020
B
A
  • Question Question
XL 2013 Enregistrement d'un graphique au format PDF par macro
Réponses
4
Affichages
1 K
Ab68
A
C
  • Question Question
Autres calcul distance avec google map et vba excel 2007
Réponses
4
Affichages
4 K
sylvanu
C
  • Question Question
XL 2016 Contrôle de l'existence d'un répertoire
Réponses
12
Affichages
1 K
christ77000
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…