utiliser la reference d'une adresse de cellule en vba

Le
Freedo
Bonjour Toutes et Tous,
Comment utiliser la rfrence d'une cellule dans une
formule ?
Donc en feuil1, en E2 j'ai une date par exemple 16/8/2004,
et en K2 j'ai la formule suivante :
=ADRESSE(LIGNE(feuil2!$B3:$B1000)+EQUIV(E2;feuil2!
$B3:$B1000;0)-1;COLONNE(feuil2!$B3:$B1000))ce qui me
donne l'adresse d'une cellule par exemple $B$18
et j'aimerais utiliser cette valeur dans la dfinition de
la lign pour positionner la cellule o je vais copier
des donnes que je transpose.
'
Dim lign As Integer, j1 As Integer
j1 = Range("E2").Select
With Sheets("Prsences").Range("b:b")
lign = .Find(What:=j1, LookAt:=xlWhole).Row
End With
Merci de suivre,
Freedo
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
papou
Le #1844187
Bonjour
Si A1 contient une adresse de cellule sous forme de texte, pour récupérer le
numéro de ligne de cette référence par exemple :
Range(Range("A1").Value).Row
Ou bien
Range([A1]).Row
Cordialement
Pascal

"Freedo" news:89d401c4962a$72199ad0$
Bonjour à Toutes et à Tous,
Comment utiliser la référence d'une cellule dans une
formule ?
Donc en feuil1, en E2 j'ai une date par exemple 16/8/2004,
et en K2 j'ai la formule suivante :
­RESSE(LIGNE(feuil2!$B3:$B1000)+EQUIV(E2;feuil2!
$B3:$B1000;0)-1;COLONNE(feuil2!$B3:$B1000))ce qui me
donne l'adresse d'une cellule par exemple $B$18
et j'aimerais utiliser cette valeur dans la définition de
la lign pour positionner la cellule où je vais copier
des données que je transpose.
'
Dim lign As Integer, j1 As Integer
j1 = Range("E2").Select
With Sheets("Présences").Range("b:b")
lign = .Find(What:=j1, LookAt:=xlWhole).Row
End With
Merci de suivre,
Freedo
Poster une réponse
Anonyme