Probleme avec un code VBA pour numerotation automatique

shirl972 Messages postés 45 Date d'inscription   Statut Membre Dernière intervention   -  
Pierre1310 Messages postés 8854 Statut Membre -
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 ?

3 réponses

  1.
    Pierre1310 Messages postés 8854 Statut Membre 652
     
    Salut,

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

      range fait référence à la cellule enregistrée "numero devis" non ??
      0
    2. Pierre1310 Messages postés 8854 Statut Membre 652
       
      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
  2. shirl972 Messages postés 45 Date d'inscription   Statut Membre Dernière intervention  
     
    la cellule est en b19
    je fais donc range( b19) ?
    0
    1. Pierre1310 Messages postés 8854 Statut Membre 652
       
      Non, Range("B19")
      0
    2. shirl972 Messages postés 45 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
    3. shirl972 Messages postés 45 Date d'inscription   Statut Membre Dernière intervention  
       
      j'ai essayé comme tu me dis mais j'ai le meme message d'erreur
      0
    4. Pierre1310 Messages postés 8854 Statut Membre 652
       
      Fait cells(19,2).activate
      0
  3. 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