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

Incrementer de 1

  • Initiateur de la discussion Initiateur de la discussion Hamb
  • 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 !

H

Hamb

Guest
Bonjour le Forum,

Je voudrais a partir de ce petit bout de code qu’a la cellule « A2 », il incrémente de 1 chaque nom et prénom que je vais entrer, je ne sais pas faire ça !
« A2 » = 001 ; « A3 » = 002 etc. …
Si vous pouviez me dépanner je suis preneur.
Cordialement


Dim ligne As Integer
Sheets("donnees").Select
ligne = Range("B65536").End(xlUp).Row + 1
Range("B" & ligne).Value = newsalartxt1.Value
Range("C" & ligne).Value = newsalartxt2.Value
Range("D" & ligne).Value = "reception"
 
Re : Incrementer de 1

Bonjour Hamb

Peut-être comme ça :

Code:
'.../...
Range("A" & ligne).Value = Range("A" & ligne - 1) + 1
'.../...

Ou alors si c'est la première saisie :

Code:
'.../...
If ligne = 2 Then
  Range("A" & ligne).Value = 1
Else
  Range("A" & ligne).Value = Range("A" & ligne - 1) + 1
End If
'.../...


A+
 
Dernière édition:
- 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

Réponses
5
Affichages
909
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
903
Réponses
4
Affichages
754
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…