Discussion :

[Arkops]

Bonjour à tous,

Je débute en VBA et j'ai un problème qui en plus de me prendre beaucoup de temps à résoudre commence un chouilla trois fois rien à m'énerver.

Je m'explique : je cherche à automatiser un planning sur lequel ce trouve une d'armoire électrique a fournir toute les semaine, j'ai donc commencer par créer un UserForm pour remplir ma ligne, tout marche à l’exception que je n'arrive pas a programmer l'insertion d'une nouvelle ligne a la bonne place dans le planning, elle se colle à la place d'une autre et pas au bonne endroit.......


Merci d'avance

[Menhir]

Voici le début de programme que j'ai fait :

https://www.developpez.net/forums/d8...s-discussions/

Pour l'insertion de ligne : https://msdn.microsoft.com/fr-fr/lib.../ff840310.aspx

[Patrice740]

Bonjour,

Si tu avais mis le code dans ta demande on pourrais peut-être t'aider !!!

A lire : fichier joint

[Arkops]

Oups désolé, je pensais avoir mis le fichier. Bien entendu je cherche pas une réponse toute faite mais une piste

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
25
26
Private Sub CommandButton1_Click()
    Dim L As Integer
 
 
    If MsgBox("Confirmer l'ajout d'un  nouveau poste?", vbYesNo) = vbYes Then
        With Worksheets("DIAPASON 2018")
           L = .Range("a" & Rows.Count).End(xlUp).Rows + 1
 
 
            .Rows("3").Copy
            .Rows(L).PasteSpecial
            .Range("A3:AB" & L).Sort key1:=.Range("A3"), order1:=xlAscending, Header:=xlNo
       End With
 
 
 
    Range("A" & L).Value = ComboBox2
    Range("B" & L).Value = TextBox1
    Range("D" & L).Value = ComboBox1
    Range("F" & L).Value = ComboBox3
    Range("C" & L).Value = TextBox2
    Range("H" & L).Value = TextBox3
    Range("Y" & L).Value = ComboBox5
    Range("Z" & L).Value = ComboBox6
    Range("AA" & L).Value = ComboBox4
    End If

[Patrice740]

Bonjour,

Si tu avais mis le code dans ta demande on pourrais peut-être t'aider !!!

A lire : fichier joint

Oups désolé, je pensais avoir mis le fichier. Bien entendu je cherche pas une réponse toute faite mais une piste

Le fichier, il y était et il y est encore, mais tu n'a probablement pas bien lu ceci : fichier joint

i.e : Cette possibilité doit être utilisée en dernier recours, lorsque les explications fournies dans un français correct et les réponses y apportées n’ont pas permis de résoudre le problème.

[Arkops]

Boujour Patrice740 j'ai modifié mes deux messages, désolé pour cette erreur.

[Patrice740]

Re,

Essaies :

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
Private Sub CommandButton1_Click()
Dim L As Integer
 
If MsgBox("Confirmer l'ajout d'un nouveau poste?", vbYesNo) = vbYes Then
With Worksheets("DIAPASON 2018")
  'RE-EDIT (suite remarque de unparia), remplacer :
  'L = .Range("a" & Rows.Count).End(xlUp).Rows + 1
  ' par :
  L = .Range("a" & Rows.Count).End(xlUp).Row + 1
  .Rows("3").Copy .Rows(L)
  .Range("A" & L).Value = ComboBox2
  .Range("B" & L).Value = TextBox1
  .Range("D" & L).Value = ComboBox1
  .Range("F" & L).Value = ComboBox3
  .Range("C" & L).Value = TextBox2
  .Range("H" & L).Value = TextBox3
  .Range("Y" & L).Value = ComboBox5
  .Range("Z" & L).Value = ComboBox6
  .Range("AA" & L).Value = ComboBox4
  .Range("A3:AB" & L).Sort key1:=.Range("A3"), order1:=xlAscending, Header:=xlNo
End With
 
End If

EDIT : remplaces Integer par Long

[Menhir]

Dans ton code, remplace :

Code :

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

            .Rows(L).PasteSpecial

Par

Code :

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

            .Rows(L).Insert

Pour les explications, voir mon premier message.

[unparia]

Bonjour Menhir
As-tu lu mon message précédent ?
Son L est bien mal en point, dans son "code" (enfin : celui qu'il montre ...)

[Menhir]

Effectivement, je n'avais pas vu ce pluriel inopportun.

En regardant de plus près ce code, j'ai du mal aussi à comprendre l'intérêt de faire un Insert après la dernière ligne et pourquoi une simple copie ne suffit pas.