Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

vero72

XLDnaute Nouveau
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
 
Trier par date Trier par votes
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
VB: 
If IsNumeric(lastvalue) Then

Aussi votre déclaration à corriger
VB: 
Dim wsto As worksheet

plus bas -->
Code: 
ThisWorkbook

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

Cordialement
 
Dernière édition:
Vote positif 0 Vote négatif
Dan à dit:
Non pour autant que le nom sur "On error resume" est identique à celui mentionné à la fin
Cliquez pour agrandir...
Pourtant :
vero72 à dit:
On Error GoTo errorhabdler
...
errordandler:
Cliquez pour agrandir...
Mais ce n'est qu'une des incohérences du code posté.

Il y a aussi :
vero72 à dit:
Set wsDash = thisworksbook.Sheets("dashdoard")
Cliquez pour agrandir...

Et peut-être aussi :
vero72 à dit:
Dim wste As worsheet
...

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

Du coup, j'ai aussi un doute sur le nom de la fonction latmeric.
 
Vote positif 0 Vote négatif
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.

VB: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
509
job75
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
775
TooFatBoy
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
642
fanch55
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
652
patricktoulon
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
524
chinel
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
564
safranien
S
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
3 K
Rheeem
R
  • Résolu(e)
XL 2013 api createmetafile ne fonctionne pas comme createenHmetafile
2 3
Réponses
44
Affichages
1 K
jurassic pork
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
R
  • Résolu(e)
XL pour MAC La méthode "_default" de l'objet "Range" a échoué
Réponses
5
Affichages
355
Rod59
R
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
719
KRUG WOO
K
K
  • Résolu(e)
XL 2019 Probleme codage
Réponses
2
Affichages
500
Kevin42560
K
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
751
sylvanu
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
701
Gégé-45550
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
674
oguruma
  • Résolu(e)
XL 2013 customui copymemory qui fait encore des siennes
Réponses
8
Affichages
368
Rheeem
R
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…