utiliser la reference d'une adresse de cellule en vba
1 réponse
Freedo
Bonjour =E0 Toutes et =E0 Tous,
Comment utiliser la r=E9f=E9rence d'une cellule dans une=20
formule ?
Donc en feuil1, en E2 j'ai une date par exemple 16/8/2004,
et en K2 j'ai la formule suivante :
=3DADRESSE(LIGNE(feuil2!$B3:$B1000)+EQUIV(E2;feuil2!
$B3:$B1000;0)-1;COLONNE(feuil2!$B3:$B1000))ce qui me=20
donne l'adresse d'une cellule par exemple $B$18
et j'aimerais utiliser cette valeur dans la d=E9finition de=20
la lign pour positionner la cellule o=F9 je vais copier=20
des donn=E9es que je transpose.=20
'=20
Dim lign As Integer, j1 As Integer
j1 =3D Range("E2").Select
With Sheets("Pr=E9sences").Range("b:b")
lign =3D .Find(What:=3Dj1, LookAt:=3DxlWhole).Row
End With
Merci de suivre,
Freedo
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
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" a écrit dans le message de 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
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" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:89d401c4962a$72199ad0$a301280a@phx.gbl...
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
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" a écrit dans le message de 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