Début en VBA

Version imprimable

Début en VBA

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:

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

Salut,

Je sais pas ce que tu veux vraiment faire mais essaie ce code la

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
41
42
43
44
45
46
47
48
49
50
51
52
Option Explicit
Public currentwk As Workbook
Public currentws As Worksheet
Public currentws1 As Worksheet
Sub Modif_valeur_butée()
'
' Modif_valeur_butée Macro
 
    Set currentwk = ActiveWorkbook
    If currentwk Is Nothing Then Exit Sub
 
    Set currentws = currentwk.Worksheets("Données des butées")
    If currentws Is Nothing Then
    MsgBox "la feuille Données des butées n'existe pas!, vbCritical"
    Exit Sub
    End If
 
    Set currentws1 = currentwk.Worksheets("Gestion Data des Butée F1")
    If currentws1 Is Nothing Then
    MsgBox "la feuille Gestion Data des butées F1 n'existe pas!, vbCritical"
    Exit Sub
    End If
 
    If currentws.Range("K3") = "1" Then
    currentws.Range("A2:B22").Select
    Selection.Copy
    currentws1.Activate
    currentws1.Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
 
    Else
        If currentws.Range("K4") = "2" Then
        currentws.Range("F2:G22").Select
        Selection.Copy
        currentws1.Activate
        currentws1.Range("C4").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
        Else
            If currentws.Range("K5") = "3" Then
            currentws.Range("K4:L22").Select
            Selection.Copy
            currentws1.Activate
            currentws1.Range("C4").Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            End If
        End If
    End If
End Sub

Bonsoir,
reprenant ton code Ozer45,en supprimant les "select" et"activate

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Public currentws As Worksheet
Public currentws1 As Worksheet
Sub Modif_valeur_butée()
Set currentws = Sheets("Données des butées")
Set currentws1 = Sheets("Gestion Data des Butée F1")
If currentws.Range("K3") = "1" Then
  currentws.Range("A2:B22").Copy
  currentws1.Range("C4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End If
If currentws.Range("K4") = "2" Then
    currentws.Range("F2:G22").Copy
    currentws1.Range("C4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
End If
If currentws.Range("K5") = "3" Then
  currentws.Range("K4:L22").Copy
  currentws1.Range("C4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End If
End Sub

Bonjour,

Et avec ceci ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub Modif_valeur_butée()
 
    'comme apparemment une seule des trois cellules peut avoir la valeur 1
    'il n'est pas nécessaire d'imbriquer les if
    With Sheets("Données des butées")
 
        If .Range("K3") = 1 Then
           .Range("A4:B22").Copy Sheets("Gestion Data des Butée F1").Range("C4")
        End If
 
        If .Range("K4") = 1 Then
            .Range("F4:G22").Copy Sheets("Gestion Data des Butée F1").Range("C4")
        End If
 
        If .Range("K5") = 1 Then
            .Range("K4:L22").Copy Sheets("Gestion Data des Butée F1").Range("C4")
        End If
 
    End With
 
End Sub

Hervé.

23/02/2012, 08h51
Ozer45

Salut,

Ca simplifie de beaucoup ma macro c'est sur!!!!

bravo à vous!!!
23/02/2012, 10h31
Tarabass911

Merci à vous j'ai pu alléger mon code et résoudre mon souci ;)