Automatiser une procédure

[UJAP]

Bonjour,

Encore besoin de vos compétences pour la création d’un macro par l’intermédiaire du fichier en pièce jointe,

L’objectif est de pouvoir automatiser la mise en forme de ce tableau afin de l’exploiter sous un tableau dynamique.

Ainsi serait-il possible d’avoir un macro qui complète les cellules vides en prenant identiquement l’information qui est au dessus sans remplacer les cellules qui contiennent déjà des informations.

Exemple : La cellule C3 sera égale à la cellule C2 (ASSED) – La cellule D4 sera égale à D3 qui sera égale à D2.

Pour le réaliser je le fais par l’intermédiaire d’un filtre mais je voudrai que cela devienne automatique,

Il faut souligner que ce tableau est mensuel et qu’il n’est pas identique à celui de n-1,

Alors c’est pour ça que j’ai besoin de votre,

 

[kjin]

Re : Automatiser une procédure

Re,
Il me semble qu'en testant juste le contenu de la colonne M, ça devrait suffire
Donc, avec le fichier original

Sub EffaceRecopie()
Dim k As Integer, i As Integer, j As Integer
  Application.ScreenUpdating = False
    Rows("1:8").Delete
    For k = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
        If Cells(k, 13) <> "M" And Cells(k, 13) <> "F" Then Rows(k).Delete
    Next k
    For i = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
        For j = 1 To 8
            If Cells(i, j) = "" Then Cells(i, j) = Cells(i - 1, j)
        Next j
    Next i
  Application.ScreenUpdating = True
  
End Sub

A+
kjin

 

[UJAP]

Re : Automatiser une procédure

Salut Kjin,

Merci pour ta réponse, peux-tu juste m’expliquer calculer le code pour comprendre la procédure ?

Et je voulais savoir si il était possible dans la colonne I, J, K remplacer le caractère point par une virgule afin d’effectuer des calculs sur Excel.

Puis serait-il possible de rajouter dans la colonne N la date en cours dans les cellules (de N2 à N308 dans notre exemple) et mettre en légende « N1 » "DATE " ?

Merci pour ton aide, c’est sympa

 

[kjin]

Re : Automatiser une procédure

Bonjour,
L'explication est dans le code
N1 = "DATE"
N2:N308 = date du jour
Remplacement du "." par "," dans les colonnes I, J et K
Voilà, je pense n'avoir rien oublié
Repasse si tu as des soucis
A+
kjin

 

[UJAP]

Re : Automatiser une procédure

Merci, sauf que le calcul ne fonctionne pas au niveau du remplacement du point par la virgule !!!! Tu sais comment résoudre le problème ?

Merci,

 

[kjin]

Re : Automatiser une procédure

Re,
Chez moi je n'est pas ce pb
Panneaux de configuration Windows/Paramètres régionnaux, le séparateur pour le format décimales et monétaires est la virgule
Sous excel, quand tu appuies sur le point du pavé numérique, as tu un point ou une virgule affiché à l'écran ?
A+
kjin

 

[UJAP]

Re : Automatiser une procédure

C'est bizarre,

J'ai essayé avec la fonction édition rechercher (,) remplacer par (,) dans la feuille et là ça fonctionne !!!! tu sais pourquoi cela fonctionne pas dans le code ?

J'ai un message erreur là dessus,

Dans mes paramètres régionaux c'est une virgule;

MErci pour ton aide,

 

[kjin]

Re : Automatiser une procédure

Re,
Tu m'indiques avoir un message d'erreur, mais pas ce que dit ce message !
L'erreur survient lorsque tu fais les essais avec le fichier joint ou avec le tien ?
Tu as remplacé virgule/virgule ou point/virgule ?
A+
kjin

 

[UJAP]

Re : Automatiser une procédure

Lors de l'exécution du code il m'indique ce message d'erreur :
- "Erreur d'exécution 5" - Argument ou appel de procédure incorrect

Ensuite sur la colonne I, J, K si j'utilise l'option remplacer "," par "," les caractères deviennent des chiffres, et j'ai eu le pb sur ton fichier que tu m'as transmis,