Remplissage Cellules Adjacentes D'une Colonne Variable

[Pat5]

Bonjour tout le monde.

Ca faisait longtemps que je n'étais pas passé. Ma question :

En VBA

J'ai une colonne avec des données importées de A1 à A20. (Liste d'un répertoire contenant des fichiers Excel)

Comment remplir la colonne de B1 à B20 avec la formule : =GAUCHE(A1;NBCAR(A1)-4) pour pouvoir sortir l'extension du nom du fichier (Untel.xls devient Untel).

Si l'import est différent ( A1 à A18) ne remplir que B1 à B18.

En un mot comment remplir les cellules adjacentes de cellules non vide.

Avec mes remerciements

 

[eriiic]

Re : Remplissage Cellules Adjacentes D'une Colonne Variable

Bonjour,

dans le code de la feuille :

Sub nomFichier()
    Dim c As Range
    For Each c In Range("A1:A" & [A65536].End(xlUp).Row)
        c.Offset(0, 1) = Left(c, Len(c) - 4)
    Next c
End Sub

eric

 

[Pierrot93]

Re : Remplissage Cellules Adjacentes D'une Colonne Variable

Bonjour,

une autre solution avec test de cellule non vide et qu'il y a bien au moins un point dans la cellule...

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
    If Not IsEmpty(c) And c.Value Like "*.*" Then c.Offset(0, 1) = Mid(c, 1, InStrRev(c, ".") - 1)
Next c
End Sub

bon après midi
@+

 

[Pat5]

Re : Remplissage Cellules Adjacentes D'une Colonne Variable

Merçi eriiiic et Pierrot93

Ca marche nickel

A+

Pat5