Probleme avec un code VBA pour numerotation automatique
shirl972 -  
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

  • Votes
  • Date
  • Date décroissante
  1. Pierre1310
    Salut,

    Qu'est-ce que 
    Range("numerodevis")
    ?
    1. shirl972 Auteur
      bonjour,

      range fait référence à la cellule enregistrée "numero devis" non ??
    2. Pierre1310
      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
  2. shirl972 Auteur
    la cellule est en b19
    je fais donc range( b19) ?
    1. Pierre1310
      Non, Range("B19")
    2. shirl972 Auteur
      mais je l'ai enregistrée comme numerodevis donc lorsque tu sélectionnes la cellule numerodevis apparaît et non plus B19
    3. shirl972 Auteur
      j'ai essayé comme tu me dis mais j'ai le meme message d'erreur
    4. Pierre1310
      Fait cells(19,2).activate
  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