Identification de cellule

[sabine]

Re à tous,

Existe-t-il une commande en VB pour demander dans une macro d'identifier une cellule (colonne et ligne) et d'utiliser ensuite ces infos comme variable dans une fonction ?
Ex. Je recherche la position de la dernière valeur d'un tableau. J'aimerais que j'obtienne un résultat genre A10, que je puisse alors faire une somme de A1 à A10. En sachant que normalement je ne sais pas que c'est A10, donc tout doit se faire par variables interposées.
Merci d'avance,

Sabine

 

[Berkane]

Salut

tu peux utiliser ".Address"


exemple

Sub Exemple ()
dim a as integer
a=5
Range(range("A5").Address,range("A5").Offset(a).address).Select
End sub

Qu'en pense-tu?

 

[sabine]

Je suis désolée mais je n'ai pas bien compris ce que faisais chaque ligne et comment l'intégrer à mon problème !! C'est presque la fin de la journée alors mes neurones sont un peu fatigués ...

 

[ollivier]

Salut,

J'aurais bien quelquechose à te proposer mais c'est assez lourd en code, c'est de la bidouille en fait..... moi-même je serais interressé par la résolution de ce problème s'il existe une commande simple .

Voici quand même ma soluce :

Dim GNA as Integer
GNA = 0 (Ce compteur te donneras comme info nb cellule de ta colonne contenant des données)

Range("A1").Select (selection de la colonne)

debut:

If ActiveCell.FormulaR1C1 = " " Then (test le contenu de la cellule)
GoTo Fin (si la cellule est vide arrêt du test)

Else: GNA = GNA + 1 (si la cell n'est pas vide: incrément du compteur)
ActiveCell.Offset(1,0).Select (decalage cellule du dessous)
GoTo debut (retour au test)
End IF

Fin:

Puis tu peux utiliser le compteur dans ton code, par exemple une selection :

Range(Cells(1,1),Cells(GNA,1)).Select

Là tu auras selectionné toutes les cellules de la première colonne contenant des données ......


Voilà, je t'avais prévenue que c'était lourd....... mais c comme ça que je fais moi, à défaut d'avoir une commande plus efficace!

Bon courage et SVP AIDEZ-NOUS!!! ;-)