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

[lestoiles1]

Bonjour,

1- J'aimerais que lorsque on tappe une valeur (dans la colonne A) qui n'est pas entre 13000 et 9000 ça s'efface automatiquement
2- Lorsqu'on clique sur le bouton , ça copie tous les valeurs dupliqués dans la Feuil2, et tous le valeurs unique monte jusqu'en A2

N.B: il y a déja un macro dans la Feuil1 et j'aimerais que le nouveau macro soit ajouté dedans

Merci d'avance

Lestoiles1

 

[job75]

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+

 

[lestoiles1]

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+

Rebonjour,

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

 

[job75]

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

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

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

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

 

[lestoiles1]

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

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

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

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

T'est fort, merci beaucoup

 

[lestoiles1]

T'est fort, merci beaucoup

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

 

[lestoiles1]

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

 

[job75]

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

 

[lestoiles1]

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

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