Bonjour,

Voila je viens tout juste de commencer la programmation en VBA et je ne suis pas sur de la syntaxe de mon code vu que rien ne se passe quand je l'éxécute... J'aurais voulu avoir un avis.


Code vba : 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
Sub Modif_valeur_butée()
'
' Modif_valeur_butée Macro
'
 
'
    ActiveWindow.SmallScroll Down:=-3
 
    A = Range("K3").Select
    B = Range("K4").Select
    C = Range("K5").Select
 
    If (A = 1) Then
    Sheets("Données des butées").Select
    Range("A4:B22").Select
    Selection.Copy
    Sheets("Gestion Data des Butée F1").Select
    Range("C4").Select
    ActiveSheet.Paste
    Else
        If (B = 1) Then
        Sheets("Données des butées").Select
        Range("F4:G22").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Gestion Data des Butée F1").Select
        Range("C4").Select
        ActiveSheet.Paste
        Else
            If (C = 1) Then
            Sheets("Données des butées").Select
            Range("K4:L22").Select
            Application.CutCopyMode = False
            Selection.Copy
            Sheets("Gestion Data des Butée F1").Select
            Range("C4").Select
            ActiveSheet.Paste
            End If
        End If
    End If
End Sub


Le but du programme est de modifier les valeurs de certaines cases en fonction du chiffre placé dans une autre.

Merci