Bonjour,
Pour indiquer les fichiers à ouvrir pour le traitement des données.
J'ai fait ceci, cela fonctionne mais comment puis-je l'optimisé?
_ En B1:B5 c'est la liste des fichiers à ouvrir réaliser par plusieurs formule.
_En B6 la cellule de référence pour la deuxieme macro de traitement, une fois la tache faite, je coupe de B7:B15 pour coller en B6 et recommencé.
J'espére ne pas être trop compliqué dans mes explications.
Si vous avez réussir à me lire Merci.
Et bonne Journée
Pour indiquer les fichiers à ouvrir pour le traitement des données.
J'ai fait ceci, cela fonctionne mais comment puis-je l'optimisé?
_ En B1:B5 c'est la liste des fichiers à ouvrir réaliser par plusieurs formule.
_En B6 la cellule de référence pour la deuxieme macro de traitement, une fois la tache faite, je coupe de B7:B15 pour coller en B6 et recommencé.
J'espére ne pas être trop compliqué dans mes explications.
Si vous avez réussir à me lire Merci.
Et bonne Journée
Code:
Public Sub Début()
Range("B1:B5").Copy
Range("B6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Regarde si il y a bien une valeur dans la premiere cellule.
Do While Range("b6").Value > ""
'appel des autres macros.
'Call total
Range("B7:B15").Cut
Range("B6").Select
ActiveSheet.Paste
Loop
End Sub