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