probleme dans une macro

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]
 

Pièces jointes

  • essaisbd(1) (version 1).xls
    92.5 KB · Affichages: 28
  • essaisbd(1) (version 1).xls
    92.5 KB · Affichages: 33
  • essaisbd(1) (version 1).xls
    92.5 KB · Affichages: 32
Dernière édition:

Discussions similaires

Réponses
3
Affichages
657

Statistiques des forums

Discussions
312 836
Messages
2 092 622
Membres
105 469
dernier inscrit
gautronmi