Application VBA excel

Version imprimable

09/08/2018, 16h55
Victory94

Application VBA excel

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.
09/08/2018, 19h12
Jean-Philippe André

Bonjour,

bienvenue sur DVP :salut:

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 ?
10/08/2018, 09h19
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.
10/08/2018, 10h31
Nagel Tha
Fouille dans ces liens (developpez.net) :

Problème de débogage

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:

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

28/02/2019, 15h42
Menhir

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

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:

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

28/02/2019, 16h20
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:

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/
28/02/2019, 16h35
Victory94

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

Code:

Range("D35:D46").Copy

et ça a marché!

Bonjour,

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

Code:

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