point de coordonnées de X d'un cellule Active

[producty]

Bonjour,

J'aimerais connaitre le point de coordoonée x de ma cellule active.

Voici mon code VBA

' Declation des variables
Dim X as byte
Dim Val1 as string
Dim Val2 as sring
Dim Ligne as Byte

Val1=12
Val2=13

' Selectionne la derniere cellule vide de la colonne C
[C500].Select
Selection.End(xlUp)(2).Activate

' La valeur de la variable Ligne étant son numéro de Ligne trouvée
Ligne = Sheets("Feuil1").Range("C500").End(xlUp).Row + 1

' Attribution des valeurs
Cells(Ligne, 6).Value = Val1
Cells(Ligne, 7).Value = Val2

Lorsque je lance mon code, il y a une erreur d'execution 1004
Ligne = Sheets("Feuil1").Range("C500").End(xlUp).Row + 1


Qui Sait pourquoi ????

Merci d'avance !!!!!

 

[ERIC S]

Re : point de coordonnées de X d'un cellule Active

Bonjour

Dim Val2 as sring

on doit lire sTring ?

 

[Pierrot93]

Re : point de coordonnées de X d'un cellule Active

Bonjour Producty

lorsque j'execute ton code chez moi, ca passe, dès l'instant ou je modifie ta déclaration "Dim Val2 As String"
et non "SRING"

@+

 

[Pierrot93]

Re : point de coordonnées de X d'un cellule Active

oups, t'avais pas vu Eric, Bonjour

 

[ERIC S]

Re : point de coordonnées de X d'un cellule Active

re

Dim Val1 As String
Dim Val2 As String
Val1 = 12
Val2 = 13
' Attribution des valeurs
Cells(Sheets("Feuil1").Range("C500").End(xlUp).Row + 1, 6).Value = Val1
Cells(Sheets("Feuil1").Range("C500").End(xlUp).Row + 1, 7).Value = Val2

devrait fonctionner
attention si tu veux des nombres, utilise plutôt des déclarations type Single

 

[producty]

Re : point de coordonnées de X d'un cellule Active

Merci pour tous.

J'ai trouve mon soucis

voici le bon code

LIGNE = Range("C500").End(xlUp).Row + 1