Incrémentation pour facture

Bonjour, j'ai besoin d'incrémenter mes numéros de factures.

Pour cela j'ai trouvé ce code sur ce forum:

Code:

Private Sub Workbook_Open()

Dim a As Long

a = Sheets("feuil1").Range("A1").Value

Sheets("feuil1").Range("A1").Value = a + 1

ThisWorkbook.Save

End Sub

Il fonctionne parfaitement bien, mais mon numéro de facture se trouve dans une cellule fusionnée, à savoir DE4.

De quelle manière mettre DE4 dans le code?

Faut-il une virgule, un tiret? Je ne trouve pas.

Merci pour la réponse.

Bonjour,

si tu peux, défusionne, sinon :

remplace Range("a1") par Range("d4:e4")

Claude.

Bonjour actra,

La valeur de 2 cellules fusionnées équivaut à la valeur de la cellule de gauche.

Exemple : si DE4=20 -> D4=20

Donc, normalement, il suffit juste de modifier le code en conséquence :

Private Sub Workbook_Open()
Dim a As Long
a = Sheets("feuil1").Range("D4").Value
Sheets("feuil1").Range("D4").Value = a + 1
ThisWorkbook.Save
End Sub 

Si ce n'est pas ça que tu veux, envoie un bout de ton fichier afin que l'on puisse voir.

A+

Merci pour la rapidité.

La solution de vba-new fonctionne parfaitement.

J'essayai obstinément de rentrer D et E dans le code.

Merci à dubois également pour la réponse, mais cela me procurai une erreur à l'ouverture du fichier.

A+

re,

Pour ta gouverne, et en règle générale :

le cellules fusionnées sont à bannir autant que possible, on peut toujours faire sans,

à part les en-têtes de colonnes.

cela entraine bien des soucis dans les macros (tris, filtres, recherches etc...)

N'oublie pas le petit résolu

Claude.

édit: exemple fait un petit code pour effacer D4, çà ne marchera pas.