Probleme avec un code VBA pour numerotation automatique

Fermé

shirl972 Messages postés 31 Date d'inscription dimanche 21 juin 2015 Statut Membre Dernière intervention 11 août 2016 - 11 août 2016 à 16:52
Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 - 11 août 2016 à 19:42

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:

Probleme avec un code VBA pour numerotation automatique
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Numérotation page word - Guide
Code activation windows 10 - Guide

3 réponses

Réponse 1 / 3

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
11 août 2016 à 16:53

Salut,

Qu'est-ce que

Range("numerodevis")

shirl972 Messages postés 31 Date d'inscription dimanche 21 juin 2015 Statut Membre Dernière intervention 11 août 2016
11 août 2016 à 16:56

bonjour,

range fait référence à la cellule enregistrée "numero devis" non ??

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
11 août 2016 à 16:57

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

Réponse 2 / 3

shirl972 Messages postés 31 Date d'inscription dimanche 21 juin 2015 Statut Membre Dernière intervention 11 août 2016
11 août 2016 à 17:08

la cellule est en b19
je fais donc range( b19) ?

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
11 août 2016 à 17:10

Non, Range("B19")

shirl972 Messages postés 31 Date d'inscription dimanche 21 juin 2015 Statut Membre Dernière intervention 11 août 2016
11 août 2016 à 17:12

mais je l'ai enregistrée comme numerodevis donc lorsque tu sélectionnes la cellule numerodevis apparaît et non plus B19

shirl972 Messages postés 31 Date d'inscription dimanche 21 juin 2015 Statut Membre Dernière intervention 11 août 2016
11 août 2016 à 17:14

j'ai essayé comme tu me dis mais j'ai le meme message d'erreur

Pierre1310 Messages postés 8564 Date d'inscription lundi 21 décembre 2015 Statut Membre Dernière intervention 21 juillet 2020 649
11 août 2016 à 17:14

Fait cells(19,2).activate

shirl972 Messages postés 31 Date d'inscription dimanche 21 juin 2015 Statut Membre Dernière intervention 11 août 2016
11 août 2016 à 17:19

https://www.cjoint.com/c/FHlpsQmTNbU

Réponse 3 / 3

Maurice
11 août 2016 à 17:55

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

Discussions similaires

Codes bateaux et avion GTA vice city Stories

Code de renvoi d'appel : Ooredo, Mobilis...

code d'activation GTA 5 steam