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

Autofill incrémentation de numéro

abtony

XLDnaute Impliqué
Bonjour le forum, bon dimanche,

j'ai un petit soucis avec ce code, le but est d'incrémenté une série de numéro en colonne O.

En colonne O ligne Numéro 2 il y a le chiffre 2 identique au numéro de ligne d'excel.

Le but recherché, quand je supprime une ligne, les numéros en colonne O se retrouve avec un décalage par apport au lignes excel, donc il faut refaire l'incrémentation de la ligne 2 a la dernière ligne non vide pour que les numéros soit identique en colonne O et excel.

j'espère que c'est assez clair comme explication.

ci dessous le code actuel

merci d'avance pour votre aide

Cordialement
VB:
Sub incrementation_num()
'
' incrementation_num Macro
'

Range("O2").Select
On Error Resume Next
Selection.AutoFill Destination:=Range("O2" & "65350").End(xlUp).Row, Type:=xlFillDefault
End Sub
 

Paf

XLDnaute Barbatruc
Re : Autofill incrémentation de numéro

bonjour,

a priori

Range("O2").AutoFill Destination:=Range("O2:O" & Range("O" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault

avec en O2: =O1+1

A+
 

abtony

XLDnaute Impliqué
Re : Autofill incrémentation de numéro

Bonjour Paf,

J'ai essayer le code il me recopie le 2 en ligne 2 sur tout mes enregistrement soit 283 ligne

Si je met O2:=O2+1 la méthode globale a echoué ?
 

Paf

XLDnaute Barbatruc
Re : Autofill incrémentation de numéro

re,

J'ai essayer le code il me recopie le 2 en ligne 2 sur tout mes enregistrement soit 283 ligne
avec Type:=xlFillDefault c'est normal; c'est exactement comme si on tirait vers le bas une cellule contenant: 2

pour que ça fonctionne il faudrait en O1: 1 et en O2: =O1+1

Sinon, laisser 2 en O2 et remplacer Type:=xlFillDefault par Type:=xlFillSeries dans la ligne de code.

A+
 

st007

XLDnaute Barbatruc
Re : Autofill incrémentation de numéro

Bonjour,

Au risque d'avoir l'air ridicule,
ton code dans la feuille avec l'évenement change, ....

maintenant, j'aurais placé : =ligne() en colonne O
 

abtony

XLDnaute Impliqué
Re : Autofill incrémentation de numéro

Re Paf, Bonjourst007,

Paf avec Type:=xlFillSeries, ça fonctionne très bien et ça résout mon problème,

Encore une fois tu me sauve, merci infiniment

Bon Dimanche a vous

Cordialment

Antonio
 

Discussions similaires

Réponses
7
Affichages
405
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…