Discussion :

[excel10]

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

[Igloobel]

... mais en essayant plusieurs code vba je ne trouve pas...

tu nous transmet ton code pour voir ce qui ne va pas et n'oublie pas les balise code (#)

A+

[joe.levrai]

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

[excel10]

Mon code était :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub selectionchemindacces()
 
Application.ScreenUpdating = False
 
reperagederniereligne = Range("I10000").End(xlUp).Row
 
For i = reperagederniereligne To 1 Step -1
If i = "*[]*" Then Cells(i, 9).Select
Next i
 
End Sub

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.
Savez-vous pourquoi ?

merci

[joe.levrai]

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

"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

[excel10]

Merci de ta réponse

j'ai fait une petite modif sur le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub 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

Mais ça ne marche pas non plus.
Dans tous mes chemins d'accès j'ai des "[ ]" puisque les titres de mes fichiers excel contiennent des espaces...

[joe.levrai]

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.

[excel10]

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

[joe.levrai]

Que signifie coller en dur ?

il ne serait pas plus opportun de détecter *:\* ?

voir *C:\* si c'est toujours sur ton lecteur C ?

[vinc_bilb]

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

[patricktoulon]

bonjour
d'autant plus que je ne suis pas sur que ceci fonctionne

Code :

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

If i = "*[]*" Then Cells(i, 9).Select

deja cette chaine nonabsolu ne peut pas fonctionner avec "=" sinon cela voudrais dire qiue tu cherche de cette facon
If i = "*[]*" Then Cells("*[]*", 9).Select[/CODE]

tu te doute bien que ca ne peut pas marcher
ensuite

Code :

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

If i = "*[]*" Then

la chaine est interprété comme tel donc pour toi j'espere qu'il y a bien des cellules avec "*[]*" les etoiles comprises
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

Code :

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

if cells(x,y) like  "*[]*" then

la fonction like interprete les etoiles comme variable string inconnu a rechercher


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

[Igloobel]

Bonjour,

Autre idée pour tester tes Crochets "[" et "]" tu peux utiliser l'instruction "InStr" qui cherche une chaine dans une chaine

A+