Discussion :

[thomhcv59]

Bonjour tout le monde,

J’ai un problème que je n’arrive pas à résoudre

J’ai 2 fichiers Excel :
- Le premier est un classeur ouvert avec comme indication les numéros de semaine

- Le deuxième est un classeur dont j’aimerais récupérer les résultats toujours avec des numéros de semaine ( le classeur est ouvert avec le code vba )

Ma problématique est la suivante :

J’aimerais avoir 2 input Box qui me demande quelle semaine j’aimerais mettre à jour

Après la macro irait chercher la ou les semaines correspondante et irait copier la plage de cellule

Exemple :

J'ouvre le classeur 1 ensuite j'éxécute la macro il me demande d'ouvrir le fichier concerné (classeur 2) ensuite j'ai une premiére input box qui s'affiche qui me demande "Sélectionnez la première Semaine Sxx " (EX:1) puis une deuxiéme inputbox "Sélectionnez la dernière Semaine Sxx"(EX:2) , il va donc récupérer les résultats de la plage ("D5 : D10") et ("E5 : D10") des semaines 1 et 2 du classeur 2 Feuil 1 pour ensuite les coller dans le classeur 1 Feuil 1

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Sub Test()
 
    Dim wbm As Workbook  'pour tt le fichier
 
 
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim wsm1 As Worksheet
 
 
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim ws3 As Worksheet
    Dim val1, val2 As Double
 
 
    année = 2013
 
    Set wbm = ThisWorkbook
    Set wsm1 = wbm.Worksheets("Feuil1")
 
 
 
    Application.ScreenUpdating = False ' permet de vider la memoire
 
 
    fichier = Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx", , "Sélectionnez tous les fichiers", , True) ' ouvrir un fichier excel
 
 
    If IsArray(fichier) Then
 
        For cpt = LBound(fichier) To UBound(fichier)
 
            Set nomfich = Application.Workbooks.Open(fichier(cpt))
 
            nom = nomfich.Name
 
            Select Case True
 
            Case nom = "Classeur2.xlsx"
 
            Set wb1 = Workbooks("Classeur2.xlsx")
 
 
 
            End Select
 
        Next cpt
 
    End If
 
    x = InputBox("Sélectionnez la première Semaine Sxx", "Choix de la Semaine")
 
    xf = InputBox("Sélectionnez la dernière Semaine Sxx", "Choix de la Semaine")
 
    s = Right(x, 2)  ' recupere le resultat a gauche et prend les 2 caracteres ex S34 34
 
    sf = Right(xf, 2)
 
    s = s + 0
 
    sf = sf + 0
 
    For compteur = s To sf  ' For <compteur>= départ
 
     semaine = "S" & s
 
        'MAJ  Ressources
 
        wbm.Activate
 
        wsm1.Activate
 
        Range("C4").Select
 
        a = Range("C4").Address
 
        b = Range(a).End(xlToRight).Address
 
        Set MaPlage = wsm1.Range(a, b)
 
        MaPlage.Select
 
        Set c = MaPlage.Find(semaine, LookIn:=xlValues, LookAt:=xlWhole)  ' find fonction recherche

Voici un début de code mais aprés je ne sais pas comment m'y prendre

Merci d'avance

Thomas

[Marc-L]

Voici un début de code mais aprés je ne sais pas comment m'y prendre

C'est quoi la difficulté ? Ou ce que tu ne sais pas faire ?

[thomhcv59]

Le problème c'est savoir comment comparer les Semaines et de copier les plages de cellule dans la bonne semaine

[Marc-L]

Que veut dire pour toi précisément comparer les semaines ? Car cela n'apparait pas dans le message initial …

[thomhcv59]

En gros , j'ai une ligne avec les semaines De S1 à S52 dans les 2 fichiers , avec dans le classeur 2 en dessous des semaines une plage de cellule à copier
Ce que j'aimerais faire c'est avoir dans le classeur 1 une macro qui m'envoi un inputbox pour me demander quelle semaine je veux copier dans le classeur 1 (la provenance étant le classeur 2)
D’où le comparer si Classeur2 = S31 alors on copie la plage de cellule de S31 dans le classeur 1 à S31

[Marc-L]

Donc tu peux commencer par le faire en utilisant l'Enregistreur de macros pour débuter avec une base de code.

Après tu pourrais demander de l'aide juste pour fignoler si besoin …