Incrémentation et ajout de lignes

[Imer2007]

Bonjour le forum,

Une question sûrement toute bête mais je tourne en rond depuis un moment.

J'ai un tableau de données comme dans l'exemple et ce que je souhaiterais, c'est que lorsque je clique sur nouvelle ligne, cela me créé une ligne à la fin de mon tableau avec dans la colonne B un numéro s'incrémentant.

A savoir, mes lignes contiendront des formules et des listes de validation.

Quelqu'un peut m'aider?

D'avance merci.

 

[tototiti2008]

Re : Incrémentation et ajout de lignes

Bonjour Imer,

jettes un oeil et dis-moi ce que tu en penses...

 

[Imer2007]

Re : Incrémentation et ajout de lignes

Y a rien à dire, c'est nickel chrome ! 😀

Merci !

 

[Imer2007]

Re : Incrémentation et ajout de lignes

Je suis allé un peu vite...

Effectivement l'incrémentation sans problème mais en revanche, les cellules qui contiennent les validations/formules ne sont pas copiées sur la nouvelle ligne créée...
J'ai loupé quelque chose ?😕

 

[tototiti2008]

Re : Incrémentation et ajout de lignes

Modifies le code de la feuil1 comme ceci :

Dim NumLigne As Long
    NumLigne = ActiveSheet.Range("b65536").End(xlUp).Offset(1, 0).Row
    Application.ScreenUpdating = False
    ActiveSheet.Range("B" & NumLigne - 1 & ":N" & NumLigne - 1).Copy
    ActiveSheet.Range("B" & NumLigne).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    [COLOR=red]ActiveSheet.Range("B" & NumLigne).PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _[/COLOR]
[COLOR=red]       SkipBlanks:=False, Transpose:=False[/COLOR]
    ActiveSheet.Range("B" & NumLigne).Value = ActiveSheet.Range("B" & NumLigne - 1).Value + 1
    Application.CutCopyMode = False
    ActiveSheet.Range("C" & NumLigne).Select
    Application.ScreenUpdating = True

Euh... pour les formules ? quelles formules ?

 

[Imer2007]

Re : Incrémentation et ajout de lignes

C'est tout bon pour les validations.

Pour les formules, je suppose qu'il doit y avoir un code dans le même genre.

 

[Imer2007]

Re : Incrémentation et ajout de lignes

Trouvé ! 🙂

merci encore. 😀

 

[Imer2007]

Re : Incrémentation et ajout de lignes

Un poil plus compliqué maintenant.
J'arrive à recopier entièrement les lignes de mon tableau avec incrémentation, validation et formules.

Mais... 😛

La nouvelle ligne créée recopie les valeurs de la ligne précédente, et j'aimerais savoir s'il était possible de ne pas afficher ces valeurs.
En gros qu'une ligne vierge soit créée (colonne C à N) mais qu'elle contienne quand même les validations et formules.

Possible ?

 

[Imer2007]

Re : Incrémentation et ajout de lignes

Ahem, bon j'ai rien dit... J'ai trouvé... 😀

 

[tototiti2008]

Re : Incrémentation et ajout de lignes

De toute façon j'aurais du mal à répondre à ces questions car ton fichier ne contenait pas de formules, il faudrait peut-être que tu m'en fournisse un avec pour que je puisse jeter un oeil...