Discussion :

[Biggy30]

Bonjour a tous !

J'ai un bout de code, que voici :

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
 
Dim code As String
code = Sheets("PROGRAMME").Range("D14").Text
Dim l As Integer
Dim myRange As Range
Dim num As Long
Dim dl1 As Long ' dernière ligne
dl1 = Sheets("ORIGINALE").Range("K65536").End(xlUp).Row
Set myRange = Sheets("ORIGINALE").Range("K" & dl1)
num = Application.WorksheetFunction.Max(myRange) + 1
 
Sheets("ORIGINALE").Unprotect Password:="popol"
Sheets("ORIGINALE").Select
l = Sheets("ORIGINALE").Range("K65000").End(xlUp).Row + 1
With Sheets("ORIGINALE")
.Range("K" & l) = code & num
End With
Sheets("ORIGINALE").Protect Password:="popol"
Sheets("PROGRAMME").Activate

qui devrait me servir a implémenter un code alphanumérique d'une ligne a l'autre (cellule K17 = ZZ1, cellule K18 = ZZ2, etc), mais malheureusement ce code ne marche pas dans mon projet...mais il fonctionne dans un nouveau projet vide !

Je vous demande donc si le fait que j'ai ceci pour implémenter mes lignes :

Code :

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

1
2
Dim Ligne As Long
Ligne = Sheets("ORIGINALE").Range("A" & Rows.Count).End(xlUp).Row + 1

pourrais entrer en conflit avec l'autre bout de code??? sinon ou est le problème???

Merci de le tester chez vous et de m'aider avec ceci.

PS: je l'ai déjà dit mais je le réitère: je suis plutôt novice en vba !!

[gFZT82]

Bonjour,

En toute rigueur, tu dois écrire

Code :

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

Ligne = Sheets("ORIGINALE").Range("A" & Sheets("ORIGINALE").Rows.Count).End(xlUp).Row + 1

Cordialement.

[BlueMonkey]

Bonjour,

Il y a plusieurs lignes dont je n'ai pas bien compris l'intérêt :

Code :

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

1
2
3
4
5
6
Dim myRange As Range
Dim num As Long
Dim dl1 As Long ' dernière ligne
dl1 = Sheets("ORIGINALE").Range("K65536").End(xlUp).Row
Set myRange = Sheets("ORIGINALE").Range("K" & dl1)
num = Application.WorksheetFunction.Max(myRange) + 1

La valeur maximum d'une cellule, c'est la valeur de la cellule. Pourquoi chercher un maximum sur une cellule avec WorksheetFunction.Max?

La sélection d'une feuille n'est pas nécessaire pour exécuter un code qui modifie le classeur. Donc Sheets("ORIGINALE").Select doit être inutile.

Sinon pour ce qui est de faire une concaténation d'une cellule se trouvant en
Feuille PROGRAMME, cellule D14, en incrémentant l'indice de la dernière concaténation qui se trouve en feuille "Originale", fin de la colonne K.

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
With Worksheets("ORIGINALE")
        .Unprotect Password:="popol"
 
        Dim code As String
        code = Worksheets("PROGRAMME").[D14].Value
 
        Dim dl1 As Long ' dernière ligne
        dl1 = .Range("K" & Rows.Count).End(xlUp).Row
 
        Dim num As Long
        If Len(.Range("K" & (dl1)).Value) > Len(code) Then
            num = Mid(.Range("K" & (dl1)).Value, Len(code) + 1) + 1
        Else
            num = 1
        End If
 
        .Range("K" & (dl1 + 1)).Value = code & num
 
        .Protect Password:="popol"
End With

Edit : Autre solution si le code ne change pas, on peut utiliser l'autofill :

Code :

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

1
2
3
4
5
        If Len(.Range("K" & (dl1)).Value) > Len(code) Then
            .Range("K" & (dl1)).AutoFill Destination:=.Range("K" & dl1 & ":K" & (dl1 + 1)), Type:=xlFillDefault
        Else
            .Range("K" & (dl1 + 1)).Value = code & 1
        End If

[Biggy30]

Salut Blue Monkey et merci pour ton code
mais j'ai une erreur "Incompatibilité de type" sur cette ligne:

Code :

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

 num = Mid(.Range("K" & (dl1)).Value, Len(code) + 1) + 1

J'imagine que comme mes données sont entrées a partir de la ligne 17 et non de la ligne 1 c'est pour ca que ca ne fonctionne pas ?!?!?

C'est malheureux car mon code "fonctionnait" jusqu'a un certain point...il ajoutais la lettre (code) inscris dans la cellule D14 de la feuille PROGRAMME ,le seul hic c'est qu'il écrivais toujours un 1 apres le code je voudrais simplement une légère modification de mon code qui fasse en sorte que le chiffre apres le code se concatène...(comme vous dites)

et au passage, désolé du manque d'éducation mais c'est quoi Len
ex:

Code :

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

Len(.Range("K" & (dl1)).Value) > Len(code) Then

que vaut, ou représente Len ??

Merci d'avance

[BlueMonkey]

Re.

je voudrais simplement une légère modification de mon code qui fasse en sorte que le chiffre apres le code se concatène

Le soucis est que le code donné est premier post contient plusieurs partie dont je ne comprends pas l'utilité (voir questions précédentes).
Et pour maintenir il est toujours préférable de partir de quelque chose d'aussi simple que possible. C'est pourquoi j'ai simplifié, tout faisant la même fonction.

j'ai une erreur "Incompatibilité de type"

Le message d'erreur provient probablement qu'en [K17] on a des caractères qui ne correspondent pas au format <code>+<incrément numérique>.
Est ce qu'il est possible de vérifier le contenu de [K17]?

Si dans la partie numérique, on a des lettres au lieu de ce qui a été présenté, il y aura une incompatibilité de type.

J'imagine que comme mes données sont entrées a partir de la ligne 17 et non de la ligne 1 c'est pour ca que ca ne fonctionne pas

dl1 = .Range("K" & Rows.Count).End(xlUp).Rows'occupe de retrouver le numéro de la dernière ligne non vide de la colonne K.
Ca devrait commencer en ligne K17 si cette cellule n'est pas vide.

Autre solution de code si le numéro de l'incrément commence toujours en ligne 17 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With Worksheets("ORIGINALE")
        .Unprotect Password:="popol"
 
        Dim code As String
        code = Worksheets("PROGRAMME").[D14].Value
        Dim dl1 As Long ' dernière ligne
        dl1 = .Range("K" & Rows.Count).End(xlUp).Row
        If dl1 <= 16 Then dl1 = 16
        .Range("K" & (dl1 + 1)).Value = code & (dl1 - 15)
 
        .Protect Password:="popol"
End With

Len(<chaîne de caractère>) retourne le nombre de caractère d'une chaîne.

[Biggy30]

Tout d'abord merci de ton aide et de ta patiente !

Premierement, a la base, toute les cellules sont vides sur cette feuille donc K17 est vide, je ne sais pas si ca peut causer l'erreur Incompatibilité

Et secondo, oui, mes lignes se remplissent toujours depuis la ligne 17 donc j'essaie ton autre code et je te reviens la dessus

Merci infiniement !

[Biggy30]

IMPEC MONSIEÛX !!!!

C'est toi le roi du labo !!!
C'est exactement ce que je cherchais!!

Merci mille fois Blue Monkey
Cordialement

[BlueMonkey]

Content que le code fonctionne comme tu le souhaites.
Je suis sur que lorsque tu reviendras sur ce code, ça sera plus simple à comprendre que le code d'origine.
Bonne après-midi.

P.S. Je ne m'explique pas le plantage de la première version du code. (même avec toutes les cellules vides ça fonctionnait.
Mais bon maintenant qu'il y a une solution qui marche, on va pas de faire des noeuds dans la tête.

[Biggy30]

Salut BlueMonkey...

comme je te disais dans le message privé que je t'ai envoyé,
j'ai 2 capture d'écran pour te montrer les 2 pépins que je dois
contourner

[BlueMonkey]

Bonsoir,

D'après les captures d'écrans tu souhaites ajouter une valeur, une ligne sur 2, en partant de la ligne 17 et dans la colonne "K".
Si c'est bien le cas, essaye ceci. Sinon il faudra expliquer les règles qui définissent la ligne d'insertion du résultat alphanumérique.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    With Worksheets("ORIGINALE")
            .Unprotect Password:="popol"
 
            Dim code As String
            code = Worksheets("PROGRAMME").[D14].Value
            Dim dl1 As Long
            dl1 = GetLastLine()
            .Range("K" & (17 + (dl1 - 1) * 2)).Value = code & dl1
 
            .Protect Password:="popol"
    End With

Et en ajoutant cette fonction dans la même feuille ou module

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
Private Function GetLastLine() As Long
    Dim dl1 As Long ' dernière ligne
    dl1 = 1
 
    With Worksheets("ORIGINALE")
        Dim r As Range
        For Each r In .Range("K17:K" & .Range("K" & Rows.Count).End(xlUp).Row)
            If (r.Value <> "") Then
                dl1 = dl1 + 1
            End If
        Next r
    End With
 
    GetLastLine = dl1
End Function

[Biggy30]

Salut BlueMonkey

tout d'abord merci bcp pour toute l'aide que tu m'as apporter jusqu'a maintenant...

Bon en fait c'est très aléatoire mon truc....je ne veux pas un code une ligne sur deux....mais un code sur la meme ligne ou figure les quantités disons....car quelques fois les données d'une porte d'armoire se retrouve sur 2 lignes selon les options que je choisis, quelques fois juste sur une ligne et d'autres fois les données peuvent s'étaler sur 4 lignes pour le même item, dans ce dernier cas comme pour les autres je désirerais avoir le code sur la première ligne de l'item

je sais c'est complexe !!! si cela n'est pas fesable...j'entrerai les codes manuellement..tant pis !!

Merci

[BlueMonkey]

Bonjour,

je ne veux pas un code une ligne sur deux....mais un code sur la meme ligne ou figure les quantités

Si les quantités figurent dans la colonne C et les codes à ajouter dans la colonne K, ceci devrait fonctionner.

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
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("C17:C" & .Range("C" & Rows.Count).End(xlUp).Row)
                    If (r.Value <> "") Then 'Quantité non vide
                        dl1 = dl1 + 1
                        If (r.Offset(0, 8).Value = "") Then ' code alphanumérique vide
                            r.Offset(0, 8).Value = code & dl1
                            Exit For
                        End If
                    End If
                Next r
            End With
 
            .Protect Password:="popol"
    End With
End Sub

[Biggy30]

la case K est vide...rien ne s'y écrit

[BlueMonkey]

Les quantités sont bien en colonne C, et les cellules en colonne K sont bien vide (sans formule) ?

[Biggy30]

non en fait les quantités sont en A donc j'ai changé C pour A mais le code de l'item ne s'écris plus...la cellule K reste vide

[BlueMonkey]

Si la quantité se trouve en A, il faut ajuster les offsets entre A et K

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
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 (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
End Sub

[Biggy30]

oui t'inquiète je les ai changé aussi...mais ca ne fonctionne pas

Petite question pertinente :

avec ce code que tu m'avais refilé :

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
 
Sub codage()
 
With Worksheets("ORIGINALE")
        .Unprotect Password:="popol"
 
        Dim code As String
        code = Worksheets("PROGRAMME").[D14].Value
        Dim dl1 As Long ' dernière ligne
        dl1 = .Range("K" & Rows.Count).End(xlUp).Row
        If dl1 <= 16 Then dl1 = 16
        .Range("K" & (dl1 + 1)).Value = code & (dl1 - 15)
 
        .Protect Password:="popol"
End With
End Sub

pourrais-je appeler la procédure directement dans l'ajout d'un range sur une autre procédure ?? exemple: (j'ai tronqué le code regarde sur le range k)

Code :

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

1
2
3
4
5
6
7
8
 
Sheets("ORIGINALE").Range("I" & Ligne + 1) = "M2: " & Sheets("PROGRAMME").Range("E27") & """"
Sheets("ORIGINALE").Range("J" & Ligne + 1) = " "
Sheets("ORIGINALE").Range("K" & Ligne + 1) = codage 'ici
Sheets("ORIGINALE").Range("L" & Ligne + 1) = " "
Sheets("ORIGINALE").Range("M" & Ligne + 1) = "TR1: " & Sheets("PROGRAMME").Range("E28") & """"
Sheets("ORIGINALE").Range("N" & Ligne + 1) = "TR2: " & Sheets("PROGRAMME").Range("E29") & """"
Sheets("ORIGINALE").Range("O" & Ligne + 1) = " "

cela fonctionnerait-il ??

[BlueMonkey]

Les quantités commencent bien après la ligne 17 ?
Le code alpha à ajouter se trouve bien dans la feuille "PROGRAMME" cellule D14 ?


[Edit]

pourrais-je appeler la procédure directement dans l'ajout d'un range sur une autre procédure

Je ne vois pas ce que c'est que "l'ajout d'un range sur une autre procédure".
Mais dans le principe on peut appeler une routine SUB ... End Sub depuis n'importe quelle autre routine.
(à condition de respecter les limitations de portée Private, Public ... pour des routines déclarées dans d'autres modules)

Mais pour affecter le résultat d'un appel de routine, il faut que ce soit une fonction (qui retourne une valeur).

Ce qui suit ne fonctionnera pas car codage ne retourne pas de valeur.

Code :

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

Sheets("ORIGINALE").Range("K" & Ligne + 1) = codage

[Biggy30]

ok donc si ma procédure s'appelle codage...
puis-je faire ceci :

Code :

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

Sheets("ORIGINALE").Range("K" & Ligne + 1) = codage

ou il faut absolument mettre l'argument Call ??
et oui ca commence bien en ligne 17
et le code alpha est bien sur la feuille PROGRAMME D14

[BlueMonkey]

ou il faut absolument mettre l'argument Call ??
et oui ca commence bien en ligne 17
et le code alpha est bien sur la feuille PROGRAMME D14

Je ne vois pas d'explication au problème.
Est-ce que tu peux poster un fichier pour trouver d'où vient le problème.

puis-je faire ceci :
Sheets("ORIGINALE").Range("K" & Ligne + 1) = codage

Ca n'est pas possible parce que codage ne retourne pas de valeur.
Il faudrait que ce soit une fonction qui retourne une valeur.