Bonjour à tous,
Et oui,me revoila déjà.
J'ai essayé de créer ma macro avec les différents codes trouvés sur le site mais je n'obitens pas le résultat voulu et je ne trouve pas mon erreur, j'espère que quelqu'un voudra bien prendre quelques minutes pour me répondre.
J'ai créer un onglet "BDINSTALLATEUR" sous forme de tableau
J'ai créé un onglet "NOUVINSTALLATEUR", sous forme de formulaire
Je voudrais pouvoir créer un nouveau contact installateur grâce au formulaire "NOUVINSTALLATEUR" puis en cliquant sur le bonton "Enregistrer", créer la macro permettant de copier les renseignements du nouveau contact dans la Base de données "BDINSTALLATEUR" et pour compliquer la tâche, trier "BDINSTALLATEUR" par ordre croissant en colonne "Dénomination" et ensuite Effacer le contenu dans "NOUVINSTALLATEUR" pour pouvoir saisir une nouvelle fiche.
Je vous joins le code saisi :
'Aller en A2
Range("A2").Select
'Aller à la dernière remplie (Merci Eriiic)
[A65536].End(xlUp).Select
'Insérer une ligne vide
Selection.EntireRow.Insert
'Remonter d'une ligne
ActiveCell.Offset(-1, 0).Select
'Copier les données voulues
Sheets("NOUVEAUINST").Select
Range("B7:B90").Select
Selection.Copy
Sheets("BDINSTALLATEUR").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
'Une fois les données insérer, trier la BDInstallateur par ordre Croissant par Denominat
Range("A3").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("BDINSTALLATEUR").ListObjects("BDINSTALLATEUR").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("BDINSTALLATEUR").ListObjects("BDINSTALLATEUR").Sort. _
SortFields.Add Key:=Range("BDINSTALLATEUR[DENOMINATION]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("BDINSTALLATEUR").ListObjects("BDINSTALLATEUR"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' Effacer le contenu des données saisies dans feuille "NouveauInstallateur"
End Sub
Je vosu transmet également le fichier pour être plus clair
MErci encore
Dedel74
Et oui,me revoila déjà.
J'ai essayé de créer ma macro avec les différents codes trouvés sur le site mais je n'obitens pas le résultat voulu et je ne trouve pas mon erreur, j'espère que quelqu'un voudra bien prendre quelques minutes pour me répondre.
J'ai créer un onglet "BDINSTALLATEUR" sous forme de tableau
J'ai créé un onglet "NOUVINSTALLATEUR", sous forme de formulaire
Je voudrais pouvoir créer un nouveau contact installateur grâce au formulaire "NOUVINSTALLATEUR" puis en cliquant sur le bonton "Enregistrer", créer la macro permettant de copier les renseignements du nouveau contact dans la Base de données "BDINSTALLATEUR" et pour compliquer la tâche, trier "BDINSTALLATEUR" par ordre croissant en colonne "Dénomination" et ensuite Effacer le contenu dans "NOUVINSTALLATEUR" pour pouvoir saisir une nouvelle fiche.
Je vous joins le code saisi :
'Aller en A2
Range("A2").Select
'Aller à la dernière remplie (Merci Eriiic)
[A65536].End(xlUp).Select
'Insérer une ligne vide
Selection.EntireRow.Insert
'Remonter d'une ligne
ActiveCell.Offset(-1, 0).Select
'Copier les données voulues
Sheets("NOUVEAUINST").Select
Range("B7:B90").Select
Selection.Copy
Sheets("BDINSTALLATEUR").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
'Une fois les données insérer, trier la BDInstallateur par ordre Croissant par Denominat
Range("A3").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("BDINSTALLATEUR").ListObjects("BDINSTALLATEUR").Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("BDINSTALLATEUR").ListObjects("BDINSTALLATEUR").Sort. _
SortFields.Add Key:=Range("BDINSTALLATEUR[DENOMINATION]"), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("BDINSTALLATEUR").ListObjects("BDINSTALLATEUR"). _
Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
' Effacer le contenu des données saisies dans feuille "NouveauInstallateur"
End Sub
Je vosu transmet également le fichier pour être plus clair
MErci encore
Dedel74
