Bonjour,
après avoir utilisé un peu la fonction macro automatique, je me heurte a de petites soucis ...
Le fichier excel joint est un exemple, j'en ai une dizaine à faire mais avec un exemple concret, je saurais l'appliquer au reste !
je suis très loin de réussir a utiliser des combinaisons de fonction etc. ce qui me limite énormément :/
Actions
1 Supprimer les données B5 à H5 sur l'ensemble des lignes quelque soit le nombre de lignes
2 Supprimer les données de I6 pour l'ensemble des lignes quelque soit le nombre de lignes
3 > Fonction d'intégration des données via un fichier texte dans un répertoire spécifique
4 Selon le nouveau nombre de ligne => copier coller la fonction doublon de I5 jusqu'à la fin de la colonne
5 Modifier le TCD pour prendre en compte la nouvelle plage de données du tableau.
D'une intégration de données à l'autre, le nombre de lignes est différent ( à la hausse ou à la baisse) tout dépend de l'extraction
Pour la fonction macro VBA aller chercher un fichier, j'aimerai essayer de faire en sorte d'aller toujours chercher les fichiers dans le même répertoire avec des noms de fichiers identiques pour faciliter la chose
pour l'instant la fonction donne quelque chose comme :
Maccro commencée sur mon fichier d'origine, mais je vous ai fourni une extraction
Merci d'avance pour votre aide !
après avoir utilisé un peu la fonction macro automatique, je me heurte a de petites soucis ...
Le fichier excel joint est un exemple, j'en ai une dizaine à faire mais avec un exemple concret, je saurais l'appliquer au reste !
je suis très loin de réussir a utiliser des combinaisons de fonction etc. ce qui me limite énormément :/
Actions
1 Supprimer les données B5 à H5 sur l'ensemble des lignes quelque soit le nombre de lignes
2 Supprimer les données de I6 pour l'ensemble des lignes quelque soit le nombre de lignes
3 > Fonction d'intégration des données via un fichier texte dans un répertoire spécifique
4 Selon le nouveau nombre de ligne => copier coller la fonction doublon de I5 jusqu'à la fin de la colonne
5 Modifier le TCD pour prendre en compte la nouvelle plage de données du tableau.
D'une intégration de données à l'autre, le nombre de lignes est différent ( à la hausse ou à la baisse) tout dépend de l'extraction
Pour la fonction macro VBA aller chercher un fichier, j'aimerai essayer de faire en sorte d'aller toujours chercher les fichiers dans le même répertoire avec des noms de fichiers identiques pour faciliter la chose
pour l'instant la fonction donne quelque chose comme :
Maccro commencée sur mon fichier d'origine, mais je vous ai fourni une extraction
Merci d'avance pour votre aide !
Code:
Sub Macro_Clean()
'
' Macro_Clean Macro
'Suppression des données de la BCD-Quotidienne
Range("C5:D5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents 'clean la plage
'!INTEGRER FONCTION DINTEGRATION FICHIER
'Fin suppression de la BCD-Quotidienne
'Indicateur 651 Range("J5:P5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
'!INTEGRER FONCTION DINTEGRATION FICHIER
'Fin indicateur 651
'indicateur 652 Range("V5:AB5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContent
Range("AC6").Select 'Clear Doublon
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents 'Fin clear Doublon
'!INTEGRER FONCTION DINTEGRATION FICHIER
'Fin indicateur 652
'Indicateur 653 Range("AH5:AN5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContent
Range("AO6").Select 'Clear Doublon
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContent
'!INTEGRER FONCTION DINTEGRATION FICHIER
'Fin indicateur 653
'Indicateur PRIO1
Range("AU5:BB5").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContent
Range("BC6").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
'!INTEGRER FONCTION DINTEGRATION FICHIER
'Fin indicateur prio
'Indicateur 654
Range("BQ5:CC5").Select 'Clear plage
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents 'Fin clear plage
Range("CD6").Select 'clear doublon 1,2,3
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents 'Fin clear plage
'!INTEGRER FONCTION DINTEGRATION FICHIER
'Fin indicateur 654
End Sub
Pièces jointes
Dernière édition: