Copie aléatoire

Le
Guy72
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("N10").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste

Range("P10").Select
Selection.Copy
Range("F10").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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
garnote
Le #17661841
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"
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("N10").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste

Range("P10").Select
Selection.Copy
Range("F10").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
Le #17661811
Bonjour garnote
Oui mais ça me copie dans le même ordre, je souhaiterais les recopier dans
un ordre différent.
--
Cordialement
Guy
"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" 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("N10").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste

Range("P10").Select
Selection.Copy
Range("F10").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
Le #17662081
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" 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("N10").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste

Range("P10").Select
Selection.Copy
Range("F10").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
Le #17662071
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"
Bonjour garnote
Oui mais ça me copie dans le même ordre, je souhaiterais les recopier dans un ordre différent.
--
Cordialement
Guy
"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"
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("N10").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste

Range("P10").Select
Selection.Copy
Range("F10").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
Le #17662241
Bonjour Sam
ça ne copie que la valeur.

--
Cordialement
Guy
"Sam" 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" 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("N10").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste

Range("P10").Select
Selection.Copy
Range("F10").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
Le #17662431
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"

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"
Bonjour garnote
Oui mais ça me copie dans le même ordre, je souhaiterais les recopier
dans un ordre différent.
--
Cordialement
Guy
"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" 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("N10").Select
Selection.Copy
Range("D10").Select
ActiveSheet.Paste

Range("P10").Select
Selection.Copy
Range("F10").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















Publicité
Poster une réponse
Anonyme