Discussion :

[chlock]

salu je voudrait selectionner des colonne spécifique afin de les colé dans une autre feuille

voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sheets("SAISIE").Select
    Range("K8:K500,R8:R500,Y8:Y500,AF8:AF500, AM8:AM500, AT8:AT500, BA8:BA500, BH8:BH500, BO8:BO500, BV8:BV500, CC8:CC500, CJ8:CJ500, CQ8:CQ500, CX8:CX500, DE8:DE500, DL8:DL500, DS8:DS500, DZ8:DZ500, EGE:G500, EN8:EN500, EU8:EU500, FB8:FB500, FI8:FI500, FP8:FP500, FW8:FW500, GD8:GD500, GK8:GK500").Select
 
    Selection.Copy
    Sheets("HORAIRE").Select
    'Range("E8").Select
    'Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    'False, Transpose:=False

de la feuille saisie je voudrait aller les mettre dans horaire
quelle ojet mettre dans la syntaxe
merci

[Invité]

Bonsoir,

Vos colonnes sont incrémentées de 7 en 7.

Vous pouvez donc utiliser ce code :

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
Application.ScreenUpdating = False
 
numc = 11
dc = 193
numcc = 5
For i = numc To dc Step 7
Sheets("Saisie").Select
Range(Cells(8, i), Cells(500, i)).Copy
 
Sheets("HORAIRE").Select
Range(Cells(8, numcc), Cells(8, numcc)).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
numcc = numcc + 1
Next i
Application.ScreenUpdating = True

Ici chaque colonne est copiée dans E puis F puis G etc.

Si vous voulez également respecter l'écart de 7 colonnes pour la copie il faut changer cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
numcc = numcc + 1
 
en
 
numcc = numcc + 7

[Gorfael]

Salut chlock, jacques_jean et le forrum
En me servant de manière éhontée du code de jacques_jean, la même en plus court

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test()
Dim X As Integer
'Application.ScreenUpdating = False
For X = 0 To 26
Sheets("Saisie").Range(Cells(8, 11 + (X * 7)), Cells(500, 11 + (X * 7))).Copy
Sheets("HORAIRE").Cells(8, 5 + X).PasteSpecial Paste:=xlValues
Next X
'Application.ScreenUpdating = True
End Sub

J'ai mis les ScreenUpDating en commentaire, parce que, pour moi, ils impliquent une gestion des erreurs, pour ne pas se retrouver avec un à False, sans en être averti
A+

[Invité]

Bonjour Gorfael,

Pas de problème, je n'avais pas encore "déposé les droits".

Vous avez raison, je ne sais pas pourquoi j'avais laissé les "Select".

Il faut juste préciser que si le code se trouve dans un module standard, il est nécessaire que la feuille source ("Saisie") soit la feuille active et donc ajouter éventuellement Sheets("Saisie").Select ?

[Gorfael]

Salut jacques_jean

Il faut juste préciser que si le code se trouve dans un module standard, il est nécessaire que la feuille source ("Saisie") soit la feuille active et donc ajouter éventuellement Sheets("Saisie").Select ?[/

Non!
Par défaut, si la feuille n'est pas précisée, c'est Activesheet qui est prise par défaut (idem pour WorkBook).
Quand on commence à jongler avec les feuilles, il faut faire très attention à ça, surtout si on utilise With pour s'éviter de l'écriture un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("Feuil2")
   range("A1").copy .Range("A2")
end with

et différent de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("Feuil2")
   .range("A1").copy Range("A2")
end with

Dans le premier on copy de la feuille active vers Feuil2 et dans l'autre, c'est l'inverse

la grande différence entre les odules généraux et les modules de feuille, c'est que dans ces derniers, tu ne peux activer ou sélectionner en dehors de la feuille liée.
A+

[Invité]

Re,

Je suis peut-être déjà fatigué, mais je n'ai pas très bien compris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Test()
Dim X As Integer
'Application.ScreenUpdating = False
For X = 0 To 26
Sheets("Saisie").Range(Cells(8, 11 + (X * 7)), Cells(500, 11 + (X * 7))).Copy
Sheets("HORAIRE").Cells(8, 5 + X).PasteSpecial Paste:=xlValues
Next X
'Application.ScreenUpdating = True
End Sub

Avec ce code dans un module standard, si la feuille active au lancement est "HORAIRE" j'ai le message :

"Erreur d'exécution 1004. Erreur définie par l'application ou par l'objet"

[Didier Gonard]

Bonjour,

Ben oui jacques_jean,... même pb qu'ici
http://www.developpez.net/forums/sho...91#post3402991

Pour expliciter teste les 3 codes suivants :
1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Test()
Dim X As Integer
'Application.ScreenUpdating = False
For X = 0 To 26
Sheets("Saisie").Range(Cells(8, 11 + (X * 7)), Cells(500, 11 + (X * 7))).Copy Sheets("HORAIRE").Cells(8, 5 + X) '.PasteSpecial Paste:=xlValues
Next X
'Application.ScreenUpdating = True
End Sub

c'est OK car on ne passe pas par select.....et on utilise l'argument destination (qui peut-être implicite, la preuve).

2)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Test2()
Dim X As Integer
'Application.ScreenUpdating = False
For X = 0 To 0
Sheets("Saisie").Range(Cells(8, 11 + (X * 7)), Cells(500, 11 + (X * 7))).Copy
Sheets("HORAIRE").Select
Sheets("HORAIRE").Cells(8, 5 + X).PasteSpecial Paste:=xlValues
Next X
'Application.ScreenUpdating = True
End Sub

c'est Ok car j'ai réduit la boucle à 1 donc effectivement la feuille sélectionnée est la feuille active par défaut...et on sélectionne la deuxième, puis stop.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test3()
Dim X As Integer
'Application.ScreenUpdating = False
For X = 0 To 26
Sheets("Saisie").Select
Sheets("Saisie").Range(Cells(8, 11 + (X * 7)), Cells(500, 11 + (X * 7))).Copy
Sheets("HORAIRE").Select
Sheets("HORAIRE").Cells(8, 5 + X).PasteSpecial Paste:=xlValues
Next X
'Application.ScreenUpdating = True
End Sub

C'est toujours OK car je remets des select alternatifs....

c'est marrant car c'est plus explicite que mon truc sur le lien précédent Arf !

cordialement,

Didier