Probleme avec un code VBA pour numerotation automatique

shirl972 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   -  
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je suis en train de réaliser un devis qui devra etre enregistrer avec un numero de devis automatique, je mets le code VBA
Sub numerodevis() (qui est la cellule enregistrée )
Worksheets("feuil1").Select
Range("numerodevis").Select
nextnum = ActiveCell.Value + 1
ActiveCell.Value = nextnum
End Sub

mais j'ai une erreur d'éxecution 9 qui s'affiche
quelqu'un pourrait m'aider ?



A voir également:

3 réponses

Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
Salut,

Qu'est-ce que
Range("numerodevis")
?
0
shirl972 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour,

range fait référence à la cellule enregistrée "numero devis" non ??
0
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
Il y a écrit numerodevis dans la cellule?

Si oui, ce n'est pas comme ça qu'on procède.

C'est range("AB) ligne A colonne B
0
shirl972 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
la cellule est en b19
je fais donc range( b19) ?
0
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
Non, Range("B19")
0
shirl972 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
mais je l'ai enregistrée comme numerodevis donc lorsque tu sélectionnes la cellule numerodevis apparaît et non plus B19
0
shirl972 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
j'ai essayé comme tu me dis mais j'ai le meme message d'erreur
0
Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
Fait cells(19,2).activate
0
shirl972 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
0
Maurice
 
Bonjour
tu enlève le vb dans les feuilles et le nom des cellules
et mettre dans un module
Sub Numerodevis()
   Range("B19").Value = Range("B19").Value + 1
End Sub


A+
Maurice
0