implementer un code alphanumérique

Version imprimable

Voir 40 message(s) de cette discussion en une page

Re.

Le code de la fonction codage() utilisé dans le fichier, n'est pas celui posté en post #16

Ci-dessous les modifications que tu as effectué, et qui entraîne des problèmes.

Code:

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
Sub codage()

With Worksheets("ORIGINALE")
           ' .Unprotect Password:="popol"
 
            Dim code As String
            code = Worksheets("PROGRAMME").[D14].Value
 
            Dim dl1 As Long
            dl1 = 0
            With Worksheets("ORIGINALE")
                Dim r As Range
                '16 correspond à la ligne de titre, pas la première ligne de valeur 
                For Each r In .Range("A16:A" & .Range("A" & Rows.Count).End(xlUp).Row)
                    If (r.Value <> " ") Then ' " " est un caractère espace, pas une chaîne vide
                        dl1 = dl1 + 1
                        If (r.Offset(0, 10).Value = " ") Then ' " " est un caractère espace, pas une chaîne vide
                            r.Offset(0, 10).Value = code & dl1
                            Exit For
                        End If
                    End If
                Next r
            End With
 
            '.Protect Password:="popol"
    End With
    Sheets("PROGRAMME").Activate
End Sub

Utilise exactement (copier / coller) le code posté en post #16, et si la colonne quantité contient une valeur, codage fonctionnera.

10/03/2012, 22h41
Biggy30

je suis désolé j'ai comis une faute :aie:
le code en post 16 fonctionne effectivement sauf si j'insère une ligne vide
le code passe de disons...A4 a A6, A5 étant la ligne vide (il n'apparait pas bien sur)

ce que je voudrais c'est que si j'insere une ligne vide, l'alpha ne s'implémente pas pour cette ligne mais pour la suivante...

exemple: si en ligne 19 j'ai un item avec le code A3
puis la ligne 20 est vide
puis en ligne 21 j'ai un item avec le code A4 et non A5

je sais pas si je suis assez clair :calim2:

merci bcp :D
10/03/2012, 22h53
BlueMonkey

Re.

Pas de problème. On fait tous des erreurs. :D

Mais je ne comprends pas cette partie :

Citation:

si en ligne 19 j'ai un item avec le code A3, puis la ligne 20 est vide
puis en ligne 21 j'ai un item avec le code A4 et non A5

C'est pas tout le contraire de ce qui était demandé ici ?
http://www.developpez.net/forums/att.../capture1.png/
10/03/2012, 23h05
Biggy30

non c'est exactement ca en fait...sur cette image, j'ai encerclé le deuxième item par contre il est numéroté comme étant le troisième (S3) et devrait plutot se nommer S2 même si je passe une ligne vide

autrement dit je voudrais empêcher la concaténation si il y a des lignes vides
10/03/2012, 23h25
BlueMonkey

Dans ce cas si les lignes sont vides (y compris la colonne quantité) ça devrait fonctionner.
En tous les cas lors de mes tests avec le code du post #16 ça fonctionne.
11/03/2012, 00h42
Biggy30

Bon tant pis...ou alors je me suis mal exprimé ou alors c'est bizarre car chez moi ca ne fonctionne pas 8O8O

merci a toi énormement pour toute l'aide apporté jusqu'a présent

Cordialement

:ccool:

Re.

Je pense avoir reproduit le problème.
Lorsque des lignes "vides" sont insérées via le formulaire, ce sont des caractères " " qui sont ajoutés.

Avec le code ci-dessous, le problème semble corrigé.

Code:

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
Sub codage()
 
    With Worksheets("ORIGINALE")
            .Unprotect Password:="popol"
 
            Dim code As String
            code = Worksheets("PROGRAMME").[D14].Value
 
            Dim dl1 As Long
            dl1 = 0
            With Worksheets("ORIGINALE")
                Dim r As Range
                For Each r In .Range("A17:A" & .Range("A" & Rows.Count).End(xlUp).Row)
                    If Trim(r.Value) <> "" Then 'Quantité non vide
                        dl1 = dl1 + 1
                        If (r.Offset(0, 10).Value) = "" Then ' code alphanumérique vide
                            r.Offset(0, 10).Value = code & dl1
                            Exit For
                        End If
                    End If
                Next r
            End With
 
            .Protect Password:="popol"
    End With
 
    Sheets("PROGRAMME").Activate
End Sub

11/03/2012, 13h15
Biggy30

Haaaaaa !

Voilou voilà !! Là c'est vraiment au poil !
Merci infiniement Blue Monkey pour toute ton aide je t'en suis
extremement reconaissant, grace a toi mon programme est nickel
comme je le voulais...

Cordialement
Éric

:ccool::merci::merci::chin:
11/03/2012, 13h28
BlueMonkey

Re.

Content pour toi que tu aies finalement une solution qui convienne. :ccool:
Bonne journée.

Voir 40 message(s) de cette discussion en une page