Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel trier la bd

trier la bd

13 réponses
Avatar
croky23
Bonjour le forum
je cherche à trier ma BD voici mon code:

Private Sub b_validation_Click()
With Sheets("CODE SAMA")
Set result = Range("sama").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
ligne = Sheets("CODE SAMA").[A65000].End(xlUp).Offset(1, 0).Row
'--- Transfert Formulaire dans BD
.Cells(ligne, 1) = Application.Proper(Me!Code)
.Cells(ligne, 2) = Me.Reference
.Cells(ligne, 4) = CDbl(Me.Prix)

End With

End Sub

merci
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
JLuc
*Bonjour croky23*,


Bonjour le forum
je cherche à trier ma BD voici mon code:

Private Sub b_validation_Click()
With Sheets("CODE SAMA")
Set result = Range("sama").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
ligne = Sheets("CODE SAMA").[A65000].End(xlUp).Offset(1, 0).Row
'--- Transfert Formulaire dans BD
.Cells(ligne, 1) = Application.Proper(Me!Code)
.Cells(ligne, 2) = Me.Reference
.Cells(ligne, 4) = CDbl(Me.Prix)
.Cells(ligne, 1)Sort Key1:=Range("A2"), Order1:=xlAscending, _

Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
'Pour le cas ou tu as une entête de colonne :'). Sinon Range("A1")


End With

End Sub

merci


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
croky23
merci jl mais il me demande une fin d'instruction? (sort)


*Bonjour croky23*,


Bonjour le forum
je cherche à trier ma BD voici mon code:

Private Sub b_validation_Click()
With Sheets("CODE SAMA")
Set result = Range("sama").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
ligne = Sheets("CODE SAMA").[A65000].End(xlUp).Offset(1, 0).Row
'--- Transfert Formulaire dans BD
.Cells(ligne, 1) = Application.Proper(Me!Code)
.Cells(ligne, 2) = Me.Reference
.Cells(ligne, 4) = CDbl(Me.Prix)
.Cells(ligne, 1)Sort Key1:=Range("A2"), Order1:=xlAscending, _

Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
'Pour le cas ou tu as une entête de colonne :'). Sinon Range("A1")


End With

End Sub

merci


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






Avatar
JLuc
*Bonjour croky23*,
Désole, avec les copier coller, j'ai oublier le point avant Sort :
.Cells(ligne, 1).Sort Key1...

merci jl mais il me demande une fin d'instruction? (sort)


*Bonjour croky23*,


Bonjour le forum
je cherche à trier ma BD voici mon code:

Private Sub b_validation_Click()
With Sheets("CODE SAMA")
Set result = Range("sama").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
ligne = Sheets("CODE SAMA").[A65000].End(xlUp).Offset(1, 0).Row
'--- Transfert Formulaire dans BD
.Cells(ligne, 1) = Application.Proper(Me!Code)
.Cells(ligne, 2) = Me.Reference
.Cells(ligne, 4) = CDbl(Me.Prix)
.Cells(ligne, 1)Sort Key1:=Range("A2"), Order1:=xlAscending, _

Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
'Pour le cas ou tu as une entête de colonne :'). Sinon Range("A1")


End With

End Sub

merci


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O



Avatar
croky23
desole jl cela ne fonctionne pas
j'ai du oublier de te donner des infos essentielles
j'ai rajouter cette ligne:
.Cells(ligne, 1).Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
je veux donc trier ma base de données elle comprend 4 colonnes et se trouve
sur une autre feuille


*Bonjour croky23*,
Désole, avec les copier coller, j'ai oublier le point avant Sort :
..Cells(ligne, 1).Sort Key1...

merci jl mais il me demande une fin d'instruction? (sort)


*Bonjour croky23*,


Bonjour le forum
je cherche à trier ma BD voici mon code:

Private Sub b_validation_Click()
With Sheets("CODE SAMA")
Set result = Range("sama").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
ligne = Sheets("CODE SAMA").[A65000].End(xlUp).Offset(1, 0).Row
'--- Transfert Formulaire dans BD
.Cells(ligne, 1) = Application.Proper(Me!Code)
.Cells(ligne, 2) = Me.Reference
.Cells(ligne, 4) = CDbl(Me.Prix)
.Cells(ligne, 1)Sort Key1:=Range("A2"), Order1:=xlAscending, _

Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
'Pour le cas ou tu as une entête de colonne :'). Sinon Range("A1")


End With

End Sub

merci


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O








Avatar
JLuc
*Bonjour croky23*,
Alors, comme j'ai pas du tout comprendre :

Sheets("Feuilledelabase").Range("A2:D" &
Range("D65536").End(3).Row).Sort Key1:=Range("A2"),
Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom

desole jl cela ne fonctionne pas
j'ai du oublier de te donner des infos essentielles
j'ai rajouter cette ligne:
.Cells(ligne, 1).Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
je veux donc trier ma base de données elle comprend 4 colonnes et se trouve
sur une autre feuille


*Bonjour croky23*,
Désole, avec les copier coller, j'ai oublier le point avant Sort :
..Cells(ligne, 1).Sort Key1...

merci jl mais il me demande une fin d'instruction? (sort)


*Bonjour croky23*,


Bonjour le forum
je cherche à trier ma BD voici mon code:

Private Sub b_validation_Click()
With Sheets("CODE SAMA")
Set result = Range("sama").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
ligne = Sheets("CODE SAMA").[A65000].End(xlUp).Offset(1, 0).Row
'--- Transfert Formulaire dans BD
.Cells(ligne, 1) = Application.Proper(Me!Code)
.Cells(ligne, 2) = Me.Reference
.Cells(ligne, 4) = CDbl(Me.Prix)
.Cells(ligne, 1)Sort Key1:=Range("A2"), Order1:=xlAscending, _

Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
'Pour le cas ou tu as une entête de colonne :'). Sinon Range("A1")


End With

End Sub

merci


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O





Avatar
croky23
merci jean luc de ton aide cela fonctionne
croky alias jean luc aussi

*Bonjour croky23*,
Alors, comme j'ai pas du tout comprendre :

Sheets("Feuilledelabase").Range("A2:D" &
Range("D65536").End(3).Row).Sort Key1:=Range("A2"),
Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom

desole jl cela ne fonctionne pas
j'ai du oublier de te donner des infos essentielles
j'ai rajouter cette ligne:
.Cells(ligne, 1).Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
je veux donc trier ma base de données elle comprend 4 colonnes et se trouve
sur une autre feuille


*Bonjour croky23*,
Désole, avec les copier coller, j'ai oublier le point avant Sort :
..Cells(ligne, 1).Sort Key1...

merci jl mais il me demande une fin d'instruction? (sort)


*Bonjour croky23*,


Bonjour le forum
je cherche à trier ma BD voici mon code:

Private Sub b_validation_Click()
With Sheets("CODE SAMA")
Set result = Range("sama").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
ligne = Sheets("CODE SAMA").[A65000].End(xlUp).Offset(1, 0).Row
'--- Transfert Formulaire dans BD
.Cells(ligne, 1) = Application.Proper(Me!Code)
.Cells(ligne, 2) = Me.Reference
.Cells(ligne, 4) = CDbl(Me.Prix)
.Cells(ligne, 1)Sort Key1:=Range("A2"), Order1:=xlAscending, _

Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
'Pour le cas ou tu as une entête de colonne :'). Sinon Range("A1")


End With

End Sub

merci


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O










Avatar
croky23
J'ai parle trop vite cela n'a fonctionne qu'une fois zut je te remet le code
en entier

Private Sub b_validation_Click()
With Sheets("CODE SAMA")
Set result = Range("sama").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
ligne = Sheets("CODE SAMA").[A65000].End(xlUp).Offset(1, 0).Row
'--- Transfert Formulaire dans BD
.Cells(ligne, 1) = Application.Proper(Me!Code)
.Cells(ligne, 2) = Me.Reference
.Cells(ligne, 4) = CDbl(Me.Prix)

End With
Sheets("CODE SAMA").Range("A2:D" & Range("D65536").End(4).Row).Sort
Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:úlse, Orientation:=xlTopToBottom
End Sub

la feuille de destination ____feuil1
prmiere ligne titre
trier de A2à D65000
Avatar
croky23
erreur feuille de detination CODE SAMA

merci jean luc de ton aide cela fonctionne
croky alias jean luc aussi

*Bonjour croky23*,
Alors, comme j'ai pas du tout comprendre :

Sheets("Feuilledelabase").Range("A2:D" &
Range("D65536").End(3).Row).Sort Key1:=Range("A2"),
Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom

desole jl cela ne fonctionne pas
j'ai du oublier de te donner des infos essentielles
j'ai rajouter cette ligne:
.Cells(ligne, 1).Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
je veux donc trier ma base de données elle comprend 4 colonnes et se trouve
sur une autre feuille


*Bonjour croky23*,
Désole, avec les copier coller, j'ai oublier le point avant Sort :
..Cells(ligne, 1).Sort Key1...

merci jl mais il me demande une fin d'instruction? (sort)


*Bonjour croky23*,


Bonjour le forum
je cherche à trier ma BD voici mon code:

Private Sub b_validation_Click()
With Sheets("CODE SAMA")
Set result = Range("sama").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
ligne = Sheets("CODE SAMA").[A65000].End(xlUp).Offset(1, 0).Row
'--- Transfert Formulaire dans BD
.Cells(ligne, 1) = Application.Proper(Me!Code)
.Cells(ligne, 2) = Me.Reference
.Cells(ligne, 4) = CDbl(Me.Prix)
.Cells(ligne, 1)Sort Key1:=Range("A2"), Order1:=xlAscending, _

Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
'Pour le cas ou tu as une entête de colonne :'). Sinon Range("A1")


End With

End Sub

merci


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O












Avatar
JLuc
*Bonjour croky23*,
End(3) pas End(4) ;-)

Sheets("CODE SAMA").Range("A2:D" & Range("D65536").End(4).Row).Sort
Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1,
MatchCase:úlse, Orientation:=xlTopToBottom


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O

Avatar
croky23
tjrs pas
je peux t'envoyer le dossier qq part,?



erreur feuille de detination CODE SAMA

merci jean luc de ton aide cela fonctionne
croky alias jean luc aussi

*Bonjour croky23*,
Alors, comme j'ai pas du tout comprendre :

Sheets("Feuilledelabase").Range("A2:D" &
Range("D65536").End(3).Row).Sort Key1:=Range("A2"),
Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom

desole jl cela ne fonctionne pas
j'ai du oublier de te donner des infos essentielles
j'ai rajouter cette ligne:
.Cells(ligne, 1).Sort Key1:=Range("A2"), Order1:=xlAscending,
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
je veux donc trier ma base de données elle comprend 4 colonnes et se trouve
sur une autre feuille


*Bonjour croky23*,
Désole, avec les copier coller, j'ai oublier le point avant Sort :
..Cells(ligne, 1).Sort Key1...

merci jl mais il me demande une fin d'instruction? (sort)


*Bonjour croky23*,


Bonjour le forum
je cherche à trier ma BD voici mon code:

Private Sub b_validation_Click()
With Sheets("CODE SAMA")
Set result = Range("sama").Find(what:=Me.Code, LookIn:=xlValues,
LookAt:=xlWhole)
If Not result Is Nothing Then
MsgBox "Existe déjà"
Exit Sub
End If
'--- Positionnement dans la base
ligne = Sheets("CODE SAMA").[A65000].End(xlUp).Offset(1, 0).Row
'--- Transfert Formulaire dans BD
.Cells(ligne, 1) = Application.Proper(Me!Code)
.Cells(ligne, 2) = Me.Reference
.Cells(ligne, 4) = CDbl(Me.Prix)
.Cells(ligne, 1)Sort Key1:=Range("A2"), Order1:=xlAscending, _

Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom
'Pour le cas ou tu as une entête de colonne :'). Sinon Range("A1")


End With

End Sub

merci


--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O






--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O














1 2