Discussion :

[jo.2005]

Bonjour,

voilas j'ai requête SQL sous Excel me permettant de rajouter 1 a chaque numéro de dossier, mais cette requête ne fonctionne pas et je sait pas pourquoi (j'espère que je suis claire).

Code :

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

1
2
3
4
5
6
7
If L_Apporteur = "x" Then
    num = 75000
        For i = 1 To 10000
        If Left(Cells(i, 3), 1) = 2 Then If Cells(i, 3) > num Then num = Cells(i, 3)
        Next i
    T_dossier = num + 1
    Exit Sub.

si une personne pourrait me dire pourquoi son aide serait la bienvenue.

[Invité]

Code :

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

If Left(Cells(i, 3), 1) = 2  and Cells(i, 3) > num Then num = Cells(i, 3)

mais bon sans les tenant et les aboutissant!!!
de plus T_dossier = num + 1 n'est pas un auto-incrément au mieux il fait 75001 au pire 1 si Cells(i, 3)=0
de plus je ne voie pas de requête Sql!

[jo.2005]

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
33
34
35
36
37
38
39
40
41
42
Private Sub L_Apporteur_Change()
 
deb = Right(Year(Now), 2)
 
'T_dossier = ""
'On Error GoTo fin:
If C_Prospect = faux Then
 
    If L_Apporteur = "JO" Then
    num = 2000
        For i = 1 To 10000
        If Left(Cells(i, 3), 1) = 2 Then If Cells(i, 3) > num Then num = Cells(i, 3)
        Next i
    T_dossier = num + 1
    Exit Sub
    End If
 
    If L_Apporteur = "paris" Then
    num = 75000
        For i = 1 To 10000
        If Left(Cells(i, 3), 1) = 2 Then If Cells(i, 3) > num Then num = Cells(i, 3)
        Next i
    T_dossier = num + 1
    Exit Sub
    End If
 
    If L_Apporteur <> "" Then
    num = (deb & WorksheetFunction.VLookup(L_Apporteur, Sheets("PAram").Range("B2:C50"), 2, faux)) - 1
        For i = 1 To 10000
        If i = 605 Then
 '       MsgBox ("ok")
        End If
        If Left(Cells(i, 3), 3) = deb & Left(WorksheetFunction.VLookup(L_Apporteur, Sheets("PAram").Range("B2:C50"), 2, faux), 1) And Len(Cells(i, 3)) = 5 And Cells(i, 3).Text < (deb & ((WorksheetFunction.VLookup(L_Apporteur, Sheets("PAram").Range("B2:C50"), 2, faux)) + 49)) Then If Cells(i, 3) > num Then num = Cells(i, 3)
        Next i
    T_dossier = num + 1
    Exit Sub
    End If
 
End If
'fin:
'T_dossier = ""
End Sub

[Philippe Tulliez]

Bonjour,
Sauf si je lis mal, ce n'est pas une requête SQL que je sache.

[jo.2005]

Je pensait que cela s'appelait une requête sql désolé pour l'erreur je suis un novice. Tu as une solution pour permettre a 75000 de rajouter chaque fois + 1 quand je fait nouveau client ?

[Philippe Tulliez]

Bonjour,
Pour t'aider, il faudrait que tu expliques comment sont organisées tes données et où doit avoir lieu cette incrémentation.
A tout hasard, tu peux regarder cette contribution VBA / Fonction - Incrémentation de n° où j'ai publié le code d'une fonction d'incrémentation qui renvoie le chiffre 1 ou un nombre incrémenté suivant plusieurs paramètres.
C'est destiné à tout document document tel que offre, devis, courrier, facture, etc.
Il y a un classeur à télécharger avec des exemples.