Microsoft 365 Trouver un valeur et insertion de ligne (résolu)

[Cougar]

Bonsoir le forum,

À l'aide de userform, je cherche une valeur (combobox). Si dans la colonne C il existe déjà une donnée, il faut insérer une ligne. Voir exemple avec le fichier joint.

Merci de votre aide

 

[sylvanu]

Bonsoir Cougar,
Un essai en PJ.

 

[Cougar]

Bonsoir sylvanu,

Merci pour ta réponse. Cela fonctionne très bien mais j'essai d'avoir les dates triées en ordre décroissant. J'ai pas d'idée comment faire.

Merci

 

[sylvanu]

Bonjour,

mais j'essai

Pas bien compris. Est ce une nouvelle demande ou était ce inclu dans votre première demande ? Si c'est le cas alors je n'ai rien compris à la demande initiale.
Mais bon, au cas où :
Un tri ne pourra s'effectuer correctement que si la donnée en colonne A est toujours remplie, sinon vous allez avoir des lignes avec A vide qui ne correspond plus à la valeur de A de la ligne précédente.
Donc j'ai rajouté :

Cells(L, "A") = ComboBox1.Text

puis fais le tri avec :

' Tri sur date du plus récent au plus ancien.
DL = [C65500].End(xlUp).Row
Set Plage = Range("A2:D" & DL)
Plage.Resize(DL).Sort key1:=Range("B2"), order1:=xlDescending, Header:=xlYes

Mais pour l'instant ce tri ne se fait que par appui sur Valider, pas sur les autres boutons sinon vous devez la dupliquer.

 

[Cougar]

Bonjour,

Effectivement la 2e demande faisait pas partie de l'originale. Je cherchais un façon de trier avec la colonne A vide sans résultat. En ajoutant la donnée en A cela règle le problème.

Merci