Récupérer l'adresse d'une cellule

[jiritsu]

Bonjour,

J'ai une petite difficulté pour trouver l'adresse de ma cellule.

Voici mon code:

Dim Val1, Val2 as String

Val1 = "a4:a"
Val2 = "c65536"

For Each y In Range(Val1 & Range(Val2).End(xlUp).Row)
            x = x + 1

<< ICI - Je souhaiterai connaitre dans quelle colonne se trouve y >>

            .ListItems.Add , , y
            For j = 1 To 4
                .ListItems(x).ListSubItems.Add , , y.Offset(0, j)
            Next j
Next y

Je ne connais pas le code, j'ai tenté plusieurs trucs mais sans succès.

Pouvez-vous m'aider svp?

 

[Gael]

Re : Récupérer l'adresse d'une cellule

Bonjour jiritsu, bonjour à tous,

As-tu essayé tout simplement:

y.column

@+

Gael

 

[jiritsu]

Re : Récupérer l'adresse d'une cellule

Salut, merci pour ta réponse.

Oui j'ai déjà essayer mais cela me retourne toujours "1" même si la cellule de la colonne A est vide.

Vu que 'y' fait partie d'un Range entre A et C, si A1, B1 sont vides et que C1 a une valeur, y.column me retourne tout de même "1"

Il y a t-il un autre moyen ?

HS : Peut-on copier le format de la cellule dans une listview?

 

[tbft]

Re : Récupérer l'adresse d'une cellule

Bonjour

j'ai un peu modifier ta déclaration des variables val1 et val2

Sub test()
Dim x, y, toto
Dim Val1, Val2 As String

Val1 = "a4:ac"
Val2 = "ac65536"

For Each y In Range(Val1 & Range(Val2).End(xlUp).Row)
x = x + 1
toto = y.Column ' numero de la colonne
Next y

End Sub

Quand pense tu?

A+
TBFT

 

[Gael]

Re : Récupérer l'adresse d'une cellule

Re,

Si y fait partie du range A-C, le n° de colonne sera 1 puis 2 puis 3 puis à nouveau 1 etc...

Dans ton exemple, si tu mets:

Val1 = "a4:a"
Val2 = "c65536"
 
For Each y In Range(Val1 & Range(Val2).End(xlUp).Row)

Le range utilisé sera la colonne a uniquement et y.column te retournera toujours 1.

Si tu veux utiliser A-C, il faut écrire:

Val1 = "a4:[COLOR=red]c[/COLOR]"
Val2 = "c65536"
 
For Each y In Range(Val1 & Range(Val2).End(xlUp).Row)

Désolé si c'est un peu simple comme raisonnement mais je ne suis pas sûr d'avoir bien compris. Si ce n'est pas du tout ça, peux-tu mettre un exemple plus complet?

@+

Gael

Et bonjour Tbft, collision.

 

[tbft]

Re : Récupérer l'adresse d'une cellule

Bonjour Gael

j'ai parti sur une analyse avec les colonnes a à ac....

 

[jiritsu]

Re : Récupérer l'adresse d'une cellule

Merci pour vos réponses, malheureusement cela ne va pas.

Dans mon document, je dois remplir uniquement la colonne A, B ou C. Mais pour la colonne A, le format cellule doit être à 13 chiffres.
Lorsque je lance la macro, la listview se rempli uniquement avec la valeur de la cellule, sans tenir compte de son format.

Du coup, lorsque mon fichier csv est créé, il manque les zéros.
Exemple:
Sur le fichier Excel : A1=0002459697156
Dans la listview : A1=2459697156

Connaissez-vous un moyen de copier le format cellule dans la listview?

Merci de votre aide.

 

[James007]

Re : Récupérer l'adresse d'une cellule

Bonjour,

As-tu essayé de déclarer tes items en Variant ...?

Dim ListItems As Variant

A +

 

[tbft]

Re : Récupérer l'adresse d'une cellule

Bonjour

Pour récupérer les zéros as tu essayer de déclarer tes variables en string?

 

[kjin]

Re : Récupérer l'adresse d'une cellule

Bonjour,

Private Sub UserForm_Initialize()
Dim x As Byte, j As Byte, i As Integer
With Me.ListView1
    With .ColumnHeaders
        .Add , , "BARCODE OR UPC", 150
        .Add , , "MNP", 150
        .Add , , "ISBN", 150
        .Add , , "COUNTRY", 150
        .Add , , "SKU CODE", 100
    End With
.ListItems.Clear
    For i = 3 To ActiveSheet.UsedRange.Rows.Count
        x = x + 1
        .ListItems.Add , , Cells(i, 1).Text
        For j = 1 To 4
            .ListItems(x).ListSubItems.Add , , Cells(i, j + 1).Text
        Next j
    Next i
End With

End Sub

A+
kjin

 

[jiritsu]

Re : Récupérer l'adresse d'une cellule

Cela fonctionne parfaitement avec ton code kjin.

Merci beaucoup.