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+