Discussion :

[khalil.ch]

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

[marot_r]

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+

[Transitoire]

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

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

[khalil.ch]

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 )

[marot_r]

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+

[khalil.ch]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Transitoire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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