Ajout d'une colonne

[niepce26]

Bonjour,

Je viens vers vous car je n'arrive pas trouver la solution

J'ai ce code pris sur le forum, jusqu'a aujourd'hui il me convenait tres bien

Mais voilà c'est que d'autres valeurs se rajoute à chaque ligne et je coince contre la colonne IV.

Je ne souhaite pas passer sous excel 2007 pour avoir plus de colonnes.

Je vais juste tout inverser ligne/colonne

Donc pourriez vous m'indiquer la modification à apporter au code pour qu'a la validation de mon USF mes données s'insert sur une colonne ranger dans l'ordre alphabétique.

With WSCible
If .[A1].Value <> "" Then
Lig = .[A65536].End(xlUp).Row + 1
Else: Lig = 1
End If
.Cells(Lig, 1) = nomclient
.Cells(Lig, 2) = adr
.Cells(Lig, 3) = prenom
.Cells(Lig, 4) = cp
.Cells(Lig, 5) = ville
.Cells(Lig, 6) = tel1
.Cells(Lig, 50) = paiement



WSCible.Select

Range("A1").Select
Range("A1:IV65536").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox7 = ""

Merci par avance.

Niepce

 

[niepce26]

Re : Ajout d'une colonne

Re...Bonjour

Fichier ci-joint...

Merci

Niepce

 

[niepce26]

Re : Ajout d'une colonne

Oui Jean-Marcel c'est exactement cela...

Si la fonction de tri-alphabétique pouvait rester se serait un +++++ mais pas obligatoire.


Niepce

 

[niepce26]

Re : Ajout d'une colonne

Merci Jean-Marcel,

Désolé y' a un bug à l'inscription d'un deuxième adhérant.....

Niepce

 

[niepce26]

Re : Ajout d'une colonne

Olé

J'ai trouvé la solution, donc pour info il faut remplacer dans le code:

Col = .[IV1].End(xlToRight).Column + 1

par

Col = .[IV1].End(xlToLeft).Column + 1


Si quelqu'un à sous la main le code pour trier les colonnes en fonction de la ligne 1 je suis preneur....

Merci à tous et à Jean-Marcel....

Niepce

 

[Micke-31]

Re : Ajout d'une colonne

Salut Jean-Marcel,

Pourrais tu jeter un oeil sur la discussion
texte d'une cellule variable dans une msgbox
J'ai un problème pour la mise en pratique.

Merci et A+