Discussion :

[Baloux]

Bonjour a tous,

Apres avoir longuement parcouru le site et le forum je me suis dis autant participé et m'inscrire sur le forum pour y contribué. En tout cas bravo aux participants. Or j'ai une question qui me trote depuis un petit moment et j'ai pas trouvé la réponse a ce sujet sur le forum (ou du moins une réponse que j'attendais meme si le sujet a été abordé sur le forum).

Par exemple ici : http://www.developpez.net/forums/sho...d.php?t=370836

Voila ma question :

Comment incrementer une colonne type ("C4:C34") en ("D4:D34") ?
Il n'y a finalement que la collone qui change mais je n' y arrive pas...

Voila si vous avez des idées sur le sujets...

Merci a vous en tout cas...

[fring]

Bonjour et bienvenue

Comme le précisait Alain Tech dans la discussion à laquelle tu fais référence, il est plus facile d'utiliser les index de lignes et de colonnes, par exemple :

Code :

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

Range("C4:C34") = Range(Cells(4, 3), Cells(34, 3))

Cells(x, y) --> x = n° de ligne et y = n° de colonne

A partir de là plusieurs possibilités

Code :

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

Range(Cells(4, 3 + 1), Cells(34, 3 + 1))

ou

Code :

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

Range(Cells(4, 3).Offset(0, 1), Cells(34, 3).Offset(0, 1))

ou une boucle qui parcoure les colonnes C, D, E, F et G

Code :

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

1
2
3
For i = 3 To 7
Range(Cells(4, i), Cells(34, i))
Next

etc...

[ouskel'n'or]

Juste pour taquiner le lecteur

Code :

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

1
2
3
4
Ad1 = "C4:C34"
Ad2 = Range(Range(Split(Ad1, ":")(0)).Offset(0, 1).Address & ":" _
& Range(Split(Ad1, ":")(1)).Offset(0, 1).Address).Address(0, 0)
MsgBox Ad2

(Bonjour fring)

Edit
On peut "simplifier"

Code :

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

1
2
Ad2 = Range(Range(Split(Ad1, ":")(0)).Offset(0, 1).Address & ":" _
& Range(Split(Ad1, ":")(1)).Offset(0, 1).Address).Address

mais on aura l'adresse en absolu

[Baloux]

Merci de vos réponses rapide.

JE vais tester ça et vous en dire des nouvelles...

[Baloux]

Heu juste un truc j'ai une variable, un entier leMois tel que

Range(Cells(4, 3 + (leMois - 1)), Cells(34, 3 + (leMois - 1))

mais j'ai une erreur 1004

Je ne comprends pas pourquoi?

Au lieu d'incrementer je veux que cela se fasse en fonction de la variable.

Une idée?

[fring]

il manque une parenthèse mais je suppose que c'est une erreur dans le copier/coller de ta ligne de code

Teste ceci, tu constateras que la variable LeMois est bien prise en compte

Code :

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

1
2
3
4
5
Sub test()
Dim LeMois As Integer
LeMois = 10
MsgBox Range(Cells(4, 3 + (LeMois - 1)), Cells(34, 3 + (LeMois - 1))).Address
End Sub

[Baloux]

Non ca ne marche pas non plus.

Voila mon code:

Code :

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

1
2
Sheets("Tableau").Range("H10:H40").Copy
    Worksheets("ANNUEL 2008").Range(Cells(4, 3 + (LeMois - 1)), Cells(34, 3 + (LeMois - 1))).PasteSpecial Paste:=xlPasteValues

Il me semble que c'est le Worksheets("ANNUEL 2008") qui engenedre le probleme...

[fring]

Non ca ne marche pas non plus.

Je me permet une rectification...

Non je n'arrive pas à le faire fonctionner non plus

En faisant découvrir ton code et le but que tu cherches à atteindre petit bout par petit bout, tu es certain de ne pas avoir de réponse adéquate...!

2 Solutions :

Code copier/collage spécial valeur uniquement :

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

1
2
3
4
5
6
7
8
Sub test1()
Dim LeMois As Integer
LeMois = 10
Sheets(1).Range("H10:H40").Copy
Sheets(2).Select
Range(Cells(4, 3 + (LeMois - 1)), Cells(34, 3 + (LeMois - 1))).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

Code simple copier/coller :

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

1
2
3
4
5
Sub test2()
Dim LeMois As Integer
LeMois = 10
Sheets(1).Range("H10:H40").Copy Sheets(2).Range(Cells(4, 3 + (LeMois - 1)), Cells(34, 3 + (LeMois - 1)))
End Sub

[Baloux]

En faisant découvrir ton code et le but que tu cherches à atteindre petit bout par petit bout, tu es certain de ne pas avoir de réponse adéquate...!

Bah je le fais au fur et a mesure j'ai l'idée mais pour l'appliquer....
Perso je n'ai jamais fait de VBA mais j'essaye et j'apprends.

En tout cas ca marche je te remercie.

[fring]

Perso je n'ai jamais fait de VBA mais j'essaye et j'apprends.

Bonne continuation et n'hésite pas si besoin d'autres explications