Incrémentation automatique

[ks102]

Bonjour à tous,

N'étant pas expert en VBA j'ai besoin de votre aide...

J'essaye d'adapter un code qui indique qui permet d’incrémenté un numéro automatique,
Je demande à la macro d'aller inscrire sur le feuille "Test" dans la colonne "A" le numéro présent en "Z1" dans le feuille "EFNC".
Ensuite je lui dit d'ajouter +1 au numéro présent dans la feuille "EFNC" en cellule "Z1"

Voici mon code:

Sub Incrementation_num_FNC()

    ligne = Sheets("test").Range("A2").End(xlDown).Row + 1
    Sheets("test").Range("A" & ligne).Value = Sheets("EFNC").Range("Z1").Value
    Sheets("EFNC").Range("Z1").Value = Sheets("EFNC").Range("Z1").Value + 1
    
    
End Sub

Lorsque je fais fonctionner mon code, j'ai une erreur d'exécution 1004 qui apparaît sur la ligne 2 "Erreur définie par l'application ou par l'objet"

Dans l'attente de votre retour, je vous souhaite une bonne journée !

 

[Hasco]

Bonjour,

En effet s'il n'y a aucune cellule occupée sous A2 le calcul de la ligne donnera le numéro de la dernière ligne de la feuille +1 (Qui n'existe sur aucune feuille)
Prenez l'habitude de déclarer vos variables.
Essayez ceci

Sub Incrementation_num_FNC()
    Dim ligne As Long
    ligne = Sheets("test").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets("test").Range("A" & ligne).Value = Sheets("EFNC").Range("Z1").Value
    Sheets("EFNC").Range("Z1").Value = Sheets("EFNC").Range("Z1").Value + 1
  
  
End Sub

A bientôt

 

[ks102]

Bonjour,

En effet s'il n'y a aucune cellule occupée sous A2 le calcul de la ligne donnera le numéro de la dernière ligne de la feuille +1 (Qui n'existe sur aucune feuille)
Prenez l'habitude de déclarer vos variables.
Essayez ceci

Sub Incrementation_num_FNC()
    Dim ligne As Long
    ligne = Sheets("test").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets("test").Range("A" & ligne).Value = Sheets("EFNC").Range("Z1").Value
    Sheets("EFNC").Range("Z1").Value = Sheets("EFNC").Range("Z1").Value + 1
 
 
End Sub

A bientôt

Merci beaucoup pour votre réactivité ! ;-)

Alors le code fonctionne bien. J'ai bien l'incrémentation dans la cellule Z1.

Le seul "hic" c'est que la valeur dans la feuille test en colonne A est remplacé lors de l'incrémentation.
Ce que je souhaiterais c'est le numéro aille à la suite: Cellule A2, nouvelle incrémentation code en cellule A3, nouvelle incrémentation code en ceulle A4 etc...

Je ne sais pas si je suis clair dans ma demande...

 

[Hasco]

Re,

C'est normalement ce que la macro fait. Voir fichier joint.

Cordialement

 

[ks102]

Exact j'avais fais une erreur....
J'ai écris Cells(Rows.Count, 2) au lieu de Cells(Rows.Count, 1)

Ca fonctionne comme je le désire.

Merci beaucoup !
À bientôt