Discussion :

[jover]

Bonjour

Il s'agit d'écrire une fonction VBA à appeler dans une formule de tableau Excel 2000

je connais à peine visual basic

j'ai besoin d'aide pour traduire en code VBA l'algorithme ci-après


1/ présentation

l'objectif est de "descendre" dans une ligne colonne par colonne la première valeur non nulle
touvée dans une des lignes précédentes en les remontant sur la même colonne.

exemple :
partant d'une cellule de ma ligne courante,
si la cellule est vide je récupère celle de la cellule du dessus (ligne précédente, même colonn)
et si cette cellule est vide je récupère celle du dessus
et ainsi de suite jusqu'à trouver une valeur non null
cette action s'arrête à plus haute ligne.

les lignes sont groupées sur les mêmes valeurs de colonnes tarticulières
(exemple 1 colonne identifiant, 1 colonne date, ...)

on voit aussi donc qu'il s'agit d'une traitement récursif.


2/ algorithme à travduire en VBA


récupvaleur(lig_courante, col_reference, col_exploree)

si cellule(lig_courante,col_exploree) pas null alors

//---une valeur est déjà sur la ligne courante
renvoit cellule(lig_courante,col_exploree)

sinon

si lig_courante = 1 alors

//---cas limite de la première ligne du tableau Excel
renvoit null

SINON

//---valeur prise sur le ligne précedente
//---groupée avec la ligne courante par une même valeur sur la colonne référence
si cellule(lig_courante-1,col_reference) = cellule(lig_courante,col_reference) alors

//---on recommence avec la ligne précédente
renvoit récupvaleur(lig_courante-1, col_reference, col_exploree)

sinon

//---on a atteint la plus haute ligne sans trouver de valeur
renvoit null

finsi

finsi

fini


3/ j'ai besoin aussi de savoir comment invoquer une telle focntion dans une formule excel
il faudra probablement l'inclure dans les fonction excel
mais comment faire ?

Merci pour votre aide

[niavlys26]

bonsoir
je veux pas être désagréable mais j'ai l'impression que tu nous donne là une exercicre à faire
Je vais me permettre de parler comme un responsable du forum, mais c'est précisément un forum VBA, donc on discute et on s'entraide entre développeurs* (lol pour ma part je dirais plutôt débutant).
Donc après initiation au langage tu viens ici avec des questions même les plus basiques (il n'y a pas de questions qui soient bêtes, seules les réponses le sont) et je pense qu'avec plaisir, des dixaines de membres viendront te répondre.

[jover]

Je n'aurais pas posé (et exposé assez clairement) ma question si je pratiquais VBA.
J'ai simplement pensé faire appel à ceux qui savent. C'est basic !

J'espère qu'un de vous aura l'amabilité de me donner quelques tuyaux.

Dans mon quotidien je pratique la gestion de projet, et assiste les utilisateurs pour la rédaction de cahier des charges.

cordialement

[Qwazerty]

SAlut
Bien que je soit d'accord avec Nivlys26 dans le fond je vais quand meme te donner un morceau de code qui devrait faire ce que tu veux, as toi de l'adapter iun peu si ca n'est pas le cas. On n'est pas non plus ici pour faire le boulot des autre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub rowprecedent()
'on verifi que la cellule selectionne ne contient pas plusieur cellule
If Selection.Count > 1 Then Exit Sub
 
'On verifi que le cellule juste au dessus contient quelquechose
If Selection.Offset(-1, 0).Value <> "" Then
    Selection = Selection.Offset(-1, 0) 'Si oui on attribut cette valeur
ElseIf Selection.End(xlUp).Row <> 1 Then 'Si non on charche la derniere case non vide au dessus de otre cellule en controlant que ce n'est pas la 1ere ligne (entete de colonne)
    Selection = Selection.End(xlUp) ' Si oui on attribut la valeur de la derniere case non vide
Else
    'Ici il faut mettre ce que tu veux si aucune valeur n'est trouvé
End If
 
End Sub

A++
Qwaz

[jover]

merci à Quazerty
tes indications vont me faire gagner du temps
je remonterai sous peu mes premiers résultats et prochaines questions.

A+