Version imprimable
Bonjour,
Colonne I de mon tableau contient à la fois des formules standard (du type I3*I7) et des cellules contenant des liens chemin d'accès vers d'autres fichier excel.
Je souhaiterais via une macro ne sélectionner que les cellules contenant chemin d'accès mais en essayant plusieurs code vba je ne trouve pas..
Quelqu'un pour m'aider ?
merci
tu nous transmet ton code pour voir ce qui ne va pas et n'oublie pas les balise code (#)Citation:
Envoyé par excel10
A+
Bonjour,
un petit filtre automatique textuel "contient" sur une portion des chemins d'accès (et surtout le ":\") devrait faire l'affaire
et suivant ce que tu as besoin de faire avec cette selection : éventuellement un filtre avancé avec export des données
Mon code était :
De plus j'ai un souci avec VBA car lorsque je suis en train de taper mon code, il m'efface les espaces et me met la ligne automatiquement en rouge.Code:
2
3
4
5
6
7
8
9
10
11
12
Savez-vous pourquoi ?
merci
Bonjour,
ton i est un numéro de ligne
tu testes si i contient "*[]*"
donc tu testes si un numéro de ligne Excel contient cette chaine ... tu vois le problème ? ;)
de plus, ta chaine de détection me semble étrange si tu cherches à détecter des chemins d'accès :weird:
"c:\UnDossier\UnFichier.Xls" ne sera pas détecté
"J'ai Foiré Le code [], oups" sera détecté
pour ton histoire de suppression d'espaces, je ne comprend pas
Merci de ta réponse
j'ai fait une petite modif sur le code :
Mais ça ne marche pas non plus.Code:
2
3
4
5
6
7
8
9
10Sub selectionchemindacces() Application.ScreenUpdating = False reperagederniereligne = Range("I10000").End(xlUp).Row For i = reperagederniereligne To 1 Step -1 If cells(i,9) = "*[]*" Then Cells(i, 9).Select Next i
Dans tous mes chemins d'accès j'ai des "[ ]" puisque les titres de mes fichiers excel contiennent des espaces...
peux-tu nous mettre un exemple de chemin que tu cherches à détecter ?
après les avoir sélectionné, tu en fais quoi ?
je persiste et signe : un filtre automatique textuel OU un filtre avancé avec exportation du résultat ... selon le "tu en fais quoi"
Répond à mes deux précédentes questions avant de t'intéresser à ma phrase précédente.
Exemple de chemin : 'C:\Users\prenom.bom\Desktop\ANALYSE\[Analyse mensuelle.xlsx]St'!$A$4
Après les avoir selectionner je souhaite les coller en dur
Que signifie coller en dur ?
il ne serait pas plus opportun de détecter *:\* ?
voir *C:\* si c'est toujours sur ton lecteur C ?
Bonjour,
J'ai une crise de fainéantise qui contribue parfois à la simplicité;
1. Passer toujours et encore par le specialcells: accès direct au xlCellTypeConstants (pas de formules) ou le xlCellTypeFormulas
2. Si c'est une référence à un fichier, il doit y avoir des hyperliens .... c'est donc facile de les sélectionner
bonjour
d'autant plus que je ne suis pas sur que ceci fonctionne
deja cette chaine nonabsolu ne peut pas fonctionner avec "=" sinon cela voudrais dire qiue tu cherche de cette faconCode:If i = "*[]*" Then Cells(i, 9).Select
If i = "*[]*" Then Cells("*[]*", 9).Select[/CODE]
tu te doute bien que ca ne peut pas marcher
ensuite
la chaine est interprété comme tel donc pour toi j'espere qu'il y a bien des cellules avec "*[]*" les etoiles comprisesCode:If i = "*[]*" Then
si c'est pas le cas alors c'est walouh!!!
je pense que tes etoiles represente les inconus de debut et de fin de chaine
se serait donc pas "=" mais like qu'il fautdrait utiliser
la fonction like interprete les etoiles comme variable string inconnu a rechercherCode:if cells(x,y) like "*[]*" then
donc toute l'idé du principe que tu t'en est fait est fausse
tout ton code a revoir
d'autant plus que si il y a des formuiles se sera pas valu mais formula voir value2
enfin j'arrete la
Bonjour,
Autre idée pour tester tes Crochets "[" et "]" tu peux utiliser l'instruction "InStr" qui cherche une chaine dans une chaine
A+