Discussion :

[cedric59dk]

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 !!

[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.....

[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 ..

[megapacman]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[cedric59dk]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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