Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel une fois sur deux

une fois sur deux

2 réponses
Avatar
YANN24
bonjour,
j'ai mon code suivant. En fait, je voudrais que une fois sur deux, ma
Routine colle en A20, et l'autre fois, en Q20. Est ce possible? Même de façon
aléatoire, c'ets pas grave.
Merci.
YANN
-------
Sub Routine(Var)
Sheets("Analyse 05").Select
Range("C" & Var & ":Q" & Var + 18).Copy
Sheets("Comparaisons").Select
'********
Range("A20").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A20").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'*******
Range("Q20").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("Q20").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
-----
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Aurélien
oui il faut créer une variable gloable


ensuite

sub copier()
static var as boolean

if var = true then
var = false
copier en A20
else
var = true
copier en q20
end if
end sub
comme ca il colle en A20 et change la variable de telle sorte qu'il colle en
q20 la fois d'aprés
le fais que la variable soit static permet qu'elle ne soit pas mise à zéro à
chaque appel de la fonction.


bonjour,
j'ai mon code suivant. En fait, je voudrais que une fois sur deux, ma
Routine colle en A20, et l'autre fois, en Q20. Est ce possible? Même de façon
aléatoire, c'ets pas grave.
Merci.
YANN
-------
Sub Routine(Var)
Sheets("Analyse 05").Select
Range("C" & Var & ":Q" & Var + 18).Copy
Sheets("Comparaisons").Select
'********
Range("A20").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Range("A20").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
'*******
Range("Q20").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Range("Q20").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
End Sub
-----


Avatar
YANN24
Merci aurélien.
c'est impecable, ça fonctionne.
A bientot.
YANN


oui il faut créer une variable gloable


ensuite

sub copier()
static var as boolean

if var = true then
var = false
copier en A20
else
var = true
copier en q20
end if
end sub
comme ca il colle en A20 et change la variable de telle sorte qu'il colle en
q20 la fois d'aprés
le fais que la variable soit static permet qu'elle ne soit pas mise à zéro à
chaque appel de la fonction.


bonjour,
j'ai mon code suivant. En fait, je voudrais que une fois sur deux, ma
Routine colle en A20, et l'autre fois, en Q20. Est ce possible? Même de façon
aléatoire, c'ets pas grave.
Merci.
YANN
-------
Sub Routine(Var)
Sheets("Analyse 05").Select
Range("C" & Var & ":Q" & Var + 18).Copy
Sheets("Comparaisons").Select
'********
Range("A20").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Range("A20").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
'*******
Range("Q20").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Range("Q20").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
End Sub
-----