ricou69
XLDnaute Occasionnel
Bonjour,
Bonjour aussi a Roger2327 qui a travaillé sur mon premier fil tu verras roger le fichier a bien evolué depuis.
voila mon souci dans l'onglet consultation cellule (E26) vrais nom consult_code_article je tape le nom ou un N° quand je valide avec la touche entrée la donnée que cette donnée s'enregistre dans l onglet code article et effacer la donnée de la cellule consult_code_article apres enregistrement
Merci a vous
CDT
ricou69
voila le code et le fichier en piece jointe
Sub Ajout_code_article()
'
For Each cell In Range("code_article")
If cell.Value = [Consult_code_article] Then Exit Sub
Next
Sheets("CODE ARTICLES").Select
Rows("2:2").Insert Shift:=xlDown
[A2] = [Consult_code_article]
Range("A2:A7899").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("CONSULTATION").Select
End Sub[/COLOR]
Bonjour aussi a Roger2327 qui a travaillé sur mon premier fil tu verras roger le fichier a bien evolué depuis.
voila mon souci dans l'onglet consultation cellule (E26) vrais nom consult_code_article je tape le nom ou un N° quand je valide avec la touche entrée la donnée que cette donnée s'enregistre dans l onglet code article et effacer la donnée de la cellule consult_code_article apres enregistrement
Merci a vous
CDT
ricou69
voila le code et le fichier en piece jointe
Sub Ajout_code_article()
'
For Each cell In Range("code_article")
If cell.Value = [Consult_code_article] Then Exit Sub
Next
Sheets("CODE ARTICLES").Select
Rows("2:2").Insert Shift:=xlDown
[A2] = [Consult_code_article]
Range("A2:A7899").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("CONSULTATION").Select
End Sub[/COLOR]
Dernière édition:
