Aide pour la création d'un script

Version imprimable

10/04/2013, 17h25
oboigelot

Aide pour la création d'un script

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
10/04/2013, 17h51
patricktoulon

heu

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 :mouarf::mouarf:

Au plaisir
10/04/2013, 18h03
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

Bonjour,

Voila qui devrait te depanner

Code:

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

11/04/2013, 10h37
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 :D

Olivier
11/04/2013, 10h39
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:

Debug.Print

par

Code:

MsgBox

Bonne journée
11/04/2013, 11h09
oboigelot

Je viens de remplacer Debug.Print par MsgBox, mais il ne se passe rien de plus.:?
11/04/2013, 11h25
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
11/04/2013, 11h29
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
11/04/2013, 11h43
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:

If Err = 5 Then

par

Code:

If Err <> 0 Then

Bonne journée
11/04/2013, 11h46
oboigelot

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

Merci beaucoup encore une fois.

Cordialement

Olivier