Problème: Insertion ligne VBA sous condition

Bonjour à toutes et à tous :)

J'ai besoin de votre aide svp!

Je veux insérer une ligne dans mon fichier excel à travers une macros.

Sauf que j'ai besoin que cette ligne soit insérer dans un endroit ou la valeur de TextBox2.Value ( "temps d'arrivée") soit bien ordonnée par rapport aux autres valeurs.
Sans complications!! j'ai besoin que cette liste soit toujours ordonné après l'insertion.

Je vous remercie d'avance et je reste à votre disposition pour toute question

Veuille trouvez en pièce jointe mon exemple

Bonjour.

Tu as 2 possibilités :

1. Ajouter ta valeur "en bas" de ta liste, puis trier.
2. Parcourir la liste et trouver l'élément qui est juste inférieur à celui que tu veux insérer puis insérer une ligne après cet élément.

La 1ère solution est techniquement plus simple selon moi notamment parce qu'elle t'évite d'avoir à gérer le cas où l'élément est inférieur au 1er élément déjà présent.

A+

Bonjour, a votre place je me fatiguerais pas à rechercher l'emplacement d'insertion de la ligne. Je mettrais la nouvelle ligne en dernier, et j'effectuerais un tri dans le sens nécessaire d'après la colonne à utiliser

Cordialement 8-)

Oups!!! mon message vient d'arriver un instant après celui de R.Marot

Je vous remercie beaucoup pour vos reponse assez rapide :)

Je voulais faire l'insertion des valeurs à la fin de la liste , mais je suis encore bloqué :(
Pourriez vous vérifier avec moi le code svp! ( exemple en pièce jointe).

Merci encore une fois ( et je m'excuse pour ces genre des questions simple peut être! Ca fais pas longtemps que j'ai commencé le vba :) )

Bonjour.

Tout le monde ne peut (ou ne veut) pas forcément télécharger des fichiers.

Peux-tu poster le code que tu utilises et indiquer où tu est "bloqué" et comment tu es "bloqué" (le code génère une erreur ? Laquelle ? Où ? Il ne donne pas les résultats attendus ? Qu'attendais-tu ? Qu'as-tu eu ? Autre chose ?).

A+

Bonjour Marot_r , merci pour votre message!!

Le code n'affiche pas de résultat. Je veux bien insérer une ligne a la fin de la liste en colonne C et qui prend ses valeurs des texts boxs 1 et 2.

voilà mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub CommandButton1_Click() ' bouton "start"   If TextBox1.Value = "" Or TextBox2.Value = "" Then MsgBox "Information manquante!!"   Dim DerniereLigne As Long DerniereLigne = Range("C" & Rows.Count).End(xlUp).Row MsgBox DerniereLigne   If TextBox1.Value = "" Or TextBox2.Value = "" Then MsgBox "Information manquante!!" Else   With Sheets("Feuil1").Range("A1:A" & DerniereLigne) Rows(DerniereLigne & ":" & DerniereLigne + 1).Insert xlDown .Range("B1" & DerniereLigne + 1) = TextBox1.Value .Range("C1" & DerniereLigne + 1) = TextBox2.Value .Offset(1).Interior.Color = xlNone End With   End If End If   End Sub

---

Bonjour, premièrement, pensez à mettre les codes entre balises dièse pour l'avoir comme ci-dessous
deuxièmement, il vaut mieux déclarer une variable juste après le début de la procédure voir ci-dessous
troisièmement si vous utilisez la dernière ligne, il n'est pas utile de faire une insertion par contre il faut faire un tri.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton1_Click() ' bouton "start" Dim DerniereLigne As Long If TextBox1.Value = "" Or TextBox2.Value = "" Then MsgBox "Information manquante!!" DerniereLigne = Range("C" & Rows.Count).End(xlUp).Row MsgBox DerniereLigne If TextBox1.Value = "" Or TextBox2.Value = "" Then MsgBox "Information manquante!!" Else With Sheets("Feuil1").Range("A1:A" & DerniereLigne) Rows(DerniereLigne & ":" & DerniereLigne + 1).Insert xlDown '.Insert est inutile .Range("B1" & DerniereLigne + 1) = TextBox1.Value .Range("C1" & DerniereLigne + 1) = TextBox2.Value .Offset(1).Interior.Color = xlNone End With End If End If End Sub

---

Cordialement 8-)

Merci @Transitoire , Je vais essayer ca!