Insérer une ligne en fonction du numéro de la semaine

**Arkops** · 12/01/2018, 14h53

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** · 12/01/2018, 14h59

Envoyé par Arkops

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** · 12/01/2018, 15h01

Bonjour,

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

A lire : fichier joint

**Arkops** · 12/01/2018, 16h14

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** · 12/01/2018, 16h24

Envoyé par Patrice740

Bonjour,

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

A lire : fichier joint

Envoyé par Arkops

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** · 12/01/2018, 16h27

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

**Patrice740** · 12/01/2018, 16h33

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

**Arkops** · 12/01/2018, 16h44

Re,

Le programme me change la ligne 5 en écrasant ce qu'il y a à la place. comme avant la modif que tu m'as conseillé....

j'ai l'impression qu'il y a un probleme entre la ligne de définition de la ligne, et celle d'insertion.

**unparia** · 12/01/2018, 17h30

Bonjour
Si tu veux mon aide, commence donc s'il te plait par mettre ici un copié/collé rigoureux du code écrit sur ta machine. C'est là la moindre des choses lorsque l'on dit qu'un code ne fonctionne pas bien (je ne cesserai jamais d'insister sur ce point).
Le code que tu as montré n'est pas un copié/collé rigoureux de celui écrit.
J'en veux pour preuve cette ligne de code, déjà :

Code :

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

L = .Range("a" & Rows.Count).End(xlUp).Rows + 1

Qui aurait déclenché forcément une erreur et non un "écrasement"
Alors ?

**Menhir** · 12/01/2018, 17h36

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** · 12/01/2018, 17h41

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** · 12/01/2018, 18h19

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.

**Arkops** · 16/01/2018, 10h50

Bonjour,

Désolé pour le retard de ma réponse. Je met dans ce message mon code complet

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
27
28
29
30
31
32
33
34
35
36
37
38
39
'Bouton Ajouter POSTE'
Private Sub CommandButton1_Click()
    Dim L As Long
 
   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)
  .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
End Sub
 
 
Private Sub UserForm_Initialize()
 
    ComboBox1.List = Array("TVS", "TRM", "TCA", "TNE")
    ComboBox2.List = Array(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, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52)
    ComboBox3.List = Array("Mr.DUPUIS", "Mr.BACHIRI", "Mr.ROUSSEL", "Mr.MOUZON", "Mr.BABIN", "Mr.LAMBERT")
    ComboBox4.List = Array("ARMOIRE", "COFFRET", "CABINE", "PLATINE")
    ComboBox5.List = Array("TBOX", "CELLO6", "TAIGA")
    ComboBox6.List = Array("CDV15", "CORUS", "ENVOL")
End Sub
 
Private Sub CommandButton2_Click()
 
    Unload UserForm1
 
End Sub

Si j'ai bien comprit j'ai une ligne de recherche en trop il vaut mieux que je recherche un ligne avec ma bonne semaine et ensuite insérer une ligne juste après.

Merci d'avance

**Menhir** · 16/01/2018, 13h33

Envoyé par Arkops

il vaut mieux que je recherche un ligne avec ma bonne semaine et ensuite insérer une ligne juste après.

Il faudrait surtout que tu lisses les messages qui te sont adressés.
A la vue de ce code, on a vraiment l'impression qu'on perd son temps à essayer de t'aider...

**Marc-L** · 16/01/2018, 13h51

Salut !

Envoyé par Menhir

tu lisses

Là aussi il y a encore un s en trop ‼

___________________________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**Arkops** · 16/01/2018, 14h27

Désolé je n'y connais pas grand chose en VBA et j'avais pas vu le changement dans un de vos messages Menhir, maintenant ça marche

Merci beaucoup.

Insérer une ligne en fonction du numéro de la semaine [XL-2016]

Macros et VBA Excel

Discussions similaires

Partager

Partager