Problemes avec Cell/Range.formula

Version imprimable

04/07/2016, 14h57
Tayahelna

Problemes avec Cell/Range.formula
Bonjour,

j'utilise le code

Code:

ActiveCell.FormulaR1C1 = "=RECHERCHEV(Fusion!LC;Fusion!L44C1:L54C5;5)"

Mais j'obtiens une erreur 1004, sachant que quand je tape directement le formule dans la case voulue il calcul correctement ce que je veux,

Je cherche, dans une autre utilisation de formula le moyen d'intégrer une variable

exemple :
Code:

1 2 Valeur_x = ActiveRange Range("N2:O6").Formula = "DROITEREG(I2:I120;Valeurs_x;VRAI;VRAI)
Merci de votre aide
04/07/2016, 15h11
nonesofar

Hello,

Tu veux faire quoi avec les formules ? Les copiers ? Les placer dans une boucle? Essaye de détailler ton besoin.

Après pour les formules le top est d'activer enregistreur de macro et de double cliquer desssus. L’enregistreur va traduire la formule. :D

Sur ce bonne journée.
04/07/2016, 15h12
Menhir
Citation:

Envoyé par Tayahelna

j'utilise le code

Code:

ActiveCell.FormulaR1C1 = "=RECHERCHEV(Fusion!LC;Fusion!L44C1:L54C5;5)"

Mais j'obtiens une erreur 1004, sachant que quand je tape directement le formule dans la case voulue il calcul correctement ce que je veux,

Essaye de mettre, juste avant cette ligne, un code qui vérifie le contenu de ActiveCell. Par exemple :

Code:

Debug.Print ActiveCell.Address
Citation:
Je cherche, dans une autre utilisation de formula le moyen d'intégrer une variable

Code:

1 2 Valeur_x = ActiveRange Range("N2:O6").Formula = "DROITEREG(I2:I120;Valeurs_x;VRAI;VRAI)
A ma connaissance, ActiveRange, ça n'existe pas (à moins que ce soit une de tes variables). Je pense que tu as voulu écrire ActiveCell.
Pour le reste, il te manque un = avant la fonction et un " en fin, et la valeur doit être en dehors de la chaine de caractère.

Code:

Range("N2:O6").Formula = "=DROITEREG(I2:I120;" & Valeurs_x & ";VRAI;VRAI)"
04/07/2016, 15h16
Tayahelna

L'objectif de la première formule est d'avoir un tableau vide et lors de la sélection d'une case par un utilisateur et du lancement de la macro on y rentre la formule et on a donc la valeur de la case qui apparait (par exemple cliquer sur une case d'un démineur)

La deuxième elle me permet de récupérer les coefficients linéaires d'une série de donnée, cette série n'ayant pas toujours la meme taille et mon rendu devant être un excell unique je dois utiliser une macro pour mettre à jour les coefficients
04/07/2016, 15h43
Tayahelna

Nan ce n'est pas une variable, j'ai juste peur qu'activCell ne fonctionne pas puisque je travaille dans ce cas la avec 2 colonnes et un nombre de lignes indétrerminé ==> l'idée je fait un range("A1:B1").select, ensuite j'utilise la commande qui permet d'aller jusqu'en bas de la selection (avec du xldown ...) j'enregistre cette sélection en tant que variable pour la réutiliser ensuite dans la recherchev

J'ai réussit à faire fonctionner ma première ligne de code en passant aux formules en anglais .. je ne sais pas pourquoi
04/07/2016, 16h19
Menhir

Citation:

Envoyé par Tayahelna

J'ai réussit à faire fonctionner ma première ligne de code en passant aux formules en anglais .. je ne sais pas pourquoi

Pour que ça passe avec des formules en français, il aurait fallu mettre FormulaLocalR1C1.

Citation:

Nan ce n'est pas une variable, j'ai juste peur qu'activCell ne fonctionne pas puisque je travaille dans ce cas la avec 2 colonnes et un nombre de lignes indétrerminé

Je ne pense pas qu'utiliser des mots-code qui n'existent pas puisse améliorer les choses.

Citation:

l'idée je fait un range("A1:B1").select, ensuite j'utilise la commande qui permet d'aller jusqu'en bas de la selection (avec du xldown ...) j'enregistre cette sélection en tant que variable pour la réutiliser ensuite dans la recherchev

Pourquoi passer par des Select ? Ca ne me semble pas nécessaire pour faire ce que tu décris.
Par contre, je ne comprends pas ce que doit contenir Valeur_x : une valeur d'une cellule, le numéro d'une ligne, une référence à une cellule, à une zone ?
Si c'est autre chose que la première possibilité, alors ton code est incorrect.
05/07/2016, 10h50
Tayahelna

Je pense que me donner le mot-clé correspondant pourrai faire avancer les chose, j'avais donné une "idée" de code qui attendait justement une correction

J'utilise des selects car j'ai besoin de mettre en mémoire un Range, en l'occurence la variable Valeur_x représente ce range que j'ai sélectionné et qui sert d'argument dans la fonction droitereg
05/07/2016, 10h59
Menhir

Pour mettre dans une variable la référence d'un objet, il faut utiliser l'instruction Set.
Un simple = ne suffit pas.
https://msdn.microsoft.com/fr-fr/lib.../gg251642.aspx
Et il faut que la variable soit déclarée de type Range.

Et je persiste à dire que les Select sont inutiles dans ce cas.
05/07/2016, 11h02
Tayahelna

Okay donc je dois faire un

Code:

Set Valeur_x = ??

Puisque les sélections sont inutiles je suis curieux de savoir comment je fais pour dire se que je veux mettre dans ma variable
05/07/2016, 11h07
Menhir

Par exemple :

Code:

Set Valeur_x = Range("A1:B2")

A condition, bien sûr, que Valeur_x soit déclarée comme une variable de type Range.
05/07/2016, 11h08
Marc-L

Bonjour,

il n'y a peut-être même pas besoin de variable si c'est pour un usage unique …

Et ne pas oublier de libérer les variables objet en fin de procédure !

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
05/07/2016, 11h09
Tayahelna

Citation:

Envoyé par Tayahelna

La deuxième elle me permet de récupérer les coefficients linéaires d'une série de donnée, cette série n'ayant pas toujours la meme taille et mon rendu devant être un excell unique je dois utiliser une macro pour mettre à jour les coefficients

Voilà avec ça tu devrais comprendre l'intéret des select et aussi pourquoi ta formule ne fonctionnera pas.

En outre, une fois que j'aurais ma variable comme je veux la syntaxe que tu m'as donné avant pour le mettre dans un formula fonctionne ?
05/07/2016, 11h16
casefayere

Bonjour, le forum, Menhir, Tayahelna

Citation:

la variable Valeur_x représente ce range que j'ai sélectionné et qui sert d'argument dans la fonction droitereg

Si je peux me permettre de m'immiscer dans le débat, Ton range est toujours le même ? parce que, comme Menhir, je suis persuadé que tu n'as pas besoin de "Select"
05/07/2016, 11h17
Tayahelna

Non mon Range n'est pas fixe sinon je ne ferai pas de select et encore pire je 'nutiliserai aps de variable

Voilà ma solution finale

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim bas As Integer
 
Range("H1").Select
Selection.End(xlDown).Select
 
bas = ActiveCell.Row
 
 
    Range("H1:I" & bas).Select
'
 
 
 
Range("N2:O6").FormulaArray = _
        "=LINEST(R2C8:R" & bas & "C8,R2C9:R" & bas & "C9,TRUE,TRUE)"

05/07/2016, 11h40
Menhir
Citation:

Envoyé par Tayahelna

Voilà avec ça tu devrais comprendre l'intéret des select et aussi pourquoi ta formule ne fonctionnera pas.

Je l'avais bien lu et je persiste dans mon avis.
Personnellement, il est très rare que dans mes codes j'utilise un Select sur un Range.

Exemple pour éviter les Select, voici ce que donne ton dernier code :
Code:

1 2 3 4 Dim bas As Long bas = Range("H1").End(xlDown).Row Range("N2:O6").FormulaArray = "=LINEST(R2C8:R" & bas & "C8,R2C9:R" & bas & "C9,TRUE,TRUE)"
Deux autres remarques :
Tu confonds les cellules sélectionnées (Select / Selection) et les cellules activées (Activate / ActiveCell). Dans certains cas, l'un peut passer pour l'autre mais il y a des cas où ça peut créer des problèmes.
Pour un numéro de ligne, il vaut mieux utiliser une variable de type Long puisqu'il peut y avoir plus de 32 000 lignes.

Citation:

En outre, une fois que j'aurais ma variable comme je veux la syntaxe que tu m'as donné avant pour le mettre dans un formula fonctionne ?

Non puisque le code que je t'ai indiqué était supposé intégrer une valeur numérique et non une référence de cellule.
Pour que ça fonctionne avec une variable de type Range, il faut mettre une propriété.
Je ne connais pas la fonction DROITEREG et je ne sais pas ce qu'il faut lui mettre en second paramètre.
Si c'est l'adresse de la cellule, la syntaxe sera :

Code:

Range("N2:O6").Formula = "=DROITEREG(I2:I120;" & Valeurs_x.Address & ";VRAI;VRAI)"

Citation:

Envoyé par Tayahelna

Non mon Range n'est pas fixe sinon je ne ferai pas de select et encore pire je 'nutiliserai aps de variable

Marc de parlait de référence fixe mais d'usage unique.
Si cette variable n'est utilisée que pour construire la fonction de la ligne suivante, alors elle n'est pas indispensable.
Personnellement, je pense quand même que son usage permet un code plus clair et compréhensible.