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

Numérotation

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nrdz83
  • 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

nrdz83

XLDnaute Impliqué
Bonjour, j'utilise ces formules dans un tableau pour faire une numérotation automatique.
Code: 
=SI($A3="";"";1)
puis =SI($A4="";"";$B3+1)

ça fonctionne bien mais si j'efface une ligne du coup ça m'efface également ma formule.

Est il possible de l'automatiser en vba et de l'intégrer à mon code éxistant?
Code: 
Private Sub CommandButton2_Click()
 
 ' Mise en place des valeurs saisies
    DerLig = [A65000].End(xlUp).Row + 1
    Cells(DerLig, 1).Value = ComboBox5
    Cells(DerLig, 3).Value = TextBox1
    Cells(DerLig, 4).Value = TextBox2
    Cells(DerLig, 5).Value = TextBox3
    If OptionButton1.Value = True Then
    Cells(DerLig, 6).Value = TextBox4.Value & ""
    ElseIf OptionButton2.Value = True Then Cells(DerLig, 6).Value = TextBox4.Value & " ml"
    ElseIf OptionButton3.Value = True Then Cells(DerLig, 6).Value = TextBox4.Value & " m²"
End If
    Cells(DerLig, 7).Value = TextBox5
    Cells(DerLig, 8).Value = TextBox6
    Cells(DerLig, 9).Value = ComboBox6

Par avance merci à tous.
 

Pièces jointes

Trier par date Trier par votes
Re : Numérotation

bonjour et merci gilbert, pas mal également ta formule.
Mais est il possible de l'intégrer à mon code car j'ai peur que si des utilisateurs efface les ligne ou le contenus ça va me supprimer les formules.
Merci pour tes lumières
 
Vote positif 0 Vote négatif
Re : Numérotation

Code: 
Private Sub CommandButton2_Click()
 
 ' Mise en place des valeurs saisies
    DerLig = [A65000].End(xlUp).Row + 1
    Cells(DerLig, 1).Value = ComboBox5
    [COLOR=Red]cells(derlig,2).FormulaR1C1 = "=IF(RC1="""","""",ROW()-2)"[/COLOR]
    Cells(DerLig, 3).Value = TextBox1
    Cells(DerLig, 4).Value = TextBox2
    Cells(DerLig, 5).Value = TextBox3
    If OptionButton1.Value = True Then
    Cells(DerLig, 6).Value = TextBox4.Value & ""
    ElseIf OptionButton2.Value = True Then Cells(DerLig, 6).Value = TextBox4.Value & " ml"
    ElseIf OptionButton3.Value = True Then Cells(DerLig, 6).Value = TextBox4.Value & " m²"
End If
    Cells(DerLig, 7).Value = TextBox5
    Cells(DerLig, 8).Value = TextBox6
    Cells(DerLig, 9).Value = ComboBox6

essaie ceci
 
Vote positif 0 Vote négatif
Re : Numérotation

Bonjour
C’est très intéressent cette formule qui ma résolu mon problème mais est-il possible que la numérotation des cellules qui suivent celle effacé prennent la suite des numéros qui précédent celle effacé
merci de votre collaboration
 
Vote positif 0 Vote négatif
Re : Numérotation


peut-être ceci
=NBVAL($A$3:A3)
tirer la formule vers le bas 😉
et pour ne pas avoir de répétition
=SI(A3="";"";NBVAL($A$3:A3))
devrait faire 😉
😉
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Numérotation

Re bonsoir à tous ce code fonctionne trés bien mais ne voit pas comment il est calculé, car je voudrais le modifier un peu.

Effectivement dans ma colonne B il me fait une numérotation automatique, mais des fois j'ai des lignes fusionnée et du coup il saute la numérotation, par exemple ligne 5 numérotation 005, ligne 6 ligne fusionné , et ligne 7 du coup il affiche 007.

Je cherche a ce que la numérotation ne compte pas la ligne fusionnée. Est réalisable?
merci par avance

Code: 
Private Sub CommandButton2_Click()
 
 ' Mise en place des valeurs saisies
    DerLig = [A65000].End(xlUp).Row + 1
    Cells(DerLig, 1).Value = ComboBox5
    cells(derlig,2).FormulaR1C1 = "=IF(RC1="""","""",ROW()-2)"
    Cells(DerLig, 3).Value = TextBox1
    Cells(DerLig, 4).Value = TextBox2
    Cells(DerLig, 5).Value = TextBox3
    If OptionButton1.Value = True Then
    Cells(DerLig, 6).Value = TextBox4.Value & ""
    ElseIf OptionButton2.Value = True Then Cells(DerLig, 6).Value = TextBox4.Value & " ml"
    ElseIf OptionButton3.Value = True Then Cells(DerLig, 6).Value = TextBox4.Value & " m²"
End If
    Cells(DerLig, 7).Value = TextBox5
    Cells(DerLig, 8).Value = TextBox6
    Cells(DerLig, 9).Value = ComboBox6
 
Vote positif 0 Vote négatif
Re : Numérotation

Bonsoir je reposte car suis toujours à la recherche d'une amélioration de mon code de façons à ce que ma numérotation prenne en compte le dernier chiffre de la colonne B et pas si une ligne fusionnée est insérée.
Par avance merci ,
 
Vote positif 0 Vote négatif
Re : Numérotation

Re,

regarde simplement la formule écrite dans une cellule.
Pour avoir un tel résultat, passe par l'éditeur de Macro : valide la formule écrite dans une cellule et tu auras une traduction dans la macro.
 
Vote positif 0 Vote négatif
Re : Numérotation

bonsoir lii en fait je pense que je ne prend pas vba par le bon bout, j'essaye souvent l'enregistreur de macro.
Mais toi tu parles de l'éditeur c'est la même chose.
Merci pour tes lumières bonne soirée,
 
Vote positif 0 Vote négatif
Re : Numérotation

rebonsoir toujours moi. Je viens de m'apercevoir que si je remets à zéro mon tableau, alors ensuite j'ai comme erreur #VALEUR" en B3.

et la formule
Code: 
=SI($A3="";"";LIGNE()-2)

Ce classeur je compte l'enregistrer ensuite comme modèle afin qu'on ne peut pas le modifier, mais est il possible de figer le code pour la première ligne?

merci pour vos réponses amitiés
 
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

Discussions similaires

  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
923
AtTheOne
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
519
Latias
L
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
1 K
Mody200
M
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
716
florian50470
F
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
6
Affichages
604
Appo1985
A
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
3
Affichages
540
job75
L
  • Question Question
Microsoft 365 ouverture fichier pptx sur sharepoint (vba)
Réponses
2
Affichages
775
lesoldat9
L
M
  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
1 K
Hasco
  • Question Question
XL 2016 Saisie formulaire dans une autre feuille
Réponses
2
Affichages
630
Cendrillon
A
  • Résolu(e)
XL 2010 ajout de textbox
Réponses
2
Affichages
929
Appo1985
A
B
  • Question Question
Microsoft 365 formulaire VBA problème
Réponses
3
Affichages
1 K
herve62
R
  • Résolu(e)
XL 2016 Un petit coup de main pour un code VBA
Réponses
11
Affichages
1 K
ReneDav14000
R
D
  • Question Question
XL 2019 Ignorer cellule vide liste combobox
Réponses
14
Affichages
1 K
Did25
D
P
  • Question Question
XL 2019 Ajouter une date de fin pour un débit/crédit récurrent via VBA
2
Réponses
19
Affichages
4 K
herve62
  • Question Question
XL 2019 Ajouter un " aperçu avant impression " à ce code
Réponses
7
Affichages
1 K
Yann71
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
D
  • Question Question
XL 2013 Mise en place d'une boucle pour copier des données dans une case différentes en fonction de la valeur d'une combobox
Réponses
13
Affichages
2 K
drumeiro
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…