Simplifier code VBA copier Coller

Version imprimable

Bonjour, et merci à tous pour votre aide.

1) Tout d'abord : J'aimerais simplifier le code ci-dessous (ici il n'y a que 2 "If" mais en fait il y en aurait au moins 30).
En résumé en langage courant je voudrais qu'en fonction de la valeur de F16 (If F16=....) je puisse copier une plage donnée variable (30 variables environ qui peuvent être nommée par exemple "B38:J35" serait SAMICS6) pour la coller dans une autre plage nommée fixe (S1SA1).
2) En BONUS Je souhaiterais aussi (dans la même macro si c'est possible??) qu'en fonction de la valeur de F17(If F17=...) je puisse aussi copier une plage donnée pour la coller dans une autre plage nommée fixe (S1SA2).
Avez vous une idée pour simplifier ce code?
Merci beaucoup
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 Sub CREERSEANCE1() ' ' CREERSEANCE1 Macro ' '1ere situation If Range("F16").Value = "6" Then Sheets("SAMIC").Range("B38:J50").Copy Sheets("S1").Select Range("S1SA1").Select ActiveSheet.Paste End If If Range("F16").Value = "2" Then Sheets("SAMIC").Range("B53:J62").Copy Sheets("S1").Select Range("S1SA1").Select ActiveSheet.Paste End If ' End Sub

30/06/2015, 16h24
Kimy_Ire
Bonjour myk636,

30 x If = Select Case.
Ainsi, regarde l'aide qui te guidera sur sa construction ou ici.

Ensuite, supprime tes .Select.
Exemple pour copier tes valeurs sur une autre range.
Ceci :
Code:

1 2 3 4 Sheets("SAMIC").Range("B38:J50").Copy Sheets("S1").Select Range("S1SA1").Select ActiveSheet.Paste
devient ceci :

Code:

Sheets("S1").Range("S1SA1").Value = Sheets("SAMIC").Range("B38:J50").Value

Voila ! :ccool:
N'hésite pas à revenir vers moi !

Cordialement,
Kimy

Merci énormément de ton aide qui m'a permis de simplifier fortement le code.. MERCI sincèrement..
J'essaye de le simplifier encore mais cela reste assez difficile : (dans le code je n'ai mis que 2 If encore au lieu de 30x4 probable
)
1) J'ai donc environ 30 variables du type S1, S2,....S30 ( ce sont des tableaux mis en forme identiquement : 9 colonnes et 15 lignes avec des fusions, etc... espacés de 2 lignes)
2) Et j'ai 4 autres variables du type S1SA1 (S1SA2, S1SA3..)Dois je Définir l'ensemble des Valeurs des variables (ex : Set S1SA1 = Sheets("S1").Range("C27:K39") et S1=Sheets("SAMIC").Range("B38:J50") )) ou y'a t'il un moyen plus rapide de les définir avec les informations que je vous ai donné??

MERCI encore pour votre aide
Bonne soirée

PS: je n'ai réussi à utiliser la fonction Select case dont vous m'aviez parlé ;(
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 Sub CREERSEANCE1() 'Sub variables() 'Déclaration des variables Dim SA1 As String, S1SA1 As Range, S1 As Range 'S2 As Range 'SA2 As String, SA3 As String 'Valeurs des variables SA1 = Cells(16, 6) 'SA2 = Cells(17, 6) 'SA3 = Cells(18, 6) Set S1SA1 = Sheets("S1").Range("C27:K39") Set S1 = Sheets("SAMIC").Range("B38:J50") Set S2 = Sheets("SAMIC").Range("B53:J68") '1ere situation If SA1 = "1" Then S1SA1.Value = S1.Value ElseIf SA1 = "2" Then S1SA1.Value = S2.Value End If ' End Sub
MERCI

Bonjour,

Avec un Select Case et sans copie si les plage sont de même dimension :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub CREERSEANCE1()
'1ere situation
 
    Select Case Range("F16").Value
        Case "6"
            Sheets("S1").Range("S1SA1").Value = Sheets("SAMIC").Range("B38:J50").Value
 
        Case "2"
            Sheets("S1").Range("S1SA1").Value = Sheets("SAMIC").Range("B53:J62").Value
 
    End Select
 
End Sub

Quand tu poste un code, mets le entre les balises CODE (bouton #)

Hervé.

Merci pour cette réponse qui fait avancer la simplification de ce code et ma compréhension de Select Case. MERCI

Les codes fonctionnent parfaitement, toutefois j'avais oublié de préciser que le tableau (B38:J50 par exemple) contenait une image et donc lorsque j'utilise ce code il ne copie que la valeur des cellules (normal), comment puis-je faciliter la copie de l'image qui fait partie du tableau toujours en simplifiant ?
Lorsque j'utilisais mon 1er code, il copiait bien l'image..

Merci pour vos aides expérimentées..

j'essaie de retravailler le code en trouvant des solutions qui marchent mais qui ne semblent pas optimales dans la mesure ou j'ai beaucoup de variables.
Grâce à vous j'ai réussi à réécrire une partie du code qui me semblait beaucoup plus lisible...

Code:

S1SA1.Value = S1.Value

Peut on faire aussi simple pour copier une image (faisant partie du tableau)?

Les formules du types S1SA1.Select ne semblent pas fonctionner malgré la déclaration des variables.. Dans le code suivant j'ai ajouté la copie d'une image (faisant partie du tableau).
Peut on simplifier?
MERci
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 Sub CREERSEANCE1() 'Déclaration des variables Dim SA1 As String, S1SA1 As Range, S1 As Range 'Valeurs des variables SA1 = Cells(16, 6) Set S1SA1 = Sheets("S1").Range("C27:K39") Set S1 = Sheets("SAMIC").Range("B38:J50") Set S2 = Sheets("SAMIC").Range("B53:J68") Select Case SA1 Case "1" S1SA1.Value = S1.Value Sheets("SAMIC").Select ActiveSheet.Shapes.Range(Array("Picture 10")).Select selection.Copy Sheets("S1").Select Range("C30:G30").Select ActiveSheet.Paste Case "2" S1SA1.Value = S2.Value Sheets("SAMIC").Select ActiveSheet.Shapes.Range(Array("Image 7")).Select selection.Copy Sheets("S1").Select Range("C30:G30").Select ActiveSheet.Paste End Select Sheets("CYCLE").Select End Sub
Merci infinimement
Je cherche partout mais ne trouve pas vraiment ce dont j'ai besoin alors votre aide me fait gagner un temps précieux..
MERCI

Mick

Bonjour,

Effectivement, avec ".Value" = ".Value" seules les valeurs sont récupérées, pour l'image, il faut la copier :

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
 
Sub CREERSEANCE1()
 
   'Déclaration des variables
    Dim S1SA1 As Range
    Dim S1 As Range
    Dim S2 As Range
    Dim SA1 As String
 
    'Valeurs des variables
    SA1 = Cells(16, 6)
    Set S1SA1 = Sheets("S1").Range("C27:K39")
    Set S1 = Sheets("SAMIC").Range("B38:J50")
    Set S2 = Sheets("SAMIC").Range("B53:J68")
 
    Application.CutCopyMode = False
    Select Case SA1
 
        Case "1"
            S1SA1.Value = S1.Value
            Sheets("SAMIC").Shapes("Picture 10").Copy
            Sheets("S1").Range("C30").PasteSpecial xlPasteAll
 
 
        Case "2"
            S1SA1.Value = S2.Value
            Sheets("SAMIC").Shapes("Image 7").Copy
            Sheets("S1").Range("C30").PasteSpecial xlPasteAll
 
    End Select
 
End Sub

Hervé.

Merci Hervé tu m'aides énormément et j'espère que ça peut servir à d'autres aussi.
Grâce à vous je m'approche progressivement de mon but final et j'en suis très heureux.

je voulais savoir si un code comme tu l'as écrit :
Code:

1 2 3 Sheets("SAMIC").Shapes("Picture 10").Copy Sheets("S1").Range("C30").PasteSpecial xlPasteAll
pouvait se transformer en :
Code:

1 2 3 4 5 6 7 8 9 10 Dim S1C30 As Range Dim Picture 10 As Object Set S1C30=Sheets("S1").Range("C30") Set Picture 10=Sheets("SAMIC").Shapes("Picture 10") .... Picture10.Copy S1C30.PasteSpecial xlPasteAll
Car cela ne semble pas marcher
(je n'ai pas trouvé comment référencer les images avec Dim et Set?)

Enfin pourquoi on ne pas pas écrire par exemple

Code:

S1SA1.Select

ou encore

Code:

S1SA1.Copy

MERCI pour votre aide, je touche au but..

Bonne soirée

Mic

Bonjour,

De cette façon peut être :

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
 
Sub CREERSEANCE1()
 
   'Déclaration des variables
    Dim S1SA1 As Range
    Dim S1 As Range
    Dim S2 As Range
    Dim SA1 As String
    Dim Photo As Shape
 
    'Valeurs des variables
    SA1 = Cells(16, 6)
    Set S1SA1 = Sheets("S1").Range("C27:K39")
    Set S1 = Sheets("SAMIC").Range("B38:J50")
    Set S2 = Sheets("SAMIC").Range("B53:J68")
 
    Application.CutCopyMode = False
 
    Select Case SA1
 
        Case "1"
            S1SA1.Value = S1.Value
            Set Photo = Sheets("SAMIC").Shapes("Picture 10")
            Photo.Copy
            Sheets("S1").Range("C30").PasteSpecial xlPasteAll
 
 
        Case "2"
            S1SA1.Value = S2.Value
            Set Photo = Sheets("SAMIC").Shapes("Image 7")
            Photo.Copy
            Sheets("S1").Range("C30").PasteSpecial xlPasteAll
 
    End Select
 
End Sub

Citation:

Enfin pourquoi on ne pas pas écrire par exemple
"S1SA1.Select"
ou encore
"S1SA1.Copy"

On peut mais la copie prend plus de temps et pour ma part, je préfère l'affectation des valeurs plutôt que la copie car pour cette dernière, plein de choses peuvent être "embarquées" avec sans qu'on le souhaite vraiment.

Hervé.

25/08/2015, 16h52
myk636

Merci beaucoup pour toutes ces réponses.
Toujours sympa des personnes comme vous qui aident les autres.
Bonne continuation
Au plaisir
25/08/2015, 20h34
Quentin77170

Salut à toi,

Je me permets de te donner juste une petite info complémentaire concernant le copier-coller...

Tu peux utiliser l'argument optionnel "Destination" de la méthode .Copy :

Code:

Range("A1").Copy Destination:=Range("B1")