Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 VBA - Ajout automatique ligne dans compil

M

MarionP85

XLDnaute Nouveau
Bonjour à tous,

Alors voilà, je travaille sur un fichier de compilation où j'ai une centaine d'onglets (ces feuilles sont des feuilles copiés d'un enregistrement modèle donc avec la même structure)
Je suis novice en macro mais j'ai envie d'apprendre. J'ai créé un petit module qui me permettra lors de l'ajout d'une feuille de la renommer par la cellule B2 et de supprimer la valeur de la cellule B8. J'aimerais par ailleurs que sur ma 1ere feuille j'ai un récapitulatif des observations.
Donc je voulais vous demander si c'était possible de créer une macro (si possible à la suite de celle déjà créé) que lorsque j'ajoute un onglet je puisse avoir sur ma 1ere feuille une ligne qui s'ajoute avec le N° de la VSC (B2), observation 1 (D5), etc...
Ci joint mon fichier afin de vous donner une idée. N'hésitez pas à me dire si mes explications ne sont pas clairs

En vous souhaitant une très bonne journée.
Bien cordialement,
 

Pièces jointes

  • Compil VSC - conducteur NBT v.xlsm
    111 KB · Affichages: 19
Solution
Bonjour Marion,
Un essai en PJ. A la suite de votre macro :
VB: 
' Synthèse infos
Sheets("Resultats").Activate
With Sheets("Resultats")
    Range("A5:V1000").ClearContents         ' Efface matrice synthèse
    Ligne = 5                               ' Première ligne
    For Each F In Worksheets                ' Pour toutes les feuilles
        If F.Name <> "Resultats" Then       ' Hormis résultats
            .Cells(Ligne, "A") = F.Name     ' Range nom de la feuille
            Colonne = 2                     ' Première colonne de rangement : B
            For L = 5 To 11 Step 2          ' Pour les lignes d'observations ( stap car une ligne sur deux, cellules fusionnées )
                For C = 4 To 10             ' Pour outes les...
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Marion,
Un essai en PJ. A la suite de votre macro :
VB: 
' Synthèse infos
Sheets("Resultats").Activate
With Sheets("Resultats")
    Range("A5:V1000").ClearContents         ' Efface matrice synthèse
    Ligne = 5                               ' Première ligne
    For Each F In Worksheets                ' Pour toutes les feuilles
        If F.Name <> "Resultats" Then       ' Hormis résultats
            .Cells(Ligne, "A") = F.Name     ' Range nom de la feuille
            Colonne = 2                     ' Première colonne de rangement : B
            For L = 5 To 11 Step 2          ' Pour les lignes d'observations ( stap car une ligne sur deux, cellules fusionnées )
                For C = 4 To 10             ' Pour outes les colonnes
                    .Cells(Ligne, Colonne) = Sheets(F.Name).Cells(L, C) ' Copier coller infos
                    Colonne = Colonne + 1   ' On passe à la colonne suivante
                Next C
            Next L
            Ligne = Ligne + 1               ' prochaine ligne de rangement
        End If
    Next F
End With
 

Pièces jointes

  • Compil VSC - conducteur NBT v (1).xlsm
    107.7 KB · Affichages: 3
Vote positif 0 Vote négatif
Solution
M

MarionP85

XLDnaute Nouveau
Bonjour,

Tout d'abord merci beaucoup ! J'ai un petit soucis lors de l’exécution j'ai un message d'erreur : "Erreur d'execution '9' L'indice n'appartient pas à la sélection" sur la ligne Sheets("Resultats").Activate
J'imagine que l'indice correspond à "Resultats" mais je ne vois pas du tout le problème...

Bien cordialement,
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
J'ai oublié un détail : sur votre fichier la feuille s'appelle "Resultats " avec un espace.
Sur mon fichier j'ai supprimé cet espace car c'est source d'erreur.
Donc je pense que cela vient de là.
Changer soit Sheets("Resultats").Activate en Sheets("Resultats ").Activate
soit renommer votre feuille en supprimant l'espace.
Perso la seconde solution me semble plus propre, car on peut chercher longtemps une erreur du à un espace invisible.
 
Vote positif 0 Vote négatif
M

MarionP85

XLDnaute Nouveau
Merci beaucoup, c'était cela en effet super tout fonctionne et j'ai réussi à l'adapter pour un autre fichier c'est genial !! Et si jamais, je voulais par exemple sur un autre fichier (tout en prenant l'exemple de celui ci) au lieu d'avoir mes observations sur la même ligne faire plusieurs lignes avec le même numéro de VSC avec une observation/ligne ? Comment pourrais-je adapter ce code ci ?
Je vous remercie pour votre temps accordé.

Bien cordialement,
 
Vote positif 0 Vote négatif
M

MarionP85

XLDnaute Nouveau
sylvanu à dit:
Re,
La ligne d'écriture est gérée par la variable "Ligne" , je sais ce n'est pas très original.
A vous de gérer ce N° de ligne en faisant Ligne=Ligne+1 quand vous en avez besoin.
Cliquez pour agrandir...
Re,
vraiment désolé je me sens tellement bête, j'ai fait cela :
VB: 
' Synthèse infos
Sheets("Resultats").Activate
With Sheets("Resultats")
    Range("A5:V1000").ClearContents         ' Efface matrice synthèse
    Ligne = 5                               ' Première ligne
    For Each F In Worksheets                ' Pour toutes les feuilles
        If F.Name <> "Resultats" Then       ' Hormis résultats
            .Cells(Ligne, "A") = F.Name     ' Range nom de la feuille
            Colonne = 2                     ' Première colonne de rangement : B
            For L = 5 To 11 Step 2          ' Pour les lignes d'observations ( stap car une ligne sur deux, cellules fusionnées )
                For C = 4 To 10             ' Pour outes les colonnes
                    .Cells(Ligne, Colonne) = Sheets(F.Name).Cells(L, C) ' Copier coller infos
                    Colonne = Colonne + 1   ' On passe à la colonne suivante
                Next C
                 .Cells(Ligne, "A") = F.Name
                Ligne = Ligne + 1
            Next L
            Ligne = Ligne + 1               ' prochaine ligne de rangement
        End If
    Next F

Ca me met bien à la ligne avec mon numéro de VSC cependant la 2e observation reste décalée sur la droite par rapport à la 1ere, elle ne se met pas directement en dessous. Je suppose que c'est au moment du " For C = 4 To 10 " que ça se décale de 6 colonnes et donc lui dire d'aller directement à la ligne mais je ne vois pas du tout comment faire..
Je vous remercie encore une fois

Bien cordialement,
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Sans fichier test et sans directive précise, difficile de vous aider.

Il vous faut gérer Ligne et Colonne, la cellule écrite est .Cells(Ligne, Colonne).
Dans votre code à chaque écriture vous faites ensuite un Colonne = Colonne + 1 donc vous changer de colonne.

Comme vous n'avez que 6 valeurs à inscrire, supprimer le FOR ce sera plus simple :
VB: 
' Remplacez :
    For C = 4 To 10             ' Pour toutes les colonnes
        .Cells(Ligne, Colonne) = Sheets(F.Name).Cells(L, C) ' Copier coller infos
        Colonne = Colonne + 1   ' On passe à la colonne suivante
    Next C
' Par
    .Cells(Ligne, Colonne) = Sheets(F.Name).Cells(L, 4)
    .Cells(Ligne, Colonne) = Sheets(F.Name).Cells(L, 5)
    .Cells(Ligne, Colonne) = Sheets(F.Name).Cells(L, 6)
    .Cells(Ligne, Colonne) = Sheets(F.Name).Cells(L, 7)
    .Cells(Ligne, Colonne) = Sheets(F.Name).Cells(L, 8)
    .Cells(Ligne, Colonne) = Sheets(F.Name).Cells(L, 9)
    .Cells(Ligne, Colonne) = Sheets(F.Name).Cells(L, 10)

' Et insérer :
    Colonne = Colonne + 1  et/ou    Ligne= Ligne+ 1
' Où vous voulez.
Ca ne fait que quelques lignes en plus mais c'est plus souple à l'emploi.
 
Vote positif 0 Vote négatif
M

MarionP85

XLDnaute Nouveau
Merci beaucoup, désolé. Nous pouvons rester sur le même fichier pour l'exemple, les observations 2 et 3 sont bien sur la ligne d'en dessous dans ma feuille 1 mais sont encore décalés...

Bien cordialement,
 

Pièces jointes

  • Compil VSC - conducteur NBT v (1).xlsm
    117.2 KB · Affichages: 4
Vote positif 0 Vote négatif
M

MarionP85

XLDnaute Nouveau
Bonjour, c'est exactement ce rendu là que je souhaite. Les observations d'une même VSC les unes en dessous les autres...
Je n'ai cependant pas réussi à l'appliquer.

Bonne journée à vous,
Bien cordialement.
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
On finit par se comprendre.
Un essai en PJ.
Pour augmenter encore un peu la lisibilité :
1- Je ne mets que les observations, si une observation est vide elle n'est pas affichée.
2- J'ai mis quelques couleurs pour les transistions entre pages.
Les couleurs sont programmables via la ligne :
VB: 
Vert = RGB(230, 255, 230): Jaune = RGB(255, 255, 200)
 

Pièces jointes

  • Compil VSC - conducteur NBT v (4).xlsm
    135.7 KB · Affichages: 3
Vote positif 0 Vote négatif
M

MarionP85

XLDnaute Nouveau
Re, c'est exactement ça qu'il me fallait je l'ai adapté à un autre fichier ca tourne niquel ! super l'idée des couleurs. Je vous remercie pour votre aide et votre patience !!
Dernière petite question qui n'a pas de rapport avec mon fichier mais plutôt votre expérience. Est-ce que vous compilez vos codes dans un classeur où est-ce que vous faites tout de "tête" ? Juste pour mon information, vous n'êtes pas obligé de répondre.

En vous souhaitant une agréable journée
Bien cordialement,

Marion
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD

Il serait impossible de "compiler" tous les codes et de les réutiliser in extenso. Ce serait trop simple.
Un langage, c'est un peu comme une langue étrangère, on apprends petit à petit, et quand on sait pas on utilise un dictionnaire pour trouver un mot : Google, MS, et toutes ses lectures ....
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Question
Microsoft 365 Remplissage automatique d'une feuille à l'autre
Réponses
2
Affichages
222
Nonoo
N
B
  • Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
200
kiki29
D
  • Résolu(e)
Microsoft 365 Remplissage colonne automatique dépendant d'un tableau
Réponses
7
Affichages
545
fanfan38
O
  • Résolu(e)
XL 2013 Formule ou Codage VBA qui compte le nombre de ligne en doublons
Réponses
2
Affichages
105
onyirimba
O
W
  • Question
XL 2019 Récupérer le nom d'une feuille où se trouve une valeur précise
Réponses
5
Affichages
405
Winnylourson
W
L
  • Question
XL 2016 Ajout d'une requête SQL dans code VBA
Réponses
3
Affichages
274
Phil69970
R
  • Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
606
Renaud22
R
M
  • Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
1
Affichages
373
vgendron
G
  • Question
Microsoft 365 Ajout de données
Réponses
3
Affichages
441
GClaire
G
N
  • Résolu(e)
Microsoft 365 Code erreur dans code Vba
Réponses
14
Affichages
358
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…