Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Il y a ceci :
'--------------------------- Sub test() Dim Rg As Range, RgCopie As Range
'Feuille source With Worksheets("M3") Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row) End With
'Feuille de destination : Nom à adapter à ton application With Worksheets("Feuil2") Set RgCopie = .Range("A2").Resize(Rg.Rows.Count * 3) End With
x = -1 For Each r In Rg.Rows x = x + 3 r.Copy RgCopie(x) Next
End Sub '---------------------------
"Manu Puig" a écrit dans le message de news: O9C6$ Bonjour à tous, j'ai un problème de recopie de cellules dans une autre feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes : Date + Nombre, avec 3 valeurs par date. Exemple :
Je voudrais recopier les données pour que chaque nouvelle ligne se décale de 3 cellules...
J'espère avoir été assez clair dans l'exposé de mon problème...
Merci de votre aide pour toute piste ou solution.
Manuel
Il y a ceci :
'---------------------------
Sub test()
Dim Rg As Range, RgCopie As Range
'Feuille source
With Worksheets("M3")
Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row)
End With
'Feuille de destination : Nom à adapter à ton application
With Worksheets("Feuil2")
Set RgCopie = .Range("A2").Resize(Rg.Rows.Count * 3)
End With
x = -1
For Each r In Rg.Rows
x = x + 3
r.Copy RgCopie(x)
Next
End Sub
'---------------------------
"Manu Puig" <manupuig@noos.fr> a écrit dans le message de news:
O9C6$NqKHHA.780@TK2MSFTNGP03.phx.gbl...
Bonjour à tous, j'ai un problème de recopie de cellules dans une autre
feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes :
Date + Nombre, avec 3 valeurs par date. Exemple :
'--------------------------- Sub test() Dim Rg As Range, RgCopie As Range
'Feuille source With Worksheets("M3") Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row) End With
'Feuille de destination : Nom à adapter à ton application With Worksheets("Feuil2") Set RgCopie = .Range("A2").Resize(Rg.Rows.Count * 3) End With
x = -1 For Each r In Rg.Rows x = x + 3 r.Copy RgCopie(x) Next
End Sub '---------------------------
"Manu Puig" a écrit dans le message de news: O9C6$ Bonjour à tous, j'ai un problème de recopie de cellules dans une autre feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes : Date + Nombre, avec 3 valeurs par date. Exemple :
Je voudrais recopier les données pour que chaque nouvelle ligne se décale de 3 cellules...
J'espère avoir été assez clair dans l'exposé de mon problème...
Merci de votre aide pour toute piste ou solution.
Manuel
Manu Puig
Merci, mais ça ne marche pas.
Les cellules se recopient à la verticale séparées de 3 lignes, et non à l'horizontale.
Je voudrais que les séries de 3 cellules verticales se replacent à l'horizontale à la même ligne, c'est à dire que la série =M3!A2, =M3!B2, =M3!B3, =M3!B4 devienne =M3!A5, =M3!B5, =M3!B5, =M3!B5
Une précision, je travaille avec Excel 2000. Merci de ton aide !
"MichDenis" a écrit dans le message de news:
Il y a ceci :
'--------------------------- Sub test() Dim Rg As Range, RgCopie As Range
'Feuille source With Worksheets("M3") Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row) End With
'Feuille de destination : Nom à adapter à ton application With Worksheets("Feuil2") Set RgCopie = .Range("A2").Resize(Rg.Rows.Count * 3) End With
x = -1 For Each r In Rg.Rows x = x + 3 r.Copy RgCopie(x) Next
End Sub '---------------------------
"Manu Puig" a écrit dans le message de news: O9C6$ Bonjour à tous, j'ai un problème de recopie de cellules dans une autre feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes : Date + Nombre, avec 3 valeurs par date. Exemple :
Je voudrais recopier les données pour que chaque nouvelle ligne se décale de
3 cellules...
J'espère avoir été assez clair dans l'exposé de mon problème...
Merci de votre aide pour toute piste ou solution.
Manuel
Merci, mais ça ne marche pas.
Les cellules se recopient à la verticale séparées de 3 lignes, et non à
l'horizontale.
Je voudrais que les séries de 3 cellules verticales se replacent à
l'horizontale à la même ligne, c'est à dire que la série
=M3!A2, =M3!B2, =M3!B3, =M3!B4
devienne
=M3!A5, =M3!B5, =M3!B5, =M3!B5
Une précision, je travaille avec Excel 2000. Merci de ton aide !
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:OPtdSaqKHHA.2632@TK2MSFTNGP06.phx.gbl...
Il y a ceci :
'---------------------------
Sub test()
Dim Rg As Range, RgCopie As Range
'Feuille source
With Worksheets("M3")
Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row)
End With
'Feuille de destination : Nom à adapter à ton application
With Worksheets("Feuil2")
Set RgCopie = .Range("A2").Resize(Rg.Rows.Count * 3)
End With
x = -1
For Each r In Rg.Rows
x = x + 3
r.Copy RgCopie(x)
Next
End Sub
'---------------------------
"Manu Puig" <manupuig@noos.fr> a écrit dans le message de news:
O9C6$NqKHHA.780@TK2MSFTNGP03.phx.gbl...
Bonjour à tous, j'ai un problème de recopie de cellules dans une autre
feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes :
Date + Nombre, avec 3 valeurs par date. Exemple :
Les cellules se recopient à la verticale séparées de 3 lignes, et non à l'horizontale.
Je voudrais que les séries de 3 cellules verticales se replacent à l'horizontale à la même ligne, c'est à dire que la série =M3!A2, =M3!B2, =M3!B3, =M3!B4 devienne =M3!A5, =M3!B5, =M3!B5, =M3!B5
Une précision, je travaille avec Excel 2000. Merci de ton aide !
"MichDenis" a écrit dans le message de news:
Il y a ceci :
'--------------------------- Sub test() Dim Rg As Range, RgCopie As Range
'Feuille source With Worksheets("M3") Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row) End With
'Feuille de destination : Nom à adapter à ton application With Worksheets("Feuil2") Set RgCopie = .Range("A2").Resize(Rg.Rows.Count * 3) End With
x = -1 For Each r In Rg.Rows x = x + 3 r.Copy RgCopie(x) Next
End Sub '---------------------------
"Manu Puig" a écrit dans le message de news: O9C6$ Bonjour à tous, j'ai un problème de recopie de cellules dans une autre feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes : Date + Nombre, avec 3 valeurs par date. Exemple :
Je voudrais recopier les données pour que chaque nouvelle ligne se décale de
3 cellules...
J'espère avoir été assez clair dans l'exposé de mon problème...
Merci de votre aide pour toute piste ou solution.
Manuel
MichDenis
Essaie ceci :
'--------------------------------------- Sub test() Dim Rg As Range, A As Long, B as Integer Dim CurrentCell As Range Dim NextCell As Range Dim Sh As Worksheet
'Feuil2 = Feuille de destintation, à adapter Set Sh = ThisWorkbook.Worksheets("Feuil2")
'Feuille source With Worksheets("Feuil1") 'Nom feuille à adapter Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row) End With Rg.Sort key1:=Rg(1), Header:=xlNo
Set CurrentCell = Rg(1) a = 2 Do While CurrentCell <> "" Set NextCell = CurrentCell.Offset(1) If CLng(NextCell) = CLng(CurrentCell) Then b = b + 1 If b = 1 Then Sh.Range("A" & a) = CurrentCell End If Sh.Range("A" & a).Offset(, b).Value = CurrentCell.Offset(, 1) Set CurrentCell = NextCell Else b = b + 1 Sh.Range("A" & a) = CurrentCell Sh.Range("A" & a).Offset(, b) = CurrentCell.Offset(, 1) a = a + 3 b = 0 Set CurrentCell = NextCell End If Loop
End Sub '---------------------------------------
"Manu Puig" a écrit dans le message de news:
Merci, mais ça ne marche pas.
Les cellules se recopient à la verticale séparées de 3 lignes, et non à l'horizontale.
Je voudrais que les séries de 3 cellules verticales se replacent à l'horizontale à la même ligne, c'est à dire que la série =M3!A2, =M3!B2, =M3!B3, =M3!B4 devienne =M3!A5, =M3!B5, =M3!B5, =M3!B5
Une précision, je travaille avec Excel 2000. Merci de ton aide !
"MichDenis" a écrit dans le message de news:
Il y a ceci :
'--------------------------- Sub test() Dim Rg As Range, RgCopie As Range
'Feuille source With Worksheets("M3") Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row) End With
'Feuille de destination : Nom à adapter à ton application With Worksheets("Feuil2") Set RgCopie = .Range("A2").Resize(Rg.Rows.Count * 3) End With
x = -1 For Each r In Rg.Rows x = x + 3 r.Copy RgCopie(x) Next
End Sub '---------------------------
"Manu Puig" a écrit dans le message de news: O9C6$ Bonjour à tous, j'ai un problème de recopie de cellules dans une autre feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes : Date + Nombre, avec 3 valeurs par date. Exemple :
Je voudrais recopier les données pour que chaque nouvelle ligne se décale de
3 cellules...
J'espère avoir été assez clair dans l'exposé de mon problème...
Merci de votre aide pour toute piste ou solution.
Manuel
Essaie ceci :
'---------------------------------------
Sub test()
Dim Rg As Range, A As Long, B as Integer
Dim CurrentCell As Range
Dim NextCell As Range
Dim Sh As Worksheet
'Feuil2 = Feuille de destintation, à adapter
Set Sh = ThisWorkbook.Worksheets("Feuil2")
'Feuille source
With Worksheets("Feuil1") 'Nom feuille à adapter
Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row)
End With
Rg.Sort key1:=Rg(1), Header:=xlNo
Set CurrentCell = Rg(1)
a = 2
Do While CurrentCell <> ""
Set NextCell = CurrentCell.Offset(1)
If CLng(NextCell) = CLng(CurrentCell) Then
b = b + 1
If b = 1 Then
Sh.Range("A" & a) = CurrentCell
End If
Sh.Range("A" & a).Offset(, b).Value = CurrentCell.Offset(, 1)
Set CurrentCell = NextCell
Else
b = b + 1
Sh.Range("A" & a) = CurrentCell
Sh.Range("A" & a).Offset(, b) = CurrentCell.Offset(, 1)
a = a + 3
b = 0
Set CurrentCell = NextCell
End If
Loop
End Sub
'---------------------------------------
"Manu Puig" <manupuig@noos.fr> a écrit dans le message de news:
eF6eZ4qKHHA.3952@TK2MSFTNGP02.phx.gbl...
Merci, mais ça ne marche pas.
Les cellules se recopient à la verticale séparées de 3 lignes, et non à
l'horizontale.
Je voudrais que les séries de 3 cellules verticales se replacent à
l'horizontale à la même ligne, c'est à dire que la série
=M3!A2, =M3!B2, =M3!B3, =M3!B4
devienne
=M3!A5, =M3!B5, =M3!B5, =M3!B5
Une précision, je travaille avec Excel 2000. Merci de ton aide !
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:OPtdSaqKHHA.2632@TK2MSFTNGP06.phx.gbl...
Il y a ceci :
'---------------------------
Sub test()
Dim Rg As Range, RgCopie As Range
'Feuille source
With Worksheets("M3")
Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row)
End With
'Feuille de destination : Nom à adapter à ton application
With Worksheets("Feuil2")
Set RgCopie = .Range("A2").Resize(Rg.Rows.Count * 3)
End With
x = -1
For Each r In Rg.Rows
x = x + 3
r.Copy RgCopie(x)
Next
End Sub
'---------------------------
"Manu Puig" <manupuig@noos.fr> a écrit dans le message de news:
O9C6$NqKHHA.780@TK2MSFTNGP03.phx.gbl...
Bonjour à tous, j'ai un problème de recopie de cellules dans une autre
feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes :
Date + Nombre, avec 3 valeurs par date. Exemple :
'--------------------------------------- Sub test() Dim Rg As Range, A As Long, B as Integer Dim CurrentCell As Range Dim NextCell As Range Dim Sh As Worksheet
'Feuil2 = Feuille de destintation, à adapter Set Sh = ThisWorkbook.Worksheets("Feuil2")
'Feuille source With Worksheets("Feuil1") 'Nom feuille à adapter Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row) End With Rg.Sort key1:=Rg(1), Header:=xlNo
Set CurrentCell = Rg(1) a = 2 Do While CurrentCell <> "" Set NextCell = CurrentCell.Offset(1) If CLng(NextCell) = CLng(CurrentCell) Then b = b + 1 If b = 1 Then Sh.Range("A" & a) = CurrentCell End If Sh.Range("A" & a).Offset(, b).Value = CurrentCell.Offset(, 1) Set CurrentCell = NextCell Else b = b + 1 Sh.Range("A" & a) = CurrentCell Sh.Range("A" & a).Offset(, b) = CurrentCell.Offset(, 1) a = a + 3 b = 0 Set CurrentCell = NextCell End If Loop
End Sub '---------------------------------------
"Manu Puig" a écrit dans le message de news:
Merci, mais ça ne marche pas.
Les cellules se recopient à la verticale séparées de 3 lignes, et non à l'horizontale.
Je voudrais que les séries de 3 cellules verticales se replacent à l'horizontale à la même ligne, c'est à dire que la série =M3!A2, =M3!B2, =M3!B3, =M3!B4 devienne =M3!A5, =M3!B5, =M3!B5, =M3!B5
Une précision, je travaille avec Excel 2000. Merci de ton aide !
"MichDenis" a écrit dans le message de news:
Il y a ceci :
'--------------------------- Sub test() Dim Rg As Range, RgCopie As Range
'Feuille source With Worksheets("M3") Set Rg = .Range("A1:B" & .Range("A65536").End(xlUp).Row) End With
'Feuille de destination : Nom à adapter à ton application With Worksheets("Feuil2") Set RgCopie = .Range("A2").Resize(Rg.Rows.Count * 3) End With
x = -1 For Each r In Rg.Rows x = x + 3 r.Copy RgCopie(x) Next
End Sub '---------------------------
"Manu Puig" a écrit dans le message de news: O9C6$ Bonjour à tous, j'ai un problème de recopie de cellules dans une autre feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes : Date + Nombre, avec 3 valeurs par date. Exemple :
Je voudrais recopier les données pour que chaque nouvelle ligne se décale de
3 cellules...
J'espère avoir été assez clair dans l'exposé de mon problème...
Merci de votre aide pour toute piste ou solution.
Manuel
garnote
Salut,
Peut-être que :
=INDIRECT("'M3'!A"&3*LIGNE()-(3*LIGNE($D$11)-2))
$D$11 : Adresse de la cellule contenant la formule que tu veux recopier vers le bas. Si tu mets la formule dans une autre cellule, il te faut changer l'adresse.
Serge
"Manu Puig" a écrit dans le message de news:
Bonsoir, je vais simplifier (???) mon problème :
Comment faire pour recopier une cellule en incrémentant son indice de 3 :
1ere Ligne : =M3!A2 2eme Ligne : =M3!A5 3eme Ligne : =M3!A8 4eme Ligne : =M3!A11
Si je peux faire ça par simple recopie, c'est top !!!
Par avance merci de votre aide.
"Manu Puig" a écrit dans le message de news:O9C6$
Bonjour à tous, j'ai un problème de recopie de cellules dans une autre feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes : Date + Nombre, avec 3 valeurs par date. Exemple :
Je voudrais recopier les données pour que chaque nouvelle ligne se décale de
3 cellules...
J'espère avoir été assez clair dans l'exposé de mon problème...
Merci de votre aide pour toute piste ou solution.
Manuel
Salut,
Peut-être que :
=INDIRECT("'M3'!A"&3*LIGNE()-(3*LIGNE($D$11)-2))
$D$11 : Adresse de la cellule contenant la formule que tu veux
recopier vers le bas. Si tu mets la formule dans une autre cellule,
il te faut changer l'adresse.
Serge
"Manu Puig" <manupuig@noos.fr> a écrit dans le message de news: uW5zPOrKHHA.4928@TK2MSFTNGP06.phx.gbl...
Bonsoir,
je vais simplifier (???) mon problème :
Comment faire pour recopier une cellule en incrémentant son indice de 3 :
1ere Ligne : =M3!A2
2eme Ligne : =M3!A5
3eme Ligne : =M3!A8
4eme Ligne : =M3!A11
Si je peux faire ça par simple recopie, c'est top !!!
Par avance merci de votre aide.
"Manu Puig" <manupuig@noos.fr> a écrit dans le message de
news:O9C6$NqKHHA.780@TK2MSFTNGP03.phx.gbl...
Bonjour à tous, j'ai un problème de recopie de cellules dans une autre
feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes :
Date + Nombre, avec 3 valeurs par date. Exemple :
$D$11 : Adresse de la cellule contenant la formule que tu veux recopier vers le bas. Si tu mets la formule dans une autre cellule, il te faut changer l'adresse.
Serge
"Manu Puig" a écrit dans le message de news:
Bonsoir, je vais simplifier (???) mon problème :
Comment faire pour recopier une cellule en incrémentant son indice de 3 :
1ere Ligne : =M3!A2 2eme Ligne : =M3!A5 3eme Ligne : =M3!A8 4eme Ligne : =M3!A11
Si je peux faire ça par simple recopie, c'est top !!!
Par avance merci de votre aide.
"Manu Puig" a écrit dans le message de news:O9C6$
Bonjour à tous, j'ai un problème de recopie de cellules dans une autre feuille que je sais pas maitriser :
Dans une feuille appelée M3, j'ai 2 colonnes : Date + Nombre, avec 3 valeurs par date. Exemple :
Je voudrais recopier les données pour que chaque nouvelle ligne se décale de
3 cellules...
J'espère avoir été assez clair dans l'exposé de mon problème...
Merci de votre aide pour toute piste ou solution.
Manuel
Manu Puig
Merci pour votre aide à tous
Comme je n'ai pas réussi à faire fonctionner correctement vos propositions, je vais prendre mon courage à 2 mains et entrer les données directement dans les cellules...
Manuel
Merci pour votre aide à tous
Comme je n'ai pas réussi à faire fonctionner correctement vos propositions,
je vais prendre mon courage à 2 mains et entrer les données directement dans
les cellules...
Comme je n'ai pas réussi à faire fonctionner correctement vos propositions, je vais prendre mon courage à 2 mains et entrer les données directement dans les cellules...
Manuel
garnote
Salut Manuel,
Si tu veux, tu peux m'envoyer ton document à cette adresse (Enlève ENLEVER.) avec un petit mot d'explication.
Serge
"Manu Puig" a écrit dans le message de news:
Merci pour votre aide à tous
Comme je n'ai pas réussi à faire fonctionner correctement vos propositions, je vais prendre mon courage à 2 mains et entrer les données directement dans les cellules...
Manuel
Salut Manuel,
Si tu veux, tu peux m'envoyer ton document
à cette adresse (Enlève ENLEVER.) avec
un petit mot d'explication.
garnote3@ENLEVER.videotron.ca
Serge
"Manu Puig" <manupuig@noos.fr> a écrit dans le message de news: ObUigjsKHHA.1276@TK2MSFTNGP04.phx.gbl...
Merci pour votre aide à tous
Comme je n'ai pas réussi à faire fonctionner correctement vos propositions,
je vais prendre mon courage à 2 mains et entrer les données directement dans
les cellules...
Si tu veux, tu peux m'envoyer ton document à cette adresse (Enlève ENLEVER.) avec un petit mot d'explication.
Serge
"Manu Puig" a écrit dans le message de news:
Merci pour votre aide à tous
Comme je n'ai pas réussi à faire fonctionner correctement vos propositions, je vais prendre mon courage à 2 mains et entrer les données directement dans les cellules...
Manuel
garnote
Et pour copier sur une même ligne une donnée sur trois à partir de ta plage verticale A2:Ax :
$E$2 : Adresse de la cellule dans laquelle tu colles la formule. =INDIRECT("'M3'!A"&3*COLONNE()-(3*COLONNE($E$2)-2))
Serge
"garnote" a écrit dans le message de news:
Salut Manuel,
Si tu veux, tu peux m'envoyer ton document à cette adresse (Enlève ENLEVER.) avec un petit mot d'explication.
Serge
"Manu Puig" a écrit dans le message de news:
Merci pour votre aide à tous
Comme je n'ai pas réussi à faire fonctionner correctement vos propositions, je vais prendre mon courage à 2 mains et entrer les données directement dans les cellules...
Manuel
Et pour copier sur une même ligne une donnée sur trois
à partir de ta plage verticale A2:Ax :
$E$2 : Adresse de la cellule dans laquelle tu colles la formule.
=INDIRECT("'M3'!A"&3*COLONNE()-(3*COLONNE($E$2)-2))
Serge
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: uy5vBqsKHHA.4460@TK2MSFTNGP03.phx.gbl...
Salut Manuel,
Si tu veux, tu peux m'envoyer ton document
à cette adresse (Enlève ENLEVER.) avec
un petit mot d'explication.
garnote3@ENLEVER.videotron.ca
Serge
"Manu Puig" <manupuig@noos.fr> a écrit dans le message de news: ObUigjsKHHA.1276@TK2MSFTNGP04.phx.gbl...
Merci pour votre aide à tous
Comme je n'ai pas réussi à faire fonctionner correctement vos propositions,
je vais prendre mon courage à 2 mains et entrer les données directement dans
les cellules...
Et pour copier sur une même ligne une donnée sur trois à partir de ta plage verticale A2:Ax :
$E$2 : Adresse de la cellule dans laquelle tu colles la formule. =INDIRECT("'M3'!A"&3*COLONNE()-(3*COLONNE($E$2)-2))
Serge
"garnote" a écrit dans le message de news:
Salut Manuel,
Si tu veux, tu peux m'envoyer ton document à cette adresse (Enlève ENLEVER.) avec un petit mot d'explication.
Serge
"Manu Puig" a écrit dans le message de news:
Merci pour votre aide à tous
Comme je n'ai pas réussi à faire fonctionner correctement vos propositions, je vais prendre mon courage à 2 mains et entrer les données directement dans les cellules...
