Autres Formules Excel

[Vitrerie]

Bonjour, J'aimerais que mon numéro de bon de commande change à chaque fois que j'ouvre un nouvel onglet. Est-ce que c'est possible de rajouter une date à chaque fois que je travaille un onglet? Je voudrais avoir la dernière date d'enregistrement. Mais je ne veux pas qu'elle change sur tous les onglets seulement ceux que je modifie.

Merci de votre aide!

 

[job75]

Bonjour Vitrerie,

Placez ce code dans ThisWorkBook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim w As Worksheet, maxi&
If LCase(Sh.Name) Like "client, numéro dossier (*)" Then
    For Each w In Worksheets
        If w.Name <> Sh.Name And UCase(w.[D2]) Like "BON DE COMMANDE*" Then _
            If w.[G2] > maxi Then maxi = w.[G2]
    Next
    Sh.[G2] = maxi + 1
    Sh.[F3] = Date
End If
End Sub

Quand on copie la feuille "Client, numéro dossier" en créant une nouvelle feuille les cellules G2 et F3 sont renseignées.

A+

 

[Vitrerie]

job75 je ne suis pas une championne en Excel... c'est ou que je peux trouver thisworkbook? merci

 

[job75]

Touches Alt+F11 pour aller dans VBA, ensuite double-clic en haut à gauche sur ThisWorkbook.

 

[Vitrerie]

Bonjour job75,

J'ai réussi à mettre ma formule. Mais quand je crée un nouvel onglet je dois copier mon onglet client numéro de dossier pour créer un nouveau bon de commande. Mais le numéro du bon de commande ne se mets pas automatiquement. Et je ne vois pas la date d'enregistrement non plus.

Je vous envoie le fichier pour que vous puissiez jeter un coup d'oeil.

Merci de votre aide.

 

[job75]

Bonjour Vitrerie,

Je vois que vous n'avez pas compris le fonctionnement :

- sélectionner la feuille "Client, numéro dossier"

- clic droit sur l'onglet => Déplacer ou copier...

- cocher "Créer une copie" => OK

- sur la feuille créée agrandissez la colonne F pour que la date en F3 soit lisible

- bien sûr il faut renommer la feuille.

A+

 

[Vitrerie]

merci je viens de réussir !!

 

[Vitrerie]

Bonjour Vitrerie,

Je vois que vous n'avez pas compris le fonctionnement :

- sélectionner la feuille "Client, numéro dossier"

- clic droit sur l'onglet => Déplacer ou copier...

- cocher "Créer une copie" => OK

- sur la feuille créée agrandissez la colonne F pour que la date en F3 soit lisible

- bien sûr il faut renommer la feuille.

A+