Macro pour recopier données

[Roni95]

Bonjour le forum,

J'aimerais créer une macro pour recopier une donnée (toujours la même sur la ligne) sur la colonne suivante et ce chaque jour. Ce tableau sert ensuite à faire un graphique donc il faut que j'ajoute cette donnée chaque jour.

En fait, sur les lignes 3+9, il y a le prévisionnel mensuel divisé par le nombre de jours de facturation dans le mois. Ce chiffre est donc identique tous les jours.

Comment automatiser la recopie des lignes 3+9 sur la colonne d'à côté pour chaque jour?

Exemple: L4CM je veux la même donnée en L4CN puis demain je veux la même donnée de L4CN vers L4CO...

Je ne sais pas trop si je suis clair 🙄

Merci pour votre aide

 

[Robert]

Re : Macro pour recopier données

Bonjour Roni, bonjour le forum,

En pièce jointe ton fichier modifié avec un bouton et le code ci-dessous :

Private Sub CommandButton1_Click() 'bouton copie
Dim cel As Range 'déclare la variable cel (CELlule)
Dim sour As Range 'déclare la variable sour (SOURce)
 
ActiveCell.Select 'enlève le focus au bouton
With Sheets("Ventes Mois en cours") 'prend en compte l'onglet "Ventes Mois en cours"
    For Each cel In .Range("A1:A" & .Range("A65536").End(xlUp).Row) 'boucle sur toutes les cellule éditées cel de la colonne A
        If cel.Value = "3+9" Then 'condition : si la valeur de la cellule est "3+9"
            Set sour = cel.End(xlToRight) 'définit la cellule source
            sour.Copy 'copie la source
            sour.Offset(0, 1).PasteSpecial (xlPasteValues) 'colle la valeur de la cellule source dans la cellule à sa droite
        End If 'fin de la condition
    Next cel 'prochaone cellule de la boucle
    Application.CutCopyMode = False 'enlève le clignottement de la copie
End With 'fin de la prise en compte de l'onglet "Ventes Mois en cours"
End Sub

 

[Roni95]

Re : Macro pour recopier données

ça fonctionne à merveille

Merci beaucoup Robert

Bon WE!