code VBA : incrémentation dans une colonne

P

Pierrot93

Guest

• 23 Juin 2006

• #2

Bonjour Sylvain

les réponses d'hier n'ont pas solutionnées ton problème ??

Peux tu dire si tu récupère un message d'erreur ou si le résultat n'est pas celui attendu.

En principe avec les lignes de code fournis ca devrait fonctionner.

Bonne journée

@+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Juin 2006

• #3

bonjour Sylvain

petit coup de gueule !!!

il s'agit du même probleme que celui de ce fil

Ce lien n'existe plus

il serait agréable à ceux qui ont essayé de t'aider d'avoir des nouvelles sur ce fil et il est parfaitement inutile d'en créer un nouveau

 

Vote positif 0 Vote négatif

S

Sylvain

Guest

• 23 Juin 2006

• #4

Bonjour Pierrot93,

Les solutions d'hier n'ont pas fonctionné comme je le souhaitais. Mais j'avoue que je débute tout juste en VBA et que je suis, pour l'instant, incapable d'adapter le code à a guise.

Si tu peux m'éclairer, ça me donnerai un sacré coup de pouce.

Merci beaucoup.

 

Vote positif 0 Vote négatif

S

Sylvain

Guest

• 23 Juin 2006

• #5

Bonjour PierreJean,

Mille pardon mais puisque je n'avais pas répondu hier, je pensais que plus personne ne serait revenu voir mon post.

Sincèrement navré.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Juin 2006

• #6

bonjour sylvain

teste cela

MaLigne = Range('A65536').End(xlUp).Row + 1
Label14.Caption =cint(Label14.Caption)+1
Range(\\'A\\' & MaLigne) = Label14.Caption

et si probleme reviens sur ce fil

 

Vote positif 0 Vote négatif

T

TOFatJOB

Guest

• 23 Juin 2006

• #7

Bonjour,

MaLigne = Range('A65536').End(xlUp).Row + 1

tu testes la colonne A mais tu n'y écris jamais rien, c'est normal que 'MaLigne' reste = 1 !

Testes donc colonne B

MaLigne = Range('B65536').End(xlUp).Row + 1

 

Vote positif 0 Vote négatif

S

Sylvain

Guest

• 23 Juin 2006

• #8

bonjour pierrejean,
bonjour TOFatJOB,

merci pour votre code mais mon problème persiste tjr malgré tout. Le souci vient du fait du label14 qui contient la valeur '0' (par défaut).

L'autre souci (je pense) vient du fait que lorsque je valide (en cliquant sur mon commandButton) ma userform se ferme. Pour ressaisir des informations, je dois rappeler cette userform (qui ajoute donc 1 à chaque fois mais sans tenir compte de ce que j'ai fait avant)

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Juin 2006

• #9

re sylvain

voila un fichier dont tu peux t'inspirer

il est créé à partir d'une réponse deja donnée

http://cjoint.com/?gxk2uHVtVQ

 

Vote positif 0 Vote négatif

L

Louidji

XLDnaute Nouveau

• 3 Juillet 2012

• #10

Re : code VBA : incrémentation dans une colonne

Bonjour, j'ai le meme problème que Sylvain.

Mais la solution proposée n'est plus disponible visiblement.
J'ai créé un classeur XLS qui appel une Userform, avec 2 Textbox, dès le clique sur un CommandButton.
Lorsque je clique sur un CommandButton (situé sur ma Userform), les informations contenues dans les TextBox se recopient automatiquement dans tableau préalablement tracé a partir de la colonne B.

A chaque appel et saisie sur ma Userform, les informations se recopient à la suite du tableau.

Je souhaiterai qu'à chaque clique sur mon CommandButton de ma Userform, un numéro apparaisse dans la colonne 'A' (et s'incrémente à chaque clique), SI ce numéro n'existe pas ni sur cette colonne A, ni sur la colonne A de la feuille 2, assez similaire a la feuille 1 dont je parle depuis le début de ce post.
Je sais pas si c'est clair...
Merci beaucoup pour votre précieuse aide!

Edit: j'ai rajouté une pièce jointe très simplifié dans le sens où ca me convient si, dès qu'une cellule de la colonne est non-vide est considérée comme indexable.

Merci encore!

 

Pièces jointes

• index.xls

  108 KB · Affichages: 156
• index.xls

  108 KB · Affichages: 190
• index.xls

  108 KB · Affichages: 195

Dernière édition: 3 Juillet 2012

Vote positif 0 Vote négatif

L

Louidji

XLDnaute Nouveau

• 3 Juillet 2012

• #11

Re : code VBA : incrémentation dans une colonne

J'ai rajouté une PJ !
Merci!!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juillet 2012

• #12

Re : code VBA : incrémentation dans une colonne

Bonsoir Louidji,

Je crains de n'avoir rien compris .

A tout hasard cette macro dans le code de la feuille Tabelle1 :

Code:

Private Sub CommandButton1_Click()
Dim lig As Long
With Tabelle4
  lig = .Range("D65536").End(xlUp).Row + 1
  ActiveCell.EntireRow.Copy .Rows(lig) 'Copier-Coller
  .Cells(lig, 1) = .Cells(lig, 1) + 1 'incrémentation en colonne A
End With
End Sub

Voir le code voisin dans le code de la feuille Tabelle4.

Fichier joint.

PS : il aurait mieux valu créer un nouveau fil...

A+

 

Pièces jointes

• index(1).xls

  114 KB · Affichages: 129
• index(1).xls

  114 KB · Affichages: 133
• index(1).xls

  114 KB · Affichages: 154

Vote positif 0 Vote négatif

L

Louidji

XLDnaute Nouveau

• 3 Juillet 2012

• #13

Re : code VBA : incrémentation dans une colonne

Bonsoir Job75,
Tu as en partie résolu le pb mais c'est pas encore ca: ce que je voudrais, c'est que quand j'écris qque chose dans la tabelle1 colonne E, que la colonne A soit incrémenter. Ensuite si je veux couper-coller cette ligne sur la Tabelle2, l'indexation ne change plus.
Et si dans un dernier temps, je veux recouper-coller la ligne (qui est en Tabelle2) dans la feuille Tabelle1, que l'index reste toujours le même. Me suivez-vous?
Merci infiniment!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juillet 2012

• #14

Re : code VBA : incrémentation dans une colonne

Re,

Bien compliqué tout ça, je ne cherche pas à vous suivre.

Je vous conseille vraiment d'ouvrir un nouveau fil en donnant toutes les billes.

Vous parliez d'un UserForm et de TextBox 😕

A+

 

Vote positif 0 Vote négatif

L

Louidji

XLDnaute Nouveau

• 4 Juillet 2012

• #15

Re : code VBA : incrémentation dans une colonne

Hello,
Je viens de faire ce que tu m'as demandé: Lien supprimé

Merci beaucoup!!!

 

Vote positif 0 Vote négatif