Discussion :

[oboigelot]

Bonjour,

Je voulais créer mon premier script VBA, mais c'est finalement plus compliqué que prévu (pour moi en tout cas )

Voici ce dont j'ai besoin :
J'utilise un fichier excel avec plusieurs sheets, dans chaque sheet il y a une colonne qui contient des numéros de référence (de la forme Cnnnnn - par ex C01245, C02315, ...). Lorsque j'ajoute une ligne dans une des sheets, je dois regarder manuellement dans chaque sheet pour trouver le dernier numéro utilisé et l'incrémenter.

C'est ce que je voudrais automatiser avec un script.

Je voyais 2 approches :
- soit, comme manuellement, on parcours la bonne colonne dans chaque sheet, on trouve le numéro le plus élevé, et on l'incrémente.

- soit, plus simple à mon avis, mais moins joli, je crée une liste de 'nouveaux' numéros dans un sheet séparé, on prend le premier de la liste et on le supprime, comme ça le premier élément de la liste correspond toujours au numéro à utiliser.

Mais quelle que soit la solution, je n'ai pas trop d'idée pour le script...

Merci d'avance pour votre aide.

Olivier

[patricktoulon]

Bonjour
ton explication semblait être tres clair dans les 4 premières lignes et ensuite ca deviens incompréhensible

en tout cas pour trouver la dernière ligne utilisé il y a la fonction( end(xlup).row sur un range
explique un peu plus clairement ce que tu veux car je crois comprendre que la dernière ligne utilisée n'est pas le seul argument enfin si j'ai bien compris
ce qui est moins sur

Au plaisir

[oboigelot]

En fait, oui, il faut regarder la dernière ligne de la colonne C (colonne où les numéros de réference sont inscrits) de chaque sheet, vérifier lequel de ces numéros est le plus élevé, l'incrémenter, et l'insérer dans l'activecell.

Ce serait certainement plus clair avec un exemple de fichier, mais je ne sais pas si je peux attacher un document dans un post.

Merci pour ton aide

Olivier

[Guiiand]

Bonjour,

Voila qui devrait te depanner

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
Sub Indice()
 
    Dim wb As Workbook
 
    Set wb = ThisWorkbook
 
    On Error Resume Next
 
    For Each ws In wb.Worksheets
        With ws
            Fin = .Range("C" & Rows.Count).End(xlUp).Row
            No = CLng(Right(.Range("C" & Fin), Len(.Range("C" & Fin)) - 1))
            If Err = 5 Then
                Debug.Print "La derniere cellule de la feuille " & ws.Name & " n'est pas de la forme Cnnnnn"
                Err.Clear
            End If
            Max = WorksheetFunction.Max(Max, No)
        End With
    Next
 
    ActiveCell = "C" & Max + 1
 
End Sub

[oboigelot]

Super, ça fonctionne !

(par contre le contrôle d'erreur n'a pas l'air de fonctionner, mais ce n'est pas bien grave)

Merci beaucoup pour votre aide

Olivier

[Guiiand]

Re,

Ca affiche un message dans la fénétre execution de l'éditeur VBA.*

Si tu veux voir le message pendant l'execution du code, remplace

Code :

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

Debug.Print

par

Code :

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

MsgBox

Bonne journée

[oboigelot]

Je viens de remplacer Debug.Print par MsgBox, mais il ne se passe rien de plus.

[Guiiand]

Peut etre que tu n'as tout simplement pas d'erreur ^^

Si sur toutes tes feuilles, la dernière cellule de la colonne C contient "Cnnnnn" tu n'as pas d'erreur

[oboigelot]

J'ai essayé de mettre autre chose que Cnnnnn dans une des feuilles, je n'ai pas de message,

j'ai essayé de mettre aussi autre chose dans toutes les autres feuilles, et je n'ai pas d'erreur non plus (et le numéro généré est le "C1")

Je crois qu'il ne retourne probablement pas le bon code erreur ?

Merci

[Guiiand]

Re

en effet, en fonction du contenu de la cellule, il y a différents numéro d'erreur, je n'ai pas poussé les tests assez loin. Au pire, la fonction en elle même marche, mais si tu veux le message, tu peux remplacer

Code :

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

If Err = 5 Then

par

Code :

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

If Err <> 0 Then

Bonne journée

[oboigelot]

Ca fonctionne et c'est très bien comme ça !

Merci beaucoup encore une fois.

Cordialement

Olivier