Macro : ajouter une entrée

[good57]

Bonjour,

Dans mon exemple, j'ai une macro qui permet d'ajouter une entrée dans une liste qui se trouve sur une autre feuille. Cette macro lance aussi un tri alphabétique dans cette autre feuille lorsqu'une nouvelle entrée est validée.

Mon problème : si je valide une entrée alors que je n'ai rempli aucun des champs, une ligne vide va s'ajouter entre l'avant dernier et le dernier nom de la liste.

Comment faire pour palier à ce problème ?

Merci

 

[don_pets]

Re : Macro : ajouter une entrée

'llo,

Rajoute peut être ça avant ta commande de tri auto

    Range([A1], [A:B].Find("*", , , , , xlPrevious)).SpecialCells(xlCellTypeBlanks).Delete

 

[good57]

Re : Macro : ajouter une entrée

Merci Donc_pets !
Ca fonctionne très bien !

 

[don_pets]

Re : Macro : ajouter une entrée

bitte schön

 

[job75]

Re : Macro : ajouter une entrée

Bonjour good57, don_pets,

Il faut surtout une macro moins tarabiscotée...

Sub MWArbeiterHinzufügen()
Dim c1 As Range, c2 As Range, i As Variant
Set c1 = Sheets("Arbeiter").[D6]
Set c2 = Sheets("Arbeiter").[D7]
If c1 = "" Then MsgBox "Entrez le nom...": c1.Select: Exit Sub
If c2 = "" Then MsgBox "Entrez la fonction...": c2.Select: Exit Sub
With Sheets("Liste")
  i = Application.Match(c1, .[A:A], 0)
  If IsError(i) Then
    If MsgBox("Ajouter le nom dans la liste ?", 4) = 7 Then Exit Sub
    i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
  Else
    If MsgBox("Le nom existe déjà, modifier la fonction ?", 4) = 7 Then Exit Sub
  End If
  .Cells(i, 1) = c1: .Cells(i, 2) = c2
  .[A:B].Sort .[A1], Header:=xlNo
End With
End Sub

Fichier joint.

A+

 

[don_pets]

Re : Macro : ajouter une entrée

pas faux non plus job ^^

 

[good57]

Re : Macro : ajouter une entrée

Merci job75,

C'est vrai, je ne suis pas un champion de la macro, alors je me débrouille comme je peux 🙂