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...