Bonjour,
je voudrais savoir comment faire pour que ce code fonctionne?
MERCI.
yann
**************
Sub test2()
With Sheets("analyse")
x = 8
y = 12
suite:
Range("b" & x & ":e" & x).Value = .Range("l" & y & ":o" & y).Value
Range("f" & x & ":g" & x).Value = .Range("g" & y & ":q" & y).Value
Range("h" & x & ":i" & x) = .Range("j" & y)
Range("j" & x & ",k" & x) = .Range("k" & y & ",q" & y)
If x = 8Then
x = 9: y = 32
x = 10: y = 52
x = 11: y = 72
...
x = 29: y = 312
GoTo suite
End If
End With
End Sub
*****************
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
Phil99999
Si tu le souhaites , explique moi exactement ce que tu veux faire, envoi moi une copie de ton classeur ou un exemple et je te le retourne corrigé, sinon on en finira pas !
Bonjour, je voudrais savoir comment faire pour que ce code fonctionne? MERCI. yann
************** Sub test2() With Sheets("analyse") x = 8 y = 12 suite: Range("b" & x & ":e" & x).Value = .Range("l" & y & ":o" & y).Value Range("f" & x & ":g" & x).Value = .Range("g" & y & ":q" & y).Value Range("h" & x & ":i" & x) = .Range("j" & y) Range("j" & x & ",k" & x) = .Range("k" & y & ",q" & y) If x = 8Then x = 9: y = 32 x = 10: y = 52 x = 11: y = 72 ... x = 29: y = 312 GoTo suite End If End With End Sub *****************
Si tu le souhaites , explique moi exactement ce que tu veux faire, envoi moi
une copie de ton classeur ou un exemple et je te le retourne corrigé, sinon
on en finira pas !
Bonjour,
je voudrais savoir comment faire pour que ce code fonctionne?
MERCI.
yann
**************
Sub test2()
With Sheets("analyse")
x = 8
y = 12
suite:
Range("b" & x & ":e" & x).Value = .Range("l" & y & ":o" & y).Value
Range("f" & x & ":g" & x).Value = .Range("g" & y & ":q" & y).Value
Range("h" & x & ":i" & x) = .Range("j" & y)
Range("j" & x & ",k" & x) = .Range("k" & y & ",q" & y)
If x = 8Then
x = 9: y = 32
x = 10: y = 52
x = 11: y = 72
...
x = 29: y = 312
GoTo suite
End If
End With
End Sub
*****************
Si tu le souhaites , explique moi exactement ce que tu veux faire, envoi moi une copie de ton classeur ou un exemple et je te le retourne corrigé, sinon on en finira pas !
Bonjour, je voudrais savoir comment faire pour que ce code fonctionne? MERCI. yann
************** Sub test2() With Sheets("analyse") x = 8 y = 12 suite: Range("b" & x & ":e" & x).Value = .Range("l" & y & ":o" & y).Value Range("f" & x & ":g" & x).Value = .Range("g" & y & ":q" & y).Value Range("h" & x & ":i" & x) = .Range("j" & y) Range("j" & x & ",k" & x) = .Range("k" & y & ",q" & y) If x = 8Then x = 9: y = 32 x = 10: y = 52 x = 11: y = 72 ... x = 29: y = 312 GoTo suite End If End With End Sub *****************
YANN24
Re, voici l'adresse de mon classeur http://cjoint.com/?fxsdnjGMto
Donc, ce que je veux, c'est mettre mes infos qui sont dans ma feuille "Analyses" (là y'a des formules qui prennent des valeurs d'autres classeurs), dans ma feuille "Résumé"
"Analyse" est par salarié, et "Résumé est par mois. Donc il faut que je colle les valeurs de "Analyse" dans "Résumé".
Le code pour activer ce qu'il demande est "code".
Merci de ton aide. YANN
Si tu le souhaites , explique moi exactement ce que tu veux faire, envoi moi une copie de ton classeur ou un exemple et je te le retourne corrigé, sinon on en finira pas !
Bonjour, je voudrais savoir comment faire pour que ce code fonctionne? MERCI. yann
************** Sub test2() With Sheets("analyse") x = 8 y = 12 suite: Range("b" & x & ":e" & x).Value = .Range("l" & y & ":o" & y).Value Range("f" & x & ":g" & x).Value = .Range("g" & y & ":q" & y).Value Range("h" & x & ":i" & x) = .Range("j" & y) Range("j" & x & ",k" & x) = .Range("k" & y & ",q" & y) If x = 8Then x = 9: y = 32 x = 10: y = 52 x = 11: y = 72 ... x = 29: y = 312 GoTo suite End If End With End Sub *****************
Re,
voici l'adresse de mon classeur
http://cjoint.com/?fxsdnjGMto
Donc, ce que je veux, c'est mettre mes infos qui sont dans ma feuille
"Analyses" (là y'a des formules qui prennent des valeurs d'autres classeurs),
dans ma feuille "Résumé"
"Analyse" est par salarié, et "Résumé est par mois.
Donc il faut que je colle les valeurs de "Analyse" dans "Résumé".
Le code pour activer ce qu'il demande est "code".
Merci de ton aide.
YANN
Si tu le souhaites , explique moi exactement ce que tu veux faire, envoi moi
une copie de ton classeur ou un exemple et je te le retourne corrigé, sinon
on en finira pas !
Bonjour,
je voudrais savoir comment faire pour que ce code fonctionne?
MERCI.
yann
**************
Sub test2()
With Sheets("analyse")
x = 8
y = 12
suite:
Range("b" & x & ":e" & x).Value = .Range("l" & y & ":o" & y).Value
Range("f" & x & ":g" & x).Value = .Range("g" & y & ":q" & y).Value
Range("h" & x & ":i" & x) = .Range("j" & y)
Range("j" & x & ",k" & x) = .Range("k" & y & ",q" & y)
If x = 8Then
x = 9: y = 32
x = 10: y = 52
x = 11: y = 72
...
x = 29: y = 312
GoTo suite
End If
End With
End Sub
*****************
Re, voici l'adresse de mon classeur http://cjoint.com/?fxsdnjGMto
Donc, ce que je veux, c'est mettre mes infos qui sont dans ma feuille "Analyses" (là y'a des formules qui prennent des valeurs d'autres classeurs), dans ma feuille "Résumé"
"Analyse" est par salarié, et "Résumé est par mois. Donc il faut que je colle les valeurs de "Analyse" dans "Résumé".
Le code pour activer ce qu'il demande est "code".
Merci de ton aide. YANN
Si tu le souhaites , explique moi exactement ce que tu veux faire, envoi moi une copie de ton classeur ou un exemple et je te le retourne corrigé, sinon on en finira pas !
Bonjour, je voudrais savoir comment faire pour que ce code fonctionne? MERCI. yann
************** Sub test2() With Sheets("analyse") x = 8 y = 12 suite: Range("b" & x & ":e" & x).Value = .Range("l" & y & ":o" & y).Value Range("f" & x & ":g" & x).Value = .Range("g" & y & ":q" & y).Value Range("h" & x & ":i" & x) = .Range("j" & y) Range("j" & x & ",k" & x) = .Range("k" & y & ",q" & y) If x = 8Then x = 9: y = 32 x = 10: y = 52 x = 11: y = 72 ... x = 29: y = 312 GoTo suite End If End With End Sub *****************
