XL 2019 incrémentation fichier automatiquement

Q

Quicksland

XLDnaute Occasionnel
Bonjour le forum ;)

J'ai un fichier Excel que je récupère d'un logiciel tiers (effectifs réel par point de livraison ) non structuré mais qui reste identique chaque jours

avec ce fichier je souhaiterai pouvoir alimenter automatiquement le fichier(VINAIGRETTE AUTOMATIQUE) qui celui ci me convient parfaitement

toutes les cellules jaune dans (effectifs réel par point de livraison) alimente toutes les cellules jaune du fichier (VINAIGRETTE AUTOMATIQUE)

Je vous remercie
 

Pièces jointes

  • Effectifs réels par point de livraison.xlsx
    14.4 KB · Affichages: 16
  • VINAIGRETTE AUTOMATIQUE.xlsm
    27.3 KB · Affichages: 15
Trier par date Trier par votes
vgendron

vgendron

XLDnaute Barbatruc
Bonjour

Avant de se lancer dans du code, il y a plusieurs choses
1) les données de ton fichier "Vinaigrette" ne correspondent pas à celles du fichier "Effectifs"
ex: la date n'est pas la meme
les totaux ne sont pas les memes..

2) dans le fichier Vinaigrette
Pourquoi fusionner les lignes deux par deux? ca complique systémtiquemnet le tratieemnt alors qu'il suffit d'agrandir la hauteur des lignes

3) pourquoi les lignes "Casse" / "Laboratoire" / "Personnel UPC" ne sont elles pas importées ?
 
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
vgendron à dit:
Bonjour

Avant de se lancer dans du code, il y a plusieurs choses
1) les données de ton fichier "Vinaigrette" ne correspondent pas à celles du fichier "Effectifs"
ex: la date n'est pas la meme
les totaux ne sont pas les memes..

2) dans le fichier Vinaigrette
Pourquoi fusionner les lignes deux par deux? ca complique systémtiquemnet le tratieemnt alors qu'il suffit d'agrandir la hauteur des lignes

3) pourquoi les lignes "Casse" / "Laboratoire" / "Personnel UPC" ne sont elles pas importées ?
Cliquez pour agrandir...
Bonjour vgendron

Merci pour ta réponse 👍

En pj le fichier avec modification de la date et des effectifs identique au fichier source
J'ai aussi modifier la fusion des cellules si plus pratique pour le traitement et codage ;)

La ligne "Casse" / "Laboratoire" / "Personnel " ne nous intéresse pas vu que c'est un prévisionnel
de ce fait la "casse" est rentrer après coup si besoin , la ligne "laboratoire" est automatique et pour le personnel la encore rentrer le jour J dans une autre feuille "effectifs réel" qui nous sert pas pour l'automatisation

Je souhaiterai également que la macro fonctionne avec la feuille protégée par mot de passe

Voila je pense avoir répondu a tes questions

je te remercie par avance pour l'aide
 

Pièces jointes

  • VINAIGRETTE AUTOMATIQUE - Copie.xlsm
    25.2 KB · Affichages: 7
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
code à mettre dans un module standard dans le fichier Vinaigrette

VB: 
Sub MajDonnées()
Dim WBOrigine As Workbook
Dim WBDest As Workbook
Dim WSOrigine As Worksheet
Dim WSDest As Worksheet

Dim TabData() As Variant
Dim fin, i, j As Long
Dim NomEcole As String
Dim Jour As Date

Set WBDest = ActiveWorkbook 'fichier actif
Set WBOrigine = Workbooks("Effectifs Réels par point de livraison.xlsx") 'le fichier est ouvert

Set WSOrigine = WBOrigine.Sheets("A") 'la feuille de données DOIT s'appeler "A"
Set WSDest = WBDest.Sheets("RESULTAT") 'la feuille de résultat

With WSOrigine 'dans le fichier origine
    fin = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne NON vide de la colonne A
    Jour = .Range("C2") 'on récupère le jour
    TabData = .Range("A5:O" & fin).Value 'on place toutes les données dans un tableau vba (plus rapide pour le traitement ensuite)
End With

With WSDest 'dans la feuille de résultat
    .Range("A4") = Jour 'on colle le jour
    fin = .Range("B" & .Rows.Count).End(xlUp).Row 'dernière ligne NON vide de la colonne B
    For i = 8 To fin 'pour chaque ligne
        NomEcole = Trim(.Range("B" & i)) 'on récupère le nom de l'école en enlevant tous les espaces qui trainent
        For j = LBound(TabData, 1) To UBound(TabData, 1) - 1 'pour chaque ligne du tableau
            If TabData(j, 1) Like "*" & NomEcole And TabData(j + 1, 1) = "Total" Then 'on cherche la ligne qui contient le nom de l'école avec le mot "Total" en dessous
                .Range("D" & i) = TabData(j + 1, 10) 'on récupère la valeur
                Exit For 'pas besoin de continuer à parcourir le tableau
            End If
        Next j
    Next i
End With
End Sub
 
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
vgendron à dit:
code à mettre dans un module standard dans le fichier Vinaigrette

VB: 
Sub MajDonnées()
Dim WBOrigine As Workbook
Dim WBDest As Workbook
Dim WSOrigine As Worksheet
Dim WSDest As Worksheet

Dim TabData() As Variant
Dim fin, i, j As Long
Dim NomEcole As String
Dim Jour As Date

Set WBDest = ActiveWorkbook 'fichier actif
Set WBOrigine = Workbooks("Effectifs Réels par point de livraison.xlsx") 'le fichier est ouvert

Set WSOrigine = WBOrigine.Sheets("A") 'la feuille de données DOIT s'appeler "A"
Set WSDest = WBDest.Sheets("RESULTAT") 'la feuille de résultat

With WSOrigine 'dans le fichier origine
    fin = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne NON vide de la colonne A
    Jour = .Range("C2") 'on récupère le jour
    TabData = .Range("A5:O" & fin).Value 'on place toutes les données dans un tableau vba (plus rapide pour le traitement ensuite)
End With

With WSDest 'dans la feuille de résultat
    .Range("A4") = Jour 'on colle le jour
    fin = .Range("B" & .Rows.Count).End(xlUp).Row 'dernière ligne NON vide de la colonne B
    For i = 8 To fin 'pour chaque ligne
        NomEcole = Trim(.Range("B" & i)) 'on récupère le nom de l'école en enlevant tous les espaces qui trainent
        For j = LBound(TabData, 1) To UBound(TabData, 1) - 1 'pour chaque ligne du tableau
            If TabData(j, 1) Like "*" & NomEcole And TabData(j + 1, 1) = "Total" Then 'on cherche la ligne qui contient le nom de l'école avec le mot "Total" en dessous
                .Range("D" & i) = TabData(j + 1, 10) 'on récupère la valeur
                Exit For 'pas besoin de continuer à parcourir le tableau
            End If
        Next j
    Next i
End With
End Sub
Cliquez pour agrandir...
Jai mis le code dans module 1( voir fichier en pj )

Mais cela ne fonctionne pas

Merci
 

Pièces jointes

  • VINAIGRETTE.xlsm
    28.6 KB · Affichages: 4
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
ca fonctionne très bien pour peu que tu ne modifies pas la structure de ton fichier entre temps..
la date n'est plus à metre en A4, mais A2
la première ligne n'est plus la ligne 8 mais la ligne 4

il faut donc adapter le code
 
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
vgendron à dit:
ca fonctionne très bien pour peu que tu ne modifies pas la structure de ton fichier entre temps..
la date n'est plus à metre en A4, mais A2
la première ligne n'est plus la ligne 8 mais la ligne 4

il faut donc adapter le code
Cliquez pour agrandir...
Re

je change dans le code les valeurs que j'ai mis en rouge ?

With WSDest 'dans la feuille de résultat
.Range("A4") = Jour 'on colle le jour
fin = .Range("B" & .Rows.Count).End(xlUp).Row 'dernière ligne NON vide de la colonne B
For i = 8 To fin 'pour chaque ligne
 
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
vgendron à dit:
si la feuille est protégée, il faut la déprotéger puis la reprotéger
va voir du coté de unprotect
Cliquez pour agrandir...
Re

C'est sur mais j'aurai préférer ne pas faire le mot de passe a chaque fois

Sinon j'ai récupérer ce bout de code qui fonctionne sur un autre fichier

" .Protect userinterfaceonly:=True, Contents:=True, Password:="....." "

mais je ne sais pas l'incorporer avec ton code
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
La protection et déprotection peut se faire par la macro elle meme

il suffit de déprotéger la feuille en début de macro avec
sheets("Nom de la feuille").unprotect, password:="Ton Password")

et reprotéger en fin de macro
sheets("Nom de la feuille").protect, password:="Ton Password")

Comme je ne sais pas quel classeur est protégé (Classeur Origine ou Classeur destination??)
je te laisse adapater
 
Vote positif 0 Vote négatif
Q

Quicksland

XLDnaute Occasionnel
vgendron à dit:
La protection et déprotection peut se faire par la macro elle meme

il suffit de déprotéger la feuille en début de macro avec
sheets("Nom de la feuille").unprotect, password:="Ton Password")

et reprotéger en fin de macro
sheets("Nom de la feuille").protect, password:="Ton Password")

Comme je ne sais pas quel classeur est protégé (Classeur Origine ou Classeur destination??)
je te laisse adapater
Cliquez pour agrandir...
Bonjour vgendron

Donc je met ceci "
sheets("RESULTAT").protect, password:="Quicksland")

VB: 
Sub MajDonnées()
sheets("RESULTAT").unprotect, password:="Quicksland")
Dim WBOrigine As Workbook
Dim WBDest As Workbook
Dim WSOrigine As Worksheet
Dim WSDest As Worksheet

Dim TabData() As Variant
Dim fin, i, j As Long
Dim NomEcole As String
Dim Jour As Date

Set WBDest = ActiveWorkbook 'fichier actif
Set WBOrigine = Workbooks("Effectifs Réels par point de livraison.xlsx") 'le fichier est ouvert

Set WSOrigine = WBOrigine.Sheets("A") 'la feuille de données DOIT s'appeler "A"
Set WSDest = WBDest.Sheets("RESULTAT") 'la feuille de résultat

With WSOrigine 'dans le fichier origine
    fin = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne NON vide de la colonne A
    Jour = .Range("C2") 'on récupère le jour
    TabData = .Range("A5:O" & fin).Value 'on place toutes les données dans un tableau vba (plus rapide pour le traitement ensuite)
End With

With WSDest 'dans la feuille de résultat
    .Range("A4") = Jour 'on colle le jour
    fin = .Range("B" & .Rows.Count).End(xlUp).Row 'dernière ligne NON vide de la colonne B
    For i = 8 To fin 'pour chaque ligne
        NomEcole = Trim(.Range("B" & i)) 'on récupère le nom de l'école en enlevant tous les espaces qui trainent
        For j = LBound(TabData, 1) To UBound(TabData, 1) - 1 'pour chaque ligne du tableau
            If TabData(j, 1) Like "*" & NomEcole And TabData(j + 1, 1) = "Total" Then 'on cherche la ligne qui contient le nom de l'école avec le mot "Total" en dessous
                .Range("D" & i) = TabData(j + 1, 10) 'on récupère la valeur
                Exit For 'pas besoin de continuer à parcourir le tableau
            End If
        Next j
    Next i
End With
sheets("RESULTAT").unprotect, password:="Quicksland")
End Sub

Merci
 
Vote positif 0 Vote négatif

Discussions similaires

Q
  • Résolu(e)
XL 2019 Incrémenter fichier automatiquement
2
Réponses
22
Affichages
2 K
Quicksland
Q
dn35
  • Question
Autres Mise à jour fichier créé il y a 14 ans avec votre aide !
2
Réponses
20
Affichages
459
dn35
dn35
philsogood
  • Question
XL 2019 conversion de cellules
Réponses
5
Affichages
327
Dranreb
Dranreb
Brigitte 45
  • Question
Microsoft 365 Insérer automatiquement un texte défini dans une cellule, avant ou après une série de chiffres.
Réponses
7
Affichages
346
Brigitte 45
Brigitte 45
S
  • Résolu(e)
XL 2019 Récupération valeurs à partir d'un fichier source
Réponses
7
Affichages
457
sum01
S
B
  • Question
XL 2016 Formule avec plusieurs conditions pour planning heures annuelles
Réponses
5
Affichages
404
fanfan38
fanfan38
T
  • Résolu(e)
Microsoft 365 Filtre Unicritères
Réponses
12
Affichages
529
TCHIS
T
A
  • Question
XL 2019 Copier une plage dans un fichier fermé en VBA
2
Réponses
21
Affichages
1 K
Amilo
A
E
  • Question
XL 2019 Peut-on créer automatiquement un lien hypertexte en fonction du contenu de la cellule ?
Réponses
1
Affichages
692
vgendron
vgendron
luno123
  • Question
XL 2016 Reporter des cellules sélectionnées d'une feuille sur une autre automatiquement
2
Réponses
26
Affichages
1 K
job75
job75

Membres actuellement en ligne

3 membres et 33 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 215
Messages
2 086 330
Membres
103 187
dernier inscrit
ebenhamel