Incrementation d'une colonne spécifique

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...

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:

---

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:

---

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

---

ou

Code:

---

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:

---

1 2 3

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

---

etc...

Juste pour taquiner le lecteur ;)

Code:

---

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:

---

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 ;)

Merci de vos réponses rapide.

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

:king:

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?

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:

---

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

---

Non ca ne marche pas non plus.

Voila mon code:

Code:

---

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...

Citation:

---

Envoyé par Baloux

Non ca ne marche pas non plus.

---

Je me permet une rectification...

Citation:

---

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:

---

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:

---

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

---

Citation:

---

Envoyé par fring

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.

:merci:

:resolu:

Citation:

---

Envoyé par Baloux

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

---

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