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)
*Bonjour croky23*, Oui, en bal perso : tu enleves ns. et .ns de l'adresse
tjrs pas je peux t'envoyer le dossier qq part,?
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
*ReBonjour croky23*, Voila, aprés vérification de la macro,voici la correction :
Private Sub b_validation_Click() If IsNumeric(Code) Then Code = Code & " ." 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 With Sheets("CODE SAMA") ligne = .[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) .Range("A2:D" & ligne).Sort key1:=.Range("A2"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End With End Sub
En fait, comme tu n'étais pas sur la feuille de la base, il fallait préciser le nom de la feuille au niveau du Key1 Pour le tri correct, il faut obliger excel à prendre du texte (sinon il tri d'abord en valeur numérique) pour ça, je controle si "Code" est numérique. Si oui, j'ajoute, à la fin, un espace et un point et là, ça devient du texte. Mais peut être faudra t'il penser à autre chose si ça ne te conviens pas :/
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 :
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
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*ReBonjour croky23*,
Voila, aprés vérification de la macro,voici la correction :
Private Sub b_validation_Click()
If IsNumeric(Code) Then Code = Code & " ."
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
With Sheets("CODE SAMA")
ligne = .[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)
.Range("A2:D" & ligne).Sort key1:=.Range("A2"),
Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
End With
End Sub
En fait, comme tu n'étais pas sur la feuille de la base, il fallait
préciser le nom de la feuille au niveau du Key1
Pour le tri correct, il faut obliger excel à prendre du texte (sinon il
tri d'abord en valeur numérique) pour ça, je controle si "Code" est
numérique. Si oui, j'ajoute, à la fin, un espace et un point et là, ça
devient du texte. Mais peut être faudra t'il penser à autre chose si ça
ne te conviens pas :/
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 :
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")
*ReBonjour croky23*, Voila, aprés vérification de la macro,voici la correction :
Private Sub b_validation_Click() If IsNumeric(Code) Then Code = Code & " ." 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 With Sheets("CODE SAMA") ligne = .[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) .Range("A2:D" & ligne).Sort key1:=.Range("A2"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End With End Sub
En fait, comme tu n'étais pas sur la feuille de la base, il fallait préciser le nom de la feuille au niveau du Key1 Pour le tri correct, il faut obliger excel à prendre du texte (sinon il tri d'abord en valeur numérique) pour ça, je controle si "Code" est numérique. Si oui, j'ajoute, à la fin, un espace et un point et là, ça devient du texte. Mais peut être faudra t'il penser à autre chose si ça ne te conviens pas :/
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 :
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
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
croky23
merci beaucoup c'est parfait pour moi
*ReBonjour croky23*, Voila, aprés vérification de la macro,voici la correction :
Private Sub b_validation_Click() If IsNumeric(Code) Then Code = Code & " ." 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 With Sheets("CODE SAMA") ligne = .[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) .Range("A2:D" & ligne).Sort key1:=.Range("A2"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End With End Sub
En fait, comme tu n'étais pas sur la feuille de la base, il fallait préciser le nom de la feuille au niveau du Key1 Pour le tri correct, il faut obliger excel à prendre du texte (sinon il tri d'abord en valeur numérique) pour ça, je controle si "Code" est numérique. Si oui, j'ajoute, à la fin, un espace et un point et là, ça devient du texte. Mais peut être faudra t'il penser à autre chose si ça ne te conviens pas :/
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 :
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
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
merci beaucoup c'est parfait pour moi
*ReBonjour croky23*,
Voila, aprés vérification de la macro,voici la correction :
Private Sub b_validation_Click()
If IsNumeric(Code) Then Code = Code & " ."
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
With Sheets("CODE SAMA")
ligne = .[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)
.Range("A2:D" & ligne).Sort key1:=.Range("A2"),
Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom
End With
End Sub
En fait, comme tu n'étais pas sur la feuille de la base, il fallait
préciser le nom de la feuille au niveau du Key1
Pour le tri correct, il faut obliger excel à prendre du texte (sinon il
tri d'abord en valeur numérique) pour ça, je controle si "Code" est
numérique. Si oui, j'ajoute, à la fin, un espace et un point et là, ça
devient du texte. Mais peut être faudra t'il penser à autre chose si ça
ne te conviens pas :/
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 :
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")
*ReBonjour croky23*, Voila, aprés vérification de la macro,voici la correction :
Private Sub b_validation_Click() If IsNumeric(Code) Then Code = Code & " ." 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 With Sheets("CODE SAMA") ligne = .[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) .Range("A2:D" & ligne).Sort key1:=.Range("A2"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom End With End Sub
En fait, comme tu n'étais pas sur la feuille de la base, il fallait préciser le nom de la feuille au niveau du Key1 Pour le tri correct, il faut obliger excel à prendre du texte (sinon il tri d'abord en valeur numérique) pour ça, je controle si "Code" est numérique. Si oui, j'ajoute, à la fin, un espace et un point et là, ça devient du texte. Mais peut être faudra t'il penser à autre chose si ça ne te conviens pas :/
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 :
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")
