J'ai ecrit une fonction VBA sous ECXEL qui doit me retourner plusieurs
valeurs.
Ces valeurs, je veux les mettre dans les cellules en dessous.
problème : comment avoir les coordonnées de la cellule ou il y a la formule
(afin de faire un offset après).
Activecell na marche pas car il prend la cellule en cours dans le classeur.
Il me faut un truc du type Target dans selection_change
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
Jacquouille
Bonjour Fab Tu veux mettre tes valeurs dans les cellules en-dessous. En dessous de quoi? Juste sous ta plage de calcul? Si calcul de la somme B1:B5, mettre le résultat en B6? Dim derL As Long derL = Sheets("feuil1").[B65536].End(xlUp).Row Range("B" & derL).Select
J'ai ecrit une fonction VBA sous ECXEL qui doit me retourner plusieurs valeurs. Ces valeurs, je veux les mettre dans les cellules en dessous. problème : comment avoir les coordonnées de la cellule ou il y a la formule (afin de faire un offset après). Activecell na marche pas car il prend la cellule en cours dans le classeur.
Il me faut un truc du type Target dans selection_change
merci d'avance..
Bonjour Fab
Tu veux mettre tes valeurs dans les cellules en-dessous. En dessous de
quoi?
Juste sous ta plage de calcul?
Si calcul de la somme B1:B5, mettre le résultat en B6?
Dim derL As Long
derL = Sheets("feuil1").[B65536].End(xlUp).Row
Range("B" & derL).Select
"Fab" <fabrice.magier@tiscali.fr> a écrit dans le message de news:
uQwsKs37FHA.808@TK2MSFTNGP09.phx.gbl...
bonjour,
J'ai ecrit une fonction VBA sous ECXEL qui doit me retourner plusieurs
valeurs.
Ces valeurs, je veux les mettre dans les cellules en dessous.
problème : comment avoir les coordonnées de la cellule ou il y a la
formule (afin de faire un offset après).
Activecell na marche pas car il prend la cellule en cours dans le
classeur.
Il me faut un truc du type Target dans selection_change
Bonjour Fab Tu veux mettre tes valeurs dans les cellules en-dessous. En dessous de quoi? Juste sous ta plage de calcul? Si calcul de la somme B1:B5, mettre le résultat en B6? Dim derL As Long derL = Sheets("feuil1").[B65536].End(xlUp).Row Range("B" & derL).Select
J'ai ecrit une fonction VBA sous ECXEL qui doit me retourner plusieurs valeurs. Ces valeurs, je veux les mettre dans les cellules en dessous. problème : comment avoir les coordonnées de la cellule ou il y a la formule (afin de faire un offset après). Activecell na marche pas car il prend la cellule en cours dans le classeur.
Il me faut un truc du type Target dans selection_change
merci d'avance..
Fab
En fait, ma formule va chercher des valeurs dans une base de données externe. Elle me renvoie une liste(variable) de valeur que je dois afficher en dessous de la cellule ou il y a la formule.
"Jacquouille" a écrit dans le message de news:
Bonjour Fab Tu veux mettre tes valeurs dans les cellules en-dessous. En dessous de quoi? Juste sous ta plage de calcul? Si calcul de la somme B1:B5, mettre le résultat en B6? Dim derL As Long derL = Sheets("feuil1").[B65536].End(xlUp).Row Range("B" & derL).Select
J'ai ecrit une fonction VBA sous ECXEL qui doit me retourner plusieurs valeurs. Ces valeurs, je veux les mettre dans les cellules en dessous. problème : comment avoir les coordonnées de la cellule ou il y a la formule (afin de faire un offset après). Activecell na marche pas car il prend la cellule en cours dans le classeur.
Il me faut un truc du type Target dans selection_change
merci d'avance..
En fait, ma formule va chercher des valeurs dans une base de données
externe.
Elle me renvoie une liste(variable) de valeur que je dois afficher en
dessous de la cellule ou il y a la formule.
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: uKEvBx37FHA.1032@TK2MSFTNGP11.phx.gbl...
Bonjour Fab
Tu veux mettre tes valeurs dans les cellules en-dessous. En dessous de
quoi?
Juste sous ta plage de calcul?
Si calcul de la somme B1:B5, mettre le résultat en B6?
Dim derL As Long
derL = Sheets("feuil1").[B65536].End(xlUp).Row
Range("B" & derL).Select
"Fab" <fabrice.magier@tiscali.fr> a écrit dans le message de news:
uQwsKs37FHA.808@TK2MSFTNGP09.phx.gbl...
bonjour,
J'ai ecrit une fonction VBA sous ECXEL qui doit me retourner plusieurs
valeurs.
Ces valeurs, je veux les mettre dans les cellules en dessous.
problème : comment avoir les coordonnées de la cellule ou il y a la
formule (afin de faire un offset après).
Activecell na marche pas car il prend la cellule en cours dans le
classeur.
Il me faut un truc du type Target dans selection_change
En fait, ma formule va chercher des valeurs dans une base de données externe. Elle me renvoie une liste(variable) de valeur que je dois afficher en dessous de la cellule ou il y a la formule.
"Jacquouille" a écrit dans le message de news:
Bonjour Fab Tu veux mettre tes valeurs dans les cellules en-dessous. En dessous de quoi? Juste sous ta plage de calcul? Si calcul de la somme B1:B5, mettre le résultat en B6? Dim derL As Long derL = Sheets("feuil1").[B65536].End(xlUp).Row Range("B" & derL).Select
J'ai ecrit une fonction VBA sous ECXEL qui doit me retourner plusieurs valeurs. Ces valeurs, je veux les mettre dans les cellules en dessous. problème : comment avoir les coordonnées de la cellule ou il y a la formule (afin de faire un offset après). Activecell na marche pas car il prend la cellule en cours dans le classeur.
Il me faut un truc du type Target dans selection_change
merci d'avance..
PMO
Bonjour,
Comment avoir les coordonnées de la cellule où il y a la formule ? Une piste avec le code suivant
'********************* Function PMO(Cellule As Range) As Variant '---- Pour une seule cellule ---- If Cellule.Count > 1 Then MsgBox "Veuillez sélectionner une seule cellule" Exit Function End If '---- Adresse de la donnée ---- MsgBox "Donnée en " & Cellule.Address '---- Adresse de la fonction ---- MsgBox "Fonction en " & Application.Caller.Address '---- Valeur de retour ---- PMO = Cellule End Function '*********************
FAIRE 1) Copiez le code dans un module standard 2) Inscrivez une donnée dans une cellule (par exemple "toto" en A5) 3) Dans une autre cellule (ex: C10) tapez la formule =PMO(A5) 4) La fonction se contente de répliquer la valeur de A5 en C10 5) Elle affiche l'adresse de la donnée puis l'adresse de la fonction
Cordialement. -- PMO Patrick Morange
bonjour,
J'ai ecrit une fonction VBA sous ECXEL qui doit me retourner plusieurs valeurs. Ces valeurs, je veux les mettre dans les cellules en dessous. problème : comment avoir les coordonnées de la cellule ou il y a la formule (afin de faire un offset après). Activecell na marche pas car il prend la cellule en cours dans le classeur.
Il me faut un truc du type Target dans selection_change
merci d'avance..
Bonjour,
Comment avoir les coordonnées de la cellule où il y a la formule ?
Une piste avec le code suivant
'*********************
Function PMO(Cellule As Range) As Variant
'---- Pour une seule cellule ----
If Cellule.Count > 1 Then
MsgBox "Veuillez sélectionner une seule cellule"
Exit Function
End If
'---- Adresse de la donnée ----
MsgBox "Donnée en " & Cellule.Address
'---- Adresse de la fonction ----
MsgBox "Fonction en " & Application.Caller.Address
'---- Valeur de retour ----
PMO = Cellule
End Function
'*********************
FAIRE
1) Copiez le code dans un module standard
2) Inscrivez une donnée dans une cellule (par exemple "toto" en A5)
3) Dans une autre cellule (ex: C10) tapez la formule =PMO(A5)
4) La fonction se contente de répliquer la valeur de A5 en C10
5) Elle affiche l'adresse de la donnée puis l'adresse de la fonction
Cordialement.
--
PMO
Patrick Morange
bonjour,
J'ai ecrit une fonction VBA sous ECXEL qui doit me retourner plusieurs
valeurs.
Ces valeurs, je veux les mettre dans les cellules en dessous.
problème : comment avoir les coordonnées de la cellule ou il y a la formule
(afin de faire un offset après).
Activecell na marche pas car il prend la cellule en cours dans le classeur.
Il me faut un truc du type Target dans selection_change
Comment avoir les coordonnées de la cellule où il y a la formule ? Une piste avec le code suivant
'********************* Function PMO(Cellule As Range) As Variant '---- Pour une seule cellule ---- If Cellule.Count > 1 Then MsgBox "Veuillez sélectionner une seule cellule" Exit Function End If '---- Adresse de la donnée ---- MsgBox "Donnée en " & Cellule.Address '---- Adresse de la fonction ---- MsgBox "Fonction en " & Application.Caller.Address '---- Valeur de retour ---- PMO = Cellule End Function '*********************
FAIRE 1) Copiez le code dans un module standard 2) Inscrivez une donnée dans une cellule (par exemple "toto" en A5) 3) Dans une autre cellule (ex: C10) tapez la formule =PMO(A5) 4) La fonction se contente de répliquer la valeur de A5 en C10 5) Elle affiche l'adresse de la donnée puis l'adresse de la fonction
Cordialement. -- PMO Patrick Morange
bonjour,
J'ai ecrit une fonction VBA sous ECXEL qui doit me retourner plusieurs valeurs. Ces valeurs, je veux les mettre dans les cellules en dessous. problème : comment avoir les coordonnées de la cellule ou il y a la formule (afin de faire un offset après). Activecell na marche pas car il prend la cellule en cours dans le classeur.
Il me faut un truc du type Target dans selection_change
