[VBA-Excel] transposition d'une formule

Version imprimable

24/01/2007, 13h51
cedric59dk

[VBA-Excel] transposition d'une formule

Bonjour,

Je cherche a transposer une formule d'une cellule d'un classeur dans une macro...
Je n'arrive pas à la transposer.
Cette formule ressemble a ceci :

=((RECHERCHEV(A3;Donnèes!$A$1:$AC$972;9;FAUX)*(1+SI(RECHERCHEV(A3;Donnèes!$A$1:$AA$1001;10;FAUX)="A";RECHERCHEV("A";Donnèes!$A$3:$AC$972;4;FAUX);SI(RECHERCHEV(A3;Donnèes!$A$1:$AA$1001;10;FAUX)="B";RECHERCHEV("B";Donnèes!$A$3:$AC$972;4;FAUX);RECHERCHEV("C";Donnèes!$A$3:$AC$972;4;FAUX)))))+(RECHERCHEV(A3;Donnèes!$A$1:$AC$972;12;FAUX)*(RECHERCHEV("Main d'œuvre";Donnèes!$A$1:$AC$972;3;FAUX))))*(1+RECHERCHEV("Coef FINAL";Donnèes!$A$1:$AC$972;3;FAUX))

Je cherche peut-etre dificulté la ou il n'y a pas lieu d'etre!!

Toute aide sera la bienvenue et je vous en remercie !!
24/01/2007, 13h58
megapacman

salut,

dans un premier temps , le conseil que je te donnerai c'est :

1)identifier les actions de ta formule avec des mots simples et on pourra mieux t'aider

par exemple:

1) elle selectionne feuille1
2) elle compare tel et tel cellule de la meme feuille

etc.....
24/01/2007, 14h20
cedric59dk

Pour faire simple je dirais que cette fonction permet de :
- rechercher dans la feuille n°1 le contenu de la cellule "A1" de la feuille n°2.
- récupérer l'information situé sur la meme ligne de la feuille n°1 décalé d'un Offset de 9 et de multiplier cette information par une autre recherche a condition que la ligne 10 de la feuille n°1 soit par exemple la lettre A..

J'espére avoir été assez clair ..

Citation:

Pour faire simple je dirais que cette fonction permet de :
- rechercher dans la feuille n°1 le contenu de la cellule "A1" de la feuille n°2.
- récupérer l'information situé sur la meme ligne de la feuille n°1 décalé d'un Offset de 9 et de multiplier cette information par une autre recherche a condition que la ligne 10 de la feuille n°1 soit par exemple la lettre A..

J'espére avoir été assez clair ..

1) tu recuperes la cellule A1 page2 -> myvalue
2) tu vas sur la page1, tu cherche (find) myvalue dans page1
3) tu recuperes la valeur meme ligne + 9 colonnes -> myvalue2
4) tu recuperes ligne 10 mapage1 ->myvalue3
5) tu compares if myvalue3="A" then.... alors tu multiplies myvalue2*myvalue3

qu'est-ce qui te bloques la dedans ?

bon je vais te mettre un peu sur la piste
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 '1) tu recuperes la cellule A1 page2 -> myvalue dim mapage2 as string dim myvalue as string 'si c du string int si c du int mapage2="lenomdetapage" debug.print mapage2 worksheets(mapage2).select myvalue=cells(1,1).value debug.print myvalue
2) essaie avec find va voir dans l'aide vba

24/01/2007, 15h16
ouskel'n'or

Oui et RechercheV, c'est le fameux "VLOOKUP" que tu peux utiliser avec WorksheetFunction

Code:

Result = WorksheetFunction.VLOOKUP(...)"

Fais une recherche à VLOOKUP sur le forum VBA, tu trouveras peut-être ton bonheur... si la méthode de megapacman ne te convient pas...

Merci de ton aide
Je suis loin d'être certain de la qualité de mon boulot ... !!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
dim valeur_A as integer
dim Valeur_cherche as integer
dim mapage1 as string
 
mapage1="le_nom_de_ma_page2"
 
worksheets(mapage1).Range("A1:AA999")
 
Valeur_A = ActiveSheet.Find(myvalue)
 
If valeur_A Is Nothing Then
	valeur_cherche = nothing
	Else
	valeur_cherche = ActiveCell.Offset(0,3)
end If