XL 2021 Mon codage ne fonctionne pas il devrais créer un numero automatique

[vero72]

bonjour, j'ai un problème mon code ne fonctionne pas et je ne vois pas ou est le soucis.

Sub ajoutercode()
Dim wste As worsheet
Dim wsDash As Worksheet
Dim lastRow As Long
Dim newID As Long
Dim lastvalue As Variant

On Error GoTo errorhabdler
Set wste = ThisWorkbook.Sheets("database")
Set wsDash = thisworksbook.Sheets("dashdoard")

lastRow = wsto.Cells(wsto.Rows.Count, "A").End(xlUp).Row


If lasrow < 3 Then
MsgBox "Ajouter le code manuellement comme de :1000"
Exit Sub
End If

lastvalue = wsto.Cells(lastRow, "1").Value
If latmeric(lastvalue) Then
newID = lastvalue + 1
Else
MsgBox "Le code trouvé dans la colonne A n'est pas numérique."
Exit Sub
End If

wsDash.Range("D1").Value = newID
Exit Sub
errordandler:
MsgBox " An error occurred:" & Err.Description


End Sub

 

[Dan]

Bonjour et bienvenue sur ce forum

Pour une meilleure compréhension de ce qui ne fonctionne pas, pensez à ajouter un fichier sans données sensibles

Sinon à cette ligne petite erreur de code. remplacez par cette ligne

If IsNumeric(lastvalue) Then

Aussi votre déclaration à corriger

Dim wsto As worksheet

plus bas -->

ThisWorkbook

NB : petit détail (qui n'influence pas le déroulé du code), ceci est plus correct (en anglais) -->

ErrorHandler

Cordialement

 

[TooFatBoy]

Bonjour et bienvenue sur le site.

mon code ne fonctionne pas

Lis le code que tu as posté, et corrige-le dans ton message car il est plein d'incohérences.
Et profites-en pour l'encadrer par la balise [ code=vb ] et [ /code ] pour qu'il soit plus lisible sur le forum.

 

[TooFatBoy]

NB : petit détail (qui n'influence pas le déroulé du code)

Un peu tout de même. 😉

 

[patricktoulon]

Bonjour

Set wste = ThisWorkbook.Sheets("database")
Set wsDash = thisworksbook.Sheets("dashdoard")

lastRow = wsto.Cells(wsto.Rows.Count, "A").End(xlUp).Row

????????????????

 

[Dan]

Un peu tout de même. 😉

Non pour autant que le nom sur "On error resume" est identique à celui mentionné à la fin

 

[TooFatBoy]

Non pour autant que le nom sur "On error resume" est identique à celui mentionné à la fin

Pourtant :

On Error GoTo errorhabdler
...
errordandler:

Mais ce n'est qu'une des incohérences du code posté.

Il y a aussi :

Set wsDash = thisworksbook.Sheets("dashdoard")

Et peut-être aussi :

Dim wste As worsheet
...

Set wste = ThisWorkbook.Sheets("database")
...
lastRow = wsto.Cells(wsto.Rows.Count, "A").End(xlUp).Row

Du coup, j'ai aussi un doute sur le nom de la fonction latmeric.

 

[Dan]

Au final, plus simple de vous remettre le code complet

Vérifiez aussi si votre feuille est bien nommée dashdoard.

Si ok et terminé, pensez à cliquer sur la case à cocher à droite (le petit V) pour fermer le fil.

Option Explicit
Sub ajoutercode()
Dim wsto As Worksheet
Dim wsDash As Worksheet
Dim lastRow As Long
Dim newID As Long
Dim lastvalue As Variant

On Error GoTo errorhandler
Set wsto = ThisWorkbook.Sheets("database")
Set wsDash = ThisWorkbook.Sheets("dashdoard")

lastRow = wsto.Cells(wsto.Rows.Count, "A").End(xlUp).Row

If lastRow < 3 Then
    MsgBox "Ajouter le code manuellement comme de :1000"
Exit Sub
End If

lastvalue = wsto.Cells(lastRow, "1").Value
If IsNumeric(lastvalue) Then
    newID = lastvalue + 1
    Else
    MsgBox "Le code trouvé dans la colonne A n'est pas numérique."
Exit Sub
End If

wsDash.Range("D1").Value = newID
Exit Sub
errorhandler:
MsgBox " An error occurred:" & Err.Description
End Sub

 

[Valtrase]

Bonjour à tous,
@vero72, Si vous preniez l'habitude de :

1. Mettre Option Explicit en tête du module.
2. Lancer un compilation, avant tout test.

Cela vous éviterait pas mal de déconvenues de ce style...