Bonjour,
Pour avoir une copie aléatoire.
Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1).
L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Puis avec un autre bouton (Range 2).
L12 en D12, N12 en F12, P12 en B12, R12 en H12.
Puis avec un autre bouton (Range 3).
L14 en H14, N14 en B14, P14 en D14, R14 en F14.
etc.......
Pour l'instant, j'ai ce code.
Sub Range1()
Range("L10").Select
Selection.Copy
Range("B10").Select
ActiveSheet.Paste
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
garnote
Salut Guy,
Essaie ceci :
Sub Bouton1() For i = 1 To 4 Cells(10, 2 * i + 10).Copy Cells(10, 2 * i) Next i End Sub
Serge
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste
Range("R10").Select Selection.Copy Range("H10").Select ActiveSheet.Paste End Sub
etc.............
Est-il possible d'avoir plus simple ? -- Cordialement Guy
Salut Guy,
Essaie ceci :
Sub Bouton1()
For i = 1 To 4
Cells(10, 2 * i + 10).Copy Cells(10, 2 * i)
Next i
End Sub
Serge
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news: u9%23fh6FOJHA.2912@TK2MSFTNGP03.phx.gbl...
Bonjour,
Pour avoir une copie aléatoire.
Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1).
L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Puis avec un autre bouton (Range 2).
L12 en D12, N12 en F12, P12 en B12, R12 en H12.
Puis avec un autre bouton (Range 3).
L14 en H14, N14 en B14, P14 en D14, R14 en F14.
etc.......
Pour l'instant, j'ai ce code.
Sub Range1()
Range("L10").Select
Selection.Copy
Range("B10").Select
ActiveSheet.Paste
Sub Bouton1() For i = 1 To 4 Cells(10, 2 * i + 10).Copy Cells(10, 2 * i) Next i End Sub
Serge
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste
Range("R10").Select Selection.Copy Range("H10").Select ActiveSheet.Paste End Sub
etc.............
Est-il possible d'avoir plus simple ? -- Cordialement Guy
Guy72
Bonjour garnote Oui mais ça me copie dans le même ordre, je souhaiterais les recopier dans un ordre différent. -- Cordialement Guy "garnote" a écrit dans le message de news:
Salut Guy,
Essaie ceci :
Sub Bouton1() For i = 1 To 4 Cells(10, 2 * i + 10).Copy Cells(10, 2 * i) Next i End Sub
Serge
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste
Range("R10").Select Selection.Copy Range("H10").Select ActiveSheet.Paste End Sub
etc.............
Est-il possible d'avoir plus simple ? -- Cordialement Guy
Bonjour garnote
Oui mais ça me copie dans le même ordre, je souhaiterais les recopier dans
un ordre différent.
--
Cordialement
Guy
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news:
e5Gz9YGOJHA.2912@TK2MSFTNGP03.phx.gbl...
Salut Guy,
Essaie ceci :
Sub Bouton1()
For i = 1 To 4
Cells(10, 2 * i + 10).Copy Cells(10, 2 * i)
Next i
End Sub
Serge
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
u9%23fh6FOJHA.2912@TK2MSFTNGP03.phx.gbl...
Bonjour,
Pour avoir une copie aléatoire.
Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1).
L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Puis avec un autre bouton (Range 2).
L12 en D12, N12 en F12, P12 en B12, R12 en H12.
Puis avec un autre bouton (Range 3).
L14 en H14, N14 en B14, P14 en D14, R14 en F14.
etc.......
Pour l'instant, j'ai ce code.
Sub Range1()
Range("L10").Select
Selection.Copy
Range("B10").Select
ActiveSheet.Paste
Bonjour garnote Oui mais ça me copie dans le même ordre, je souhaiterais les recopier dans un ordre différent. -- Cordialement Guy "garnote" a écrit dans le message de news:
Salut Guy,
Essaie ceci :
Sub Bouton1() For i = 1 To 4 Cells(10, 2 * i + 10).Copy Cells(10, 2 * i) Next i End Sub
Serge
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste
Range("R10").Select Selection.Copy Range("H10").Select ActiveSheet.Paste End Sub
etc.............
Est-il possible d'avoir plus simple ? -- Cordialement Guy
Sam
Bonjour, je propose ceci
Sub copie1() Range("B10") = Range("L10") Range("D10") = Range("N10") Range("F10") = Range("P10") Range("H10") = Range("R10") End Sub
et profite pour demander au groupe quand emploie t'on Range et quand emploie t'on Cells ?
Cordialement Michel dit "Sam"
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste
Range("R10").Select Selection.Copy Range("H10").Select ActiveSheet.Paste End Sub
etc.............
Est-il possible d'avoir plus simple ? -- Cordialement Guy
Bonjour, je propose ceci
Sub copie1()
Range("B10") = Range("L10")
Range("D10") = Range("N10")
Range("F10") = Range("P10")
Range("H10") = Range("R10")
End Sub
et profite pour demander au groupe quand emploie t'on Range et quand
emploie t'on Cells ?
Cordialement
Michel dit "Sam"
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
u9%23fh6FOJHA.2912@TK2MSFTNGP03.phx.gbl...
Bonjour,
Pour avoir une copie aléatoire.
Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1).
L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Puis avec un autre bouton (Range 2).
L12 en D12, N12 en F12, P12 en B12, R12 en H12.
Puis avec un autre bouton (Range 3).
L14 en H14, N14 en B14, P14 en D14, R14 en F14.
etc.......
Pour l'instant, j'ai ce code.
Sub Range1()
Range("L10").Select
Selection.Copy
Range("B10").Select
ActiveSheet.Paste
Sub copie1() Range("B10") = Range("L10") Range("D10") = Range("N10") Range("F10") = Range("P10") Range("H10") = Range("R10") End Sub
et profite pour demander au groupe quand emploie t'on Range et quand emploie t'on Cells ?
Cordialement Michel dit "Sam"
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste
Range("R10").Select Selection.Copy Range("H10").Select ActiveSheet.Paste End Sub
etc.............
Est-il possible d'avoir plus simple ? -- Cordialement Guy
garnote
Mais tu as pourtant écrit : Je souhaiterais copier L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Qu'est-ce qui m'échappe ?
Serge
"Guy72" a écrit dans le message de news:
Bonjour garnote Oui mais ça me copie dans le même ordre, je souhaiterais les recopier dans un ordre différent. -- Cordialement Guy "garnote" a écrit dans le message de news:
Salut Guy,
Essaie ceci :
Sub Bouton1() For i = 1 To 4 Cells(10, 2 * i + 10).Copy Cells(10, 2 * i) Next i End Sub
Serge
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste
Range("R10").Select Selection.Copy Range("H10").Select ActiveSheet.Paste End Sub
etc.............
Est-il possible d'avoir plus simple ? -- Cordialement Guy
Mais tu as pourtant écrit :
Je souhaiterais copier
L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Qu'est-ce qui m'échappe ?
Serge
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news: u7yl0gGOJHA.4928@TK2MSFTNGP05.phx.gbl...
Bonjour garnote
Oui mais ça me copie dans le même ordre, je souhaiterais les recopier dans un ordre différent.
--
Cordialement
Guy
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news: e5Gz9YGOJHA.2912@TK2MSFTNGP03.phx.gbl...
Salut Guy,
Essaie ceci :
Sub Bouton1()
For i = 1 To 4
Cells(10, 2 * i + 10).Copy Cells(10, 2 * i)
Next i
End Sub
Serge
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news: u9%23fh6FOJHA.2912@TK2MSFTNGP03.phx.gbl...
Bonjour,
Pour avoir une copie aléatoire.
Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1).
L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Puis avec un autre bouton (Range 2).
L12 en D12, N12 en F12, P12 en B12, R12 en H12.
Puis avec un autre bouton (Range 3).
L14 en H14, N14 en B14, P14 en D14, R14 en F14.
etc.......
Pour l'instant, j'ai ce code.
Sub Range1()
Range("L10").Select
Selection.Copy
Range("B10").Select
ActiveSheet.Paste
Mais tu as pourtant écrit : Je souhaiterais copier L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Qu'est-ce qui m'échappe ?
Serge
"Guy72" a écrit dans le message de news:
Bonjour garnote Oui mais ça me copie dans le même ordre, je souhaiterais les recopier dans un ordre différent. -- Cordialement Guy "garnote" a écrit dans le message de news:
Salut Guy,
Essaie ceci :
Sub Bouton1() For i = 1 To 4 Cells(10, 2 * i + 10).Copy Cells(10, 2 * i) Next i End Sub
Serge
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste
Range("R10").Select Selection.Copy Range("H10").Select ActiveSheet.Paste End Sub
etc.............
Est-il possible d'avoir plus simple ? -- Cordialement Guy
Guy72
Bonjour Sam ça ne copie que la valeur.
-- Cordialement Guy "Sam" a écrit dans le message de news: 49061494$0$849$
Bonjour, je propose ceci
Sub copie1() Range("B10") = Range("L10") Range("D10") = Range("N10") Range("F10") = Range("P10") Range("H10") = Range("R10") End Sub
et profite pour demander au groupe quand emploie t'on Range et quand emploie t'on Cells ?
Cordialement Michel dit "Sam"
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste
Range("R10").Select Selection.Copy Range("H10").Select ActiveSheet.Paste End Sub
etc.............
Est-il possible d'avoir plus simple ? -- Cordialement Guy
Bonjour Sam
ça ne copie que la valeur.
--
Cordialement
Guy
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
49061494$0$849$ba4acef3@news.orange.fr...
Bonjour, je propose ceci
Sub copie1()
Range("B10") = Range("L10")
Range("D10") = Range("N10")
Range("F10") = Range("P10")
Range("H10") = Range("R10")
End Sub
et profite pour demander au groupe quand emploie t'on Range et quand
emploie t'on Cells ?
Cordialement
Michel dit "Sam"
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
u9%23fh6FOJHA.2912@TK2MSFTNGP03.phx.gbl...
Bonjour,
Pour avoir une copie aléatoire.
Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1).
L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Puis avec un autre bouton (Range 2).
L12 en D12, N12 en F12, P12 en B12, R12 en H12.
Puis avec un autre bouton (Range 3).
L14 en H14, N14 en B14, P14 en D14, R14 en F14.
etc.......
Pour l'instant, j'ai ce code.
Sub Range1()
Range("L10").Select
Selection.Copy
Range("B10").Select
ActiveSheet.Paste
-- Cordialement Guy "Sam" a écrit dans le message de news: 49061494$0$849$
Bonjour, je propose ceci
Sub copie1() Range("B10") = Range("L10") Range("D10") = Range("N10") Range("F10") = Range("P10") Range("H10") = Range("R10") End Sub
et profite pour demander au groupe quand emploie t'on Range et quand emploie t'on Cells ?
Cordialement Michel dit "Sam"
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste
Range("R10").Select Selection.Copy Range("H10").Select ActiveSheet.Paste End Sub
etc.............
Est-il possible d'avoir plus simple ? -- Cordialement Guy
Guy72
Effectivement excuse-moi, la 1ère ligne, j'ai oublié de mélanger, je suis resté sur ma ligne d'origine, il faut : L10 en F10, N10 en D10, P10 en H10, R10 en B10. Ce qu'il faut, c'est avec 4 boutons (ou un seul) j'ai une copie différente de l'origine. -- Cordialement Guy "garnote" a écrit dans le message de news:
Mais tu as pourtant écrit : Je souhaiterais copier L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Qu'est-ce qui m'échappe ?
Serge
"Guy72" a écrit dans le message de news:
Bonjour garnote Oui mais ça me copie dans le même ordre, je souhaiterais les recopier dans un ordre différent. -- Cordialement Guy "garnote" a écrit dans le message de news:
Salut Guy,
Essaie ceci :
Sub Bouton1() For i = 1 To 4 Cells(10, 2 * i + 10).Copy Cells(10, 2 * i) Next i End Sub
Serge
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste
Range("R10").Select Selection.Copy Range("H10").Select ActiveSheet.Paste End Sub
etc.............
Est-il possible d'avoir plus simple ? -- Cordialement Guy
Effectivement excuse-moi, la 1ère ligne, j'ai oublié de mélanger, je suis
resté sur ma ligne d'origine, il faut :
L10 en F10, N10 en D10, P10 en H10, R10 en B10.
Ce qu'il faut, c'est avec 4 boutons (ou un seul) j'ai une copie différente
de l'origine.
--
Cordialement
Guy
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news:
unSIlnGOJHA.1148@TK2MSFTNGP05.phx.gbl...
Mais tu as pourtant écrit :
Je souhaiterais copier
L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Qu'est-ce qui m'échappe ?
Serge
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
u7yl0gGOJHA.4928@TK2MSFTNGP05.phx.gbl...
Bonjour garnote
Oui mais ça me copie dans le même ordre, je souhaiterais les recopier
dans un ordre différent.
--
Cordialement
Guy
"garnote" <garnote3RIEN@videotron.ca> a écrit dans le message de news:
e5Gz9YGOJHA.2912@TK2MSFTNGP03.phx.gbl...
Salut Guy,
Essaie ceci :
Sub Bouton1()
For i = 1 To 4
Cells(10, 2 * i + 10).Copy Cells(10, 2 * i)
Next i
End Sub
Serge
"Guy72" <guy72@bonjour.tous> a écrit dans le message de news:
u9%23fh6FOJHA.2912@TK2MSFTNGP03.phx.gbl...
Bonjour,
Pour avoir une copie aléatoire.
Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1).
L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Puis avec un autre bouton (Range 2).
L12 en D12, N12 en F12, P12 en B12, R12 en H12.
Puis avec un autre bouton (Range 3).
L14 en H14, N14 en B14, P14 en D14, R14 en F14.
etc.......
Pour l'instant, j'ai ce code.
Sub Range1()
Range("L10").Select
Selection.Copy
Range("B10").Select
ActiveSheet.Paste
Effectivement excuse-moi, la 1ère ligne, j'ai oublié de mélanger, je suis resté sur ma ligne d'origine, il faut : L10 en F10, N10 en D10, P10 en H10, R10 en B10. Ce qu'il faut, c'est avec 4 boutons (ou un seul) j'ai une copie différente de l'origine. -- Cordialement Guy "garnote" a écrit dans le message de news:
Mais tu as pourtant écrit : Je souhaiterais copier L10 en B10, N10 en D10, P10 en F10, R10 en H10.
Qu'est-ce qui m'échappe ?
Serge
"Guy72" a écrit dans le message de news:
Bonjour garnote Oui mais ça me copie dans le même ordre, je souhaiterais les recopier dans un ordre différent. -- Cordialement Guy "garnote" a écrit dans le message de news:
Salut Guy,
Essaie ceci :
Sub Bouton1() For i = 1 To 4 Cells(10, 2 * i + 10).Copy Cells(10, 2 * i) Next i End Sub
Serge
"Guy72" a écrit dans le message de news: u9%
Bonjour, Pour avoir une copie aléatoire. Seul les cellules B,D,F,H sont visibles.
Je souhaiterais copier avec 1bouton (Range1). L10 en B10, N10 en D10, P10 en F10, R10 en H10. Puis avec un autre bouton (Range 2). L12 en D12, N12 en F12, P12 en B12, R12 en H12. Puis avec un autre bouton (Range 3). L14 en H14, N14 en B14, P14 en D14, R14 en F14. etc....... Pour l'instant, j'ai ce code.
Sub Range1() Range("L10").Select Selection.Copy Range("B10").Select ActiveSheet.Paste