Discussion :

[Victory94]

Bonjour, Je suis débutante en VBA, et je trouve des difficultés dans le code d'une application, en effet je dispose d'un fichier excel, qui contient des opérations d'un process industriel, chaque opération a un certain temps, je voudrais réaliser dans un userform une list box qui permet de choisir plusieurs opérations et calculer la somme des temps des opérations suivant le choix effectué, puis afficher cette somme dans un textbox à l'intérieur de l'userform.
J'espère avoir été claire. Merci de me répondre.

[Jean-Philippe André]

Bonjour,

bienvenue sur DVP

Sur quelle étape de ton processus butes-tu actuellement ?

- La création de l'interface de ton formulaire ?
- Le code pour alimenter les données ?
- Autre chose ?

As-tu déjà lu des cours de VBA pour te permettre d'avancer sur ton projet ?

[Victory94]

Bonjour Jean-Philippe André,
A vrai dire, j'ai déjà créé une interface de mon formulaire, il me faut le code pour alimenter les données, plus précisément, je voudrais alimenter une listbox avec n'importe quel fichier excel et pouvoir réaliser des traitements dessus, comme par exemple, l'utilisateur peut choisir à partir de la listbox alimentée par le fichier excel entre plusieurs temps, puis l'application devrait faire le cumul de ces temps choisis, et je ne sais pas comment coder tout celà..... Sinon j'ai déjà lu quelques cours, si vous aviez des liens utiles ou des sites à me recommander pour avancer sur mon projet, je te serai très reconnaissante. Merci.

[Nagel Tha]

Fouille dans ces liens (developpez.net) :

• Utiliser les UserForm en VBA Excel
• FAQ VBA ur les UserForms et contrôles
• FAQ sur les macros VBA
• Support de cours VBA à télécharger
• Apprendre la programmation en VBA pour EXCEL par la pratique - Première partie
• La liste de tous les tutoriels Excel

[Victory94]

Bonjour, je travaille actuellement sur un fichier excel, et je veux enregistrer une macro qui permet de copier le contenu de deux colonnes et le coller sur un autre tableau,mais quand j’exécute, un message d'erreur s'affiche: Erreur d’exécution '438' Propriété ou méthode non gérée par cet objet et je trouve un problème de débogage au niveau de la 3 ème ligne dans le code suivant:

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
40
 Sheets("Graph évol RT").Select
    Range("D35:46").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Graph évol RT").Select
    Range("F32").Select
    Application.CutCopyMode = False
    Range("F35:F46").Select
    Selection.Copy
    Sheets("Feuil6").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:A12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("RT_DANS_DELAI").Select
    Range("B3:B14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=6
    Range("B18:B29").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Feuil6").Select
    Application.CutCopyMode = False
    Range("B1:B12").Select
    Selection.Copy
    Sheets("RT_DANS_DELAI").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("C3:C14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=6
    Range("C18:C29").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Je ne sais pas comment résoudre ce problème.
Merci de me répondre

[Menhir]

Il manque la lettre de colonne de fin dans Range("D35:46").Select

[Victory94]

malgré la lettre de la colonne, j'ai toujours le problème, ça bloque au niveau de la 3ème ligne
le code est le suivant:

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
40
Sheets("Graph évol RT").Select
    Range("D35:D46").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Graph évol RT").Select
    Range("F32").Select
    Application.CutCopyMode = False
    Range("F35:F46").Select
    Selection.Copy
    Sheets("Feuil6").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1:A12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("RT_DANS_DELAI").Select
    Range("B3:B14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=6
    Range("B18:B29").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Feuil6").Select
    Application.CutCopyMode = False
    Range("B1:B12").Select
    Selection.Copy
    Sheets("RT_DANS_DELAI").Select
    ActiveWindow.SmallScroll Down:=-6
    Range("C3:C14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=6
    Range("C18:C29").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[d0n32]

Bonjour,

Ta plage de cellules est-elle particulière, avec des cellules fusionnées ou autre par exemple ?
Quelle forme a-t-elle ? Tu peux peut-être nous faire voir un bout de ton fichier

Tu peux au passage simplifier une partie de ton code en écrivant directement

Code :

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

Range("D35:D46").Copy

Est-ce que tu gères plusieurs classeurs dans ton code ? Cela peut générer quelques incohérences comme celle évoquée ici :
https://www.developpez.net/forums/d5...ree-cet-objet/

[Victory94]

Merci beaucoup d0n32 pour ton aide, j'ai essayé de simplifier le code et de mettre

Code :

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

Range("D35:D46").Copy

et ça a marché!

[Patrice740]

Bonjour,

Tu devrais éviter les .Select et utiliser des objets :

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
Sub test()
Dim wsh As Worksheet
Dim rngSrc As Range
Dim celDst As Range
 
  Set wsh = Worksheets.Add(after:=ActiveSheet)
  Set rngSrc = Worksheets("Graph évol RT").Range("D35:D46")
  Set celDst = wsh.Range("A1")
  celDst.Resize(rngSrc.Rows.Count, rngSrc.Columns.Count).Value = rngSrc.Value
 
  Set rngSrc = Worksheets("Graph évol RT").Range("F35:F46")
  Set celDst = Worksheets("Feuil6").Range("B1")
  celDst.Resize(rngSrc.Rows.Count, rngSrc.Columns.Count).Value = rngSrc.Value
 
  '....
 
End Sub