aide sur code vba

[nrdz83]

Bonsoir à tous voila j'utilise ce code sur mon tableau mais il ne fonctionne pas quelqu'un pourrat il m'aider pour ce code d'avance merci à tous

Private Sub CommandButton1_Click()
' Mise en place des valeurs saisies
DerLig = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(DerLig, 1) = TxtFrançais
Cells(DerLig, 2) = TxtAnglais
End Sub


le lien du classeur >>>Cijoint.fr - Service gratuit de dépôt de fichiers

 

[job75]

Re : aide sur code vba

Bonjour,

Avec :

Cells(DerLig, 1) = "TxtFrançais"
Cells(DerLig, 2) = "TxtAnglais"

la macro fonctionnera à coup sûr 🙂

Sans guillemets, TxtFrançais et TxtAnglais sont considérés comme des variables par la macro, il faut dans ce cas les définir d'abord.

Edit : peut-être que ce sont des noms définis dans la feuille de calcul ? Ecrivez alors :

Cells(DerLig, 1) = Range("TxtFrançais")
Cells(DerLig, 2) = Range("TxtAnglais")

A+

 

[nrdz83]

Re : aide sur code vba

bonsoir job75 merci pour ton aide mais ça s'affiche TxtFrançais et TxtAnglaiset non les mots que je saisie . De plus ça s'affiche dans ma feuille accueil alors que je voudrais que ça s'affiche dans ma feuille Liste.
Merci d'avance 😉

 

[JCGL]

Re : aide sur code vba

Bonjour à tous,

Un essai

A+

Edition : Pour info, tu appelles ta TxtBox : TxtFrançais dans la code et TextFrançais dans l'USF

 

[nrdz83]

Re : aide sur code vba

😉Bonsoir JCGL impeccable merci ça fonctionne impec en plus j'avais pas fais gaffe a l'orthographe des textbox, et y a t'il moyen de rajouter un code afin qu'il me les classes automatiquement par ordre alphabétique ?
merci d'avance et encore chapeau

 

[jp14]

Re : aide sur code vba

Bonsoir

Ci dessous le coda pour faire un tri

Private Sub CommandButton2_Click()
With Sheets("Liste")
dl1 = .Range("a65536").End(xlUp).Row

.Range("a1:b" & dl1).Sort _
Key1:=.Columns("A"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Unload Me
Sheets("accueil").Activate
End Sub

A tester

JP

 

[nrdz83]

Re : aide sur code vba

bonsoir jp14 merci pour ton code il fonctionne par contre il me range également ma ligne de titre , merci

 

[jp14]

Re : aide sur code vba

Bonjour

bonsoir jp14 merci pour ton code il fonctionne par contre il me range également ma ligne de titre , merci

J'ai testé le tri est correct,
A tester en faisant les modification suivante
.Range("a1:b" & dl1).Sort _ : a1 on commence à la ligne 1
Remplacer a1 par a2

Key1:=.Columns("A"), _
Order1:=xlAscending, _

Header:=xlGuess, : il ya une ligne avec d'entête
Supprimer la ligne ci dessus

' Extrait de l'aide VBA
Header Argument de type XlYesNoGuess facultatif. Indique si la première ligne contient des en-têtes.

JP

 

[nrdz83]

Re : aide sur code vba

bonjour et merci jp 14
impec voila mon code et ça fonctionne un grand merci amitié s

Private Sub CommandButton1_Click()
' Mise en place des valeurs saisies
DerLig = Sheets("Liste").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Liste").Cells(DerLig, 1) = TextFR
Sheets("Liste").Cells(DerLig, 2) = TextEN
With Sheets("Liste")
dl1 = .Range("a65536").End(xlUp).Row

.Range("a2:b" & dl1).Sort _
Key1:=.Columns("A"), _
Order1:=xlAscending, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Unload Me
Sheets("accueil").Activate


End Sub

amitiés

 

[JCGL]

Bonjour à tous,

Peux-tu essayer avec ce code dans le code de l'USF

Private Sub CommandButton1_Click()
' Mise en place des valeurs saisies
    DerLig = Sheets("Liste").Range("A" & Rows.Count).End(xlUp).Row + 1
    Sheets("Liste").Cells(DerLig, 1) = TextFR
    Sheets("Liste").Cells(DerLig, 2) = TextEN
    Columns("A:B").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
  Sheets("Accueil").Select
 End Sub

Private Sub CommandButton2_Click()
Unload UserForm2
End Sub

Ce code remplace l'ancien code

A+

 

[nrdz83]

Re : aide sur code vba

bonjour jcgl impec ton code egalement super

j'utilise ce code pour afficher une page masquée et je voudrais me ranger dans cette feuille (liste) en a1

Sheets("Liste").Visible = True
Range("A2").Select
avec ce code je me range en a1 mais dans ma feuille accueil

j'ai rajouté ça
Sheets("Liste").Visible = True
Sheets("Liste").Range("A2").Select

mais ça bug que dois je rajouter ou modifier, amitié s

 

[JCGL]

Re : aide sur code vba

Bonour à tous,

Essaye :

With Sheets("Liste")
.Visible = True
.Range("A2").Select
End With

Pas testé...

 

[nrdz83]

Re : aide sur code vba

re bonjour jcgl on retse egalement dans la feuille accueil😕

 

[jp14]

Re : aide sur code vba

Bonjour nrdz83
Bonjour JCGL

re bonjour jcgl on retse egalement dans la feuille accueil😕

A tester en rajoutant .activate

JP