Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Incrémentation automatique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ks102
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

ks102

Guest
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:

VB: 
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 !
 
Trier par date Trier par votes
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
VB: 
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
 
Vote positif 0 Vote négatif


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...
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
177
Magic_Doctor
N
  • Question Question
Microsoft 365 TEXTBOX pour filtrer un TCD
Réponses
6
Affichages
292
Hecatonchire
H
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
228
cathodique
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
649
nat54
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
457
mikeduff
M
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
764
thunder23
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
N
  • Question Question
Microsoft 365 Remplissage automatique d'une feuille à l'autre
Réponses
2
Affichages
398
Nonoo
N
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
428
sebastien176
S
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
D
  • Résolu(e)
XL 2016 Erreur 1004 : select
Réponses
7
Affichages
657
patricktoulon
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
758
MBEPID
M
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
1 K
Dranreb
  • Question Question
XL 2013 Sub commentaire
Réponses
2
Affichages
377
lestoiles1
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
3 K
NONO14
N
  • Résolu(e)
XL 2021 Comportement bizarre en Batch
Réponses
12
Affichages
395
jurassic pork
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
626
AtTheOne
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
403
Pierreavecunp
P
G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
547
gillesda
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…