Une idée ?

Ce sujet doit être le plus clair et explicite possible

Cliquez pour agrandir...

kirikouu à dit:

Étant donné qu'il y a plusieurs cellules à recopier dans des endroits différents, ca répète autant de fois une même formule (en changeant simplement les cellules cibles).
Certes, mais quel est le décalage entre chaque mois ?
Je suppose qu'il doit exister une formule beaucoup plus simple (car j'ai utilisé l'enregistreur macro basique pour les créer) mais ce que je cherche ici c'est surtout de pouvoir remplacer la valeur fixe :

Code:

Sheets("NOVEMBRE").Select

par quelque chose comme "retour à la feuille source".
Car je vais utiliser cette macro sur tous les autres mois...
Que veux tu faire, décrire tous les mois ?

Code:

Sub Test()
Dim I As Integer
For I = 1 To 12
MsgBox UCase(Format(CDate("01/" & I & "/2010"), "mmmm"))
Next I
End Sub

j'ai cette formule :
Euh, j'appelle ça un code...

Code:

    Range("B6:B14").Select
    Selection.Copy
    Sheets("FEUILLE CIBLE").Select
[COLOR=red][B]  ActiveWindow.SmallScroll Down:=6[/B][/COLOR]
    Range("B12:B20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Sheets("NOVEMBRE").[COLOR=red][B]Select[/B][/COLOR]
    Range("B3")[B][COLOR=red].[/COLOR][COLOR=red]Select[/COLOR][/B]
[COLOR=red][B]  Application.CutCopyMode = False[/B][/COLOR]
   [COLOR=red][B]Selection[/B][/COLOR].Copy
    Sheets("FEUILLE CIBLE").[B][COLOR=red]Selec[/COLOR][COLOR=red]t[/COLOR][/B]
[COLOR=red][B]  ActiveWindow.SmallScroll Down:=-9[/B][/COLOR]
    Range("A6")[B][COLOR=red].[/COLOR][COLOR=red]Select[/COLOR][/B]
[COLOR=red][B]  ActiveSheet.Paste[/B][/COLOR]
 
    Sheets("NOVEMBRE").[COLOR=red][B]Select[/B][/COLOR]
    Range("B5").[COLOR=red][B]Select[/B][/COLOR]
  [COLOR=red][B]  Application.CutCopyMode = False[/B][/COLOR]
[COLOR=red][B]  Selection[/B][/COLOR].Copy
    Sheets("FEUILLE CIBLE").[COLOR=red][B]Select[/B][/COLOR]
    Range("B4:G4").[COLOR=red][B]Select[/B][/COLOR]
    [COLOR=red][B]ActiveSheet.Paste[/B][/COLOR]

Tu peux déjà supprimer tout ce qui est en rouge, tu obtiendras ça

Code:

    Range("B6:B14").Select
    Selection.Copy
    Sheets("FEUILLE CIBLE").Select
    Range("B12:B20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("NOVEMBRE").Range("B3").Copy Sheets("FEUILLE CIBLE").Range("A6")
    Sheets("NOVEMBRE").Range("B5").Copy Sheets("FEUILLE CIBLE").Range("B4:G4")

Merci d'avance....

Cliquez pour agrandir...

kirikouu à dit:

J'aurais effectivement du le mettre à la suite du post si j'avais su que ca m'aurait causé préjudice. 😉

Cliquez pour agrandir...