XL 2013 Effacer le contenu si la valeur n'est pas entre 13000 90000 et copier les valeurs dupliqués

Bonjour lestoiles1,

Pour le 1er problème utilisez la validation de données, c'est classique.

NB : en Feuil1 la macro n'est pas la dernière que je vous ai donnée.

A+

job75 à dit:

Bonjour lestoiles1,

Pour le 1er problème utilisez la validation de données, c'est classique.

NB : en Feuil1 la macro n'est pas la dernière que je vous ai donnée.

A+

Cliquez pour agrandir...

Rebonjour,

Oui, exacte, mais pour la validation des donnés me donne juste un avertisement mais pas l'effacer

job75 à dit:

La validation de données annule l'entrée qui ne correspond pas au critère !! Sur toute la colonne A :

Code:

=OU(LIGNE(A1)=1;ET(A1>=9000;A1<=13000))

Pour le point 2 voici la macro affectée au bouton :

VB:

Sub Doublons()
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next
With Feuil1.[A1].CurrentRegion
    .Cells(2, 4) = "=COUNTIF(A:A,A2)>1" 'critère
    .AdvancedFilter xlFilterInPlace, .Cells(1, 4).Resize(2) 'filtre avancé
    .Cells(2, 4) = ""
    With Intersect(.Rows("2:" & .Rows.Count), .SpecialCells(xlCellTypeVisible))
        .Copy Feuil2.Cells(Rows.Count, 1).End(xlUp)(2)
        .Delete xlUp
    End With
    .Parent.ShowAllData
End With
Application.EnableEvents = True
End Sub

Cliquez pour agrandir...

T'est fort, merci beaucoup

lestoiles1 à dit:

T'est fort, merci beaucoup

Cliquez pour agrandir...

Excuse-moi Job75, j'ai affecter le macro a mon bouton "VALIDER" dans un userform, je ne sais pas ce qui cloche mais ça ne s'execute pas normalement. ca m'aide bcp si tu peux checker un coup stp/

Private Sub Valider_Click()
Feuil2.Visible = True
Feuil1.Unprotect "1234566"
Feuil2.Unprotect "1234566"
On Error Resume Next
With Feuil1.[A1].CurrentRegion
.Cells(2, 4) = "=COUNTIF(A:A,A2)>1" 'critère
.AdvancedFilter xlFilterInPlace, .Cells(1, 4).Resize(2) 'filtre avancé
.Cells(2, 4) = ""
With Intersect(.Rows("2:" & .Rows.Count), .SpecialCells(xlCellTypeVisible))
.Copy Feuil2.Cells(Rows.Count, 1).End(xlUp)(2)
.Delete xlUp
End With
.Parent.ShowAllData
End With

Sheets("Formulaire").Select
Range("A2").Select
TextBox2.Text = Range("E1")
Me.TextBox1.SetFocus
TextBox6.Text = Range("C1")
TextBox7.Text = Format(Range("G1"), "hh:mm:ss")
Feuil1.Protect "1234566"
Feuil2.Protect "1234566"
Feuil2.Visible = xlSheetVeryHidden
UserForm1.Hide
Application.EnableEvents = True
End Sub

Je crois que c'est la formule que j'ai mise qui empeche le macro de s'executer normalement.

Apparemment vous êtes fâché avec les Application.EnableEvents !

job75 à dit:

Apparemment vous êtes fâché avec les Application.EnableEvents !

Cliquez pour agrandir...

hahaha, je croiais que c'est ce qui empeche la macro de se declencher, mais apparament non