Discussion :

[DonKnacki]

Bonjour , j'aimerai un peu d'aide pour un bout de code
voici ce que contien ma feuille
dans la colonne A : un nom de document
dans la colonne B : une révision (correpondant à une lettre)
dans la colonne C : le nombre de révision pour un document


Je souhaite avoir dans la colonne D , la révison précedente (si elle existe) et dans la colonne E , la révision suivante (si elle existe )

je vous joint un fichier xls avec le résultat experé sachant que tout est donné sauf les colonnes D et E

PS: en réalité il y a beaucoup plus de ligne sinon je l'aurai fais à la main

[Jeannot45]

Bonjour,

Je te joins le fichier avec une solution.

J'ai créé la formule de calcul ci dessous :

SI($B2="A";"";CHOISIR(EQUIV($B2;Alphabet;0)-1;"A";"B";"C";"D";"E";"F";"G";"H";"I";"J";"K";"L";"M";"N";"O";"P";"Q";"R";"S";"T";"U";"V";"W";"X";"Y";"Z"))

La première condition me permet de tester pour ne rien affiche dans précédent si la révision est A

La fonction EQUIV permet de récuper la position de la lettre de la révision dans l'alphabet

La fonction CHOISIR permet de récupérer la lettre à afficher fonction de la position de la lettre de la révision

[DonKnacki]

Bonjour , merci pour ta réponse

malheureusement je ne connais pas bien les fonctions donc j'ai du mal à adapté ta solution à mon probleme.
En effet le fichier joint est un fichier simplifier de mon vrai fichier donc pas avec les meme colonne ...
De plus, tu as mal compris une partie du probleme : si une révison F existe , il n'y a pas forcement de révision E
toute les révisions sont dans la feuille
c'est pour ca que dans le fichier joint je n'ai pas rempli certaine cases

Pour en revenir à la solution que tu me propose ; je souhaite savoir à quoi sert l'alphabet de la feuille 2 ?

Si quelqu'un à une solution différente ou un complément n'hésitez pas

[Bigalo]

Bonjour,

On peut utiliser les fonctions CAR() et CODE().

CODE(Réf) renvoie le Code ASCII (cf. précision à la fin du message) de la première lettre de Réf (qui peut être une cellule, un nom, une chaîne de caractères).

Ce code est égal à 65 pour "A", 66 pour "B", ... jusqu’à 90 pour "Z".

CAR(Num) renvoie le caractère dont le code correspond à Num.

Dans ton tableau, en D2 :

Code :

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

=SI(B2 = "A";"";CAR(CODE(B2) - 1))

et en E2 :

Code :

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

=SI(B2 = "Z";"A définir après Z";CAR(CODE(B2) + 1))

La formule en E2 nécessite une adaptation, pour laquelle tu ne nous a pas fourni d’info : que faut-il mettre après "Z" ?

Les 2 formules sont à recopier vers le bas.

Le principe est simple :

• CODE(B2) renvoie le code de la lettre en B2
• CODE(B2) - 1 celui de la lettre précédente
• CODE(B2) + 1 celui de la lettre suivante

NB - CODE() ne renvoie réellement lze code ASCII que jusqu’au caractère 127. Pour les caractères 128 à 255, cela dépend du système d’exploitation : "é" n’a pas le même code sous Mac OS ou sous Windows.

Cordialement,

Michel Gaboly

[House MD]

Voici un code qui marche :

Sub Révisions()

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim A As Long
A = 2
 
'Boucle sur toutes les lignes
Do Until IsEmpty(Cells(A, 1))
 
    'Si Nb Révision > 1
    If Cells(A, 3) > 1 Then
 
        'Cas Première révision
        If Cells(A, 1) <> Cells(A - 1, 1) Then
 
            'On ne Remplit que la Révision "Next"
            If Asc(Cells(A, 2)) < 90 Then Cells(A, 5) = Chr(Asc(Cells(A, 2)) + 1)
 
        'N-ième Révision
        Else
 
            'Si Lettre Sup à 'A' alors Remplissage Révision Prev
            If Asc(Cells(A, 2)) > 65 Then Cells(A, 4) = Chr(Asc(Cells(A, 2)) - 1)
 
            'Si cette Révision n'est pas la Dernière du Doc Concerné
            If Cells(A, 1) = Cells(A + 1, 1) Then
 
                'Si Lettre Inf à 'Z', alors remplissage Next
                If Asc(Cells(A, 2)) < 90 Then Cells(A, 5) = Chr(Asc(Cells(A, 2)) + 1)
            End If
        End If
    End If
    A = A + 1
Loop
End Sub

A coller dans le code de Thisworkbook.

[Jeannot45]

Bonjour,

Je pense que la proposition de Bigalo est la plus intéressante, car courte et sans grande fonction.

Pour ma part, j'ai ajouter la liste alphabétique dans la feuille2 pour avoir une liste de référence utilisée par la fonction EQUIV.
En effet le rôle de cette fonction est de retrouver la position d'une information dans une plage de cellules. Ainsi je calculais la position de la lettre dans l'alphabet.

A propos de la fonction CHOISIR
Syntaxe : CHOISIR(index;Choix1;choix2;...;Choix29)
Cette fonction permet de retrouver un choix dans une liste(29). La position du choix étant donné par un index.

En consequence, la valeur de l'index était donnée par la fonction Equiv.

A+


P.S : si tu as la réponse à ton problème, pense au tag

[DonKnacki]

ne connaissant pas trop les fonctions et préferent passé par macro, j'ai utilisé les fonctions asc et chr
Merci pour votre aide