Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" <noSPAM@Hotmail.con> a écrit dans le message de news:
%232iVh%23jpFHA.2116@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" <noSPAM@Hotmail.con> a écrit dans le message de news:
%232iVh%23jpFHA.2116@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" a écrit dans le message de news:
Alors, je vais essayer de m'expliquer clairement (chose assez difficile je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" a écrit dans le message de news:
OQ$Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" <noSPAM@Hotmail.con> a écrit dans le message de news:
OuXzBBlpFHA.1148@TK2MSFTNGP12.phx.gbl...
Alors, je vais essayer de m'expliquer clairement (chose assez difficile je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OQ$LbpkpFHA.3960@TK2MSFTNGP12.phx.gbl...
Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" <noSPAM@Hotmail.con> a écrit dans le message de news:
%232iVh%23jpFHA.2116@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" a écrit dans le message de news:
Alors, je vais essayer de m'expliquer clairement (chose assez difficile je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" a écrit dans le message de news:
OQ$Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" a écrit dans le message de news:
Alors, je vais essayer de m'expliquer clairement (chose assez difficile je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" a écrit dans le message de news:
OQ$Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" <noSPAM@Hotmail.con> a écrit dans le message de news:
OuXzBBlpFHA.1148@TK2MSFTNGP12.phx.gbl...
Alors, je vais essayer de m'expliquer clairement (chose assez difficile je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OQ$LbpkpFHA.3960@TK2MSFTNGP12.phx.gbl...
Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" <noSPAM@Hotmail.con> a écrit dans le message de news:
%232iVh%23jpFHA.2116@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" a écrit dans le message de news:
Alors, je vais essayer de m'expliquer clairement (chose assez difficile je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" a écrit dans le message de news:
OQ$Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" a écrit dans le message de news:
Alors, je vais essayer de m'expliquer clairement (chose assez difficile je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" a écrit dans le message de news:
OQ$Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" <noSPAM@Hotmail.con> a écrit dans le message de news:
OuXzBBlpFHA.1148@TK2MSFTNGP12.phx.gbl...
Alors, je vais essayer de m'expliquer clairement (chose assez difficile je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OQ$LbpkpFHA.3960@TK2MSFTNGP12.phx.gbl...
Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" <noSPAM@Hotmail.con> a écrit dans le message de news:
%232iVh%23jpFHA.2116@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" a écrit dans le message de news:
Alors, je vais essayer de m'expliquer clairement (chose assez difficile je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" a écrit dans le message de news:
OQ$Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
2 façons de faire :
Tenter de tout vouloir mettre sur une même ligne n'est pas une obligation,
ni une nécessité. Pour le même prix (!), lorsqu'il est
possible d'écrire un bout de code qui sera plus compréhensible et plus
accessible pour le commun des mortes sans aucun
désavantage... Pourquoi ne pas considérer cette avenue ?
'*******************
Dim NbLig As Long
Dim Rg As Range
With Worksheets("Feuil2")
NbLig = .Range("A2").Offset(, 1)
Set Rg = .Range("A2").Offset(, 3).Resize(nb)
MsgBox Rg.Address
End With
'*******************
'OU
'*******************
With Worksheets("Feuil2")
Set Rg = .Range("A2").Offset(, 3).Resize(.Range("A2").Offset(, 1))
MsgBox Rg.Address
End With
'*******************
Salutations!
"OlivierP" a écrit dans le message de news:
Pour faire ça, ya pas de problème mais en fait, ce que je voudrais, ça
serait de redimensionner la plage en fonction du chiffre écrit dans la
deuxième cellule à droite du nom. Donc, en fais, la valeur dans la cellule
change pour chaque nom, il faudrait utiliser un code comme celui-ci (qui
ne
fonctionne pas):
range(c.offset(0,3), range(c.offset(0,3)).resize(c.offset(0,2).text))
Merci,
Olivier
"michdenis" a écrit dans le message de news:Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" a écrit dans le message de news:
Alors, je vais essayer de m'expliquer clairement (chose assez difficile
je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a
acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" a écrit dans le message de news:
OQ$Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes
vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un
nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
2 façons de faire :
Tenter de tout vouloir mettre sur une même ligne n'est pas une obligation,
ni une nécessité. Pour le même prix (!), lorsqu'il est
possible d'écrire un bout de code qui sera plus compréhensible et plus
accessible pour le commun des mortes sans aucun
désavantage... Pourquoi ne pas considérer cette avenue ?
'*******************
Dim NbLig As Long
Dim Rg As Range
With Worksheets("Feuil2")
NbLig = .Range("A2").Offset(, 1)
Set Rg = .Range("A2").Offset(, 3).Resize(nb)
MsgBox Rg.Address
End With
'*******************
'OU
'*******************
With Worksheets("Feuil2")
Set Rg = .Range("A2").Offset(, 3).Resize(.Range("A2").Offset(, 1))
MsgBox Rg.Address
End With
'*******************
Salutations!
"OlivierP" <noSPAM@Hotmail.con> a écrit dans le message de news:
OHhySSlpFHA.3516@TK2MSFTNGP15.phx.gbl...
Pour faire ça, ya pas de problème mais en fait, ce que je voudrais, ça
serait de redimensionner la plage en fonction du chiffre écrit dans la
deuxième cellule à droite du nom. Donc, en fais, la valeur dans la cellule
change pour chaque nom, il faudrait utiliser un code comme celui-ci (qui
ne
fonctionne pas):
range(c.offset(0,3), range(c.offset(0,3)).resize(c.offset(0,2).text))
Merci,
Olivier
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
Oa9GdMlpFHA.3084@TK2MSFTNGP09.phx.gbl...
Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" <noSPAM@Hotmail.con> a écrit dans le message de news:
OuXzBBlpFHA.1148@TK2MSFTNGP12.phx.gbl...
Alors, je vais essayer de m'expliquer clairement (chose assez difficile
je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a
acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OQ$LbpkpFHA.3960@TK2MSFTNGP12.phx.gbl...
Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes
vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" <noSPAM@Hotmail.con> a écrit dans le message de news:
%232iVh%23jpFHA.2116@TK2MSFTNGP14.phx.gbl...
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un
nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
Bonjour Olivier,
2 façons de faire :
Tenter de tout vouloir mettre sur une même ligne n'est pas une obligation,
ni une nécessité. Pour le même prix (!), lorsqu'il est
possible d'écrire un bout de code qui sera plus compréhensible et plus
accessible pour le commun des mortes sans aucun
désavantage... Pourquoi ne pas considérer cette avenue ?
'*******************
Dim NbLig As Long
Dim Rg As Range
With Worksheets("Feuil2")
NbLig = .Range("A2").Offset(, 1)
Set Rg = .Range("A2").Offset(, 3).Resize(nb)
MsgBox Rg.Address
End With
'*******************
'OU
'*******************
With Worksheets("Feuil2")
Set Rg = .Range("A2").Offset(, 3).Resize(.Range("A2").Offset(, 1))
MsgBox Rg.Address
End With
'*******************
Salutations!
"OlivierP" a écrit dans le message de news:
Pour faire ça, ya pas de problème mais en fait, ce que je voudrais, ça
serait de redimensionner la plage en fonction du chiffre écrit dans la
deuxième cellule à droite du nom. Donc, en fais, la valeur dans la cellule
change pour chaque nom, il faudrait utiliser un code comme celui-ci (qui
ne
fonctionne pas):
range(c.offset(0,3), range(c.offset(0,3)).resize(c.offset(0,2).text))
Merci,
Olivier
"michdenis" a écrit dans le message de news:Bonjour Olivier,
Je suppose que pour la partie "recherche" ça va !
Pour redimensionner la plage :
Dim Adr as String
'Suppose que la cellule recherche au nom de M. Chose est A2
'A partir de la cellule A2
Adr = Range("A2").Offset(, 2).Resize(3).Address
A2 = Cellule de départ.
.offset(,2) -> déplacement de deux colonnes à droite soit la colonne C
Donc Range("A2").Offset(,2) nous amène à la cellule C2
Maintenant nous voulons redimensionner la plage C2 pour inclure 3 lignes
de plus.
Adr = Range("A2").Offset(,2).resize(3)
Cela nous donne la plage : C2:C4
Et si tu désires utiliser une variable objet de type Range
Dim Rg as range
With worksheets("Feuil1")
Set Rg = .Range("A2").Offset(, 2).Resize(3)
End with
La combinaison du duo des méthodes "Offset" et "Resize" en VBA, travaille
de la mêm façon que la fonction de la feuille de calcul
"Decaler"
Salutations!
"OlivierP" a écrit dans le message de news:
Alors, je vais essayer de m'expliquer clairement (chose assez difficile
je
dois dire).
Donc, j'ai quatres colonnes, la premiere c'est pour les nom, la seconde
est
le nombre d'item que la personne a acheté, la troisième ne sert à rien
pour
cet exemple et la quatrième est celle des item que la personne a acheté.
Par
exemple, cela peut faire:
Maxime Machin | 3 | 2 | Cd xxl
| | | Cd vroum
| | | Cd vroum2
Robinson Cruosé| 2 | 2 | Cd xxl23
| | | Cd vroum11
etc...
Je cherche donc à prendre par exemple les items que Maxime Machin a
acheté
(ici, 3 item), à les copier et à les mettres dans une textbox. Alors, la
proc cherche dont premièrement dans la premiere colonne le nom de la
personne, et après elle base sont range en fonction de la cellule du nom
et
du nombre d'item de la personne. J'ai essayé avec la fonction resize mais
ça
ne fonctionne pas:
Range(C.Offset(3, 0)).Resize(C.Offset(0, 1).Text, "0").Copy
Merci,
Olivier
"michdenis" a écrit dans le message de news:
OQ$Bonjour OlivierP,
Pourquoi ne pas donner un exemple simple de ce que tu veux faire ...!
Exemple :
Une plage débute en A3 , elle doit être redimensionner de x colonnes
vers
la droite, et y lignes vers le bas.
Tu aurais quelque chose comme :
Range("A3").Resize(y,x) ....
Salutations!
"OlivierP" a écrit dans le message de news:
%232iVh%
Bonjour,
J'aimerais faire un range par rapport à une cellule dans la colonne A et
que
ce range commence de cette cellule relative à celle de la colonne A et
qu'il
finisse après x lignes en dessous de cette colonne. Ce x serait un
nombre
d'une cellule dont l'adresse est offset(0,1) après la cellule de la
colonne
A.
Voici mon code qui cause problème:
Range(C.Offset(3, 0), C.Offset(3, 0) & C.Offset(1,
0).Value)
Donc, en fait, le range commence à cette adresse: "C.Offset(3, 0)" et il
se
termine à "C.Offset(3, 0)" plus les lignes marquées dans cette cellule
"C.Offset(1, 0)".
Comment faire ?
Merci beaucoup,
Olivier
