Discussion :

[polmic]

bonjour
je ne suis pas un expert en VBA je suis meme nul c 'est pour ca que je sollicite votre aide

en colonne B j' ai un prix
en C une quantite
en D un total (B*C)
je voudrai que les colonnes C et D soient recopier (copier les valeurs pour D)
dans les colonnes de chaque mercredi de l année
si quelqu'un pouvait me donner une piste
je vous remercie

[defluc]

Bonjour,

Une copie des feuilles et de ce que tu as déjà programmé nous aiderait.

Cordialement

[polmic]

un grand merci pour ta reponse
en macro je sais uniquement les enregistrer
je joint un petit fichier

[defluc]

Première remarque : la somme sur une cellule n'a pas de sens.
La formule dans la colonne D peut se limiter à :
= B5*C5, = B6*C6, , = B7*C7, etc...

Utilise l'enregistreur de macro pour faire ce que tu veux, puis, on perfectionnera.

[polmic]

En effet ce n est pas une somme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub copier()
'
'
'
 
'
    Range("C5:C14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E5").Select
    ActiveSheet.Paste
    Range("F5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    ActiveCell.Offset(0, 1).Select
    'puis recoller la colonne D en h et C en G
    'ainsi de suite
 
End Sub

je suis bloqué pour recopier en boucle je ne sais que faire
encore un merci pour me répondre

[Floppy69]

Bonjour Polmic,

Je ne suis pas sur que ça réponde entièrement à ta question mais tu peux essayer ça (fonctionne dans le fichier test), tu créé un bouton sur ta feuille et tu lui affecte cette macro, et à chaque clique, un mercredi sera complété:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Macro2()
    Dim j As Integer
    'Copie les valeurs
    Range("C5: D14").Select
    Selection.Copy
    'Colle dans la premiere colonne suivante vide (colle en gardant le format et la valeur)
    j = Cells(5, Columns.Count).End(xlToLeft).Column + 1
    Cells(5, j).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Pour le reste, je ne vois pas comment faire une boucle si tes quantités changent.

En espérant que cela puisse t'aider.

[defluc]

Je commence par simplifier le code.
Un principe à adopter, ne jamais utiliser "Select". Cela ralentit l'exécution et provoque des clignotements désagréables de l'affichage à chaque changement occurence.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Public Sub Macro2()
Dim j As Integer
  Range("C5: D14").Copy  '  Copie les valeurs
'Colle dans la premiere colonne suivante vide (colle en gardant le format et la valeur)
  j = Cells(5, Columns.Count).End(xlToLeft).Column + 1
  j = 5
  Cells(5, j).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
  j = j + 2
  Cells(5, j).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
  j = j + 2
  Cells(5, j).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
  j = j + 2
  Cells(5, j).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
  j = j + 2
  Cells(5, j).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
  Application.CutCopyMode = False  '  Désélectionne
End Sub

Pour que les changements soient répercutés insérer le code suivant dans Feuil1(Feuil1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 3 Then Exit Sub
  Macro2
End Sub

[polmic]

Un grand merci à floppy69
c est tout a fait ce que je voulais
sauf que j ai un total annuel en bout de ligne
il n' y a pas moyen de copier en cellule adjacente a D