Equiv Décaler ect en VB

[fifi]

salut le forum,

pour éviter de faire des calculs dans un feuil excel, je voulais le faire par VB.
Mais comment écrire les fonctions Equiv et Décaller?

j'ai essayé cela mais bon je fu un peu optimiste D :

Dim Nom_animal_search As Variant
Nom_animal_search = MATCH("Titi",sheets("animaux").range("C4:C10),0)


merci 😀

 

[wilfried_42]

Re : Equiv Décaler ect en VB

salut,

je suis nouveau en vba, equiv je ne sais pas mais tu peux definir toi meme et de facon variable ta plage de traitement

.range(ref)...........


ref = chr$(64+x) & cstr(i)&":"&chr$(64+x+15)&cstr(i+nbligne)


salutations

 

[fifi]

Re : Equiv Décaler ect en VB

Effectivement ... :s mais ca vite devenir assez lourd avec cette solution.
j'attends d'autre réponse sinon j'aurai pas le choix et je vais te maudire 😀
en m'arrachant les cheveux

 

[wilfried_42]

Re : Equiv Décaler ect en VB

re salut

tu peux envoyer un morceau de ta macro stp

a+

 

[fifi]

Re : Equiv Décaler ect en VB

je veux juste écrire cette formule en VB



Range("C1").Select
ActiveCell.FormulaR1C1 = "=MATCH(R1C4,R4C3:R3000C3,0)"

la formule à pour fonction d'indiquer la positiono de la valeur en R1C4 dans la plage de données R4C3:R3000C3

mais il y en aura d'autre, bcp d'autre...


de même pour la fonction décaler :
Range("D8").Select
ActiveCell.FormulaR1C1 = "=OFFSET(R8C5,R[7]C,R[8]C,R[9]C,R[10]C)"

 

[wilfried_42]

Re : Equiv Décaler ect en VB

je vais simplifier les choses :

tu veux metre à jour de la colonne A à I à la ligne X

for i = 1 to 9
ref = chr$(64+i)&sctr(x)
.range(ref).formula = matable(i)
next i

ps : ne met pas de , ce sont des ;

A+

 

[fifi]

Re : Equiv Décaler ect en VB

je comprends pas tout :/
tu en fais quoi de ce code?

 

[wilfried_42]

Re : Equiv Décaler ect en VB

finalement je pense ne pas avoir compris ce que tu cherches, envoie un morceau de ton code ou de ton tableau

 

[fifi]

Re : Equiv Décaler ect en VB

voila l'exemple.

le but étant que je puisse charger une variable en VB qui soit le résultat de la formule

 

[wilfried_42]

Re : Equiv Décaler ect en VB

le resultat de equiv à recuperer ? ou la ref de la cellule de la table

cellule table = "A" & Cstr(range("C3").value)

Je ne vois pas dans ton fichier les fonctions MATCH; OFFSET

A+

 

[myDearFriend!]

Re : Equiv Décaler ect en VB

Bonsoir fifi, wilfried_42,

Je ne suis pas un grand spécialiste des formules de feuille de calcul (et malheureusement je ne le serai sans doute jamais), mais pour tenter de répondre à ta question, voici les 2 équivalents VBA de ce que tu cherches :

[SIZE=2][COLOR=NAVY]Sub[/COLOR] Test()
[COLOR=NAVY]Dim[/COLOR] Resultat [COLOR=NAVY]As Variant[/COLOR]

    [COLOR=GREEN]'EQUIV[/COLOR]
    Resultat = Application.WorksheetFunction.Match("Titi", Sheets("animaux").Range("C4:C10"), 0)
    [COLOR=NAVY]If Not[/COLOR] IsError(Resultat) [COLOR=NAVY]Then[/COLOR] MsgBox Resultat
    
    [COLOR=GREEN]'DECALER[/COLOR]
    Resultat = Sheets("animaux").Range("C10").Offset(-9, -2).Value
    MsgBox Resultat
[COLOR=NAVY]End Sub[/COLOR][/SIZE]

Tu peux raccourcir Application.WorksheetFunction.Match(...) par Application.Match(...)

Cordialement,

 

[fifi]

Re : Equiv Décaler ect en VB

humm 😀 ca commence à bien me plaire ca. une bonne ressemblance avec la formule excel 😀

je teste cele de suite

 

[fifi]

Re : Equiv Décaler ect en VB

nikel nikel 😀

parfait
merci à vous deux de vous êtes penché sur mon pb 😀

j'en aurai surement d'autres..mais déjà le temps d'utiliser cette derniere solution ...vous pouvez dormir tranquille.

merci encore.