Créer une répétition de macro
J
Bonjour,
J'ai créer une Macro qui fonctionne très bien pour mon utilisation, mais j'aimerai maintenant quel se répète.
Partir (comme dans la macro d'origine) de la valeur
adresseFichier = Sheets("Base de donné").Range("A4").Value
valeurItem = Sheets("Feuil1").Range("C4").Value
En descendant jusqu'à trouver des valeur vide
Voici ma macro
Sub OuvrirCopierColler()
' Déclare les variables pour stocker les adresses du fichier et la valeur Item
Dim adresseFichier As String
Dim valeurItem As String
' Récupère l'adresse du fichier et la valeur Item
adresseFichier = Sheets("Base de donné").Range("A4").Value
valeurItem = Sheets("Feuil1").Range("C4").Value
' Ouvre le fichier correspondant
Dim wb As Workbook
Set wb = Workbooks.Open(adresseFichier)
' Copie la ligne correspondante
Dim ws As Worksheet
Set ws = wb.Worksheets(1)
Dim rng As Range
Set rng = ws.Range("B:B").Find(What:=valeurItem, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
rng.EntireRow.Copy
End If
' Colle la ligne correspondante dans l'excel d'origine
Dim wsOrigine As Worksheet
Set wsOrigine = ThisWorkbook.Worksheets("Feuil2")
wsOrigine.Range("A5").PasteSpecial xlPasteValues
' Vide le cache
Application.CutCopyMode = False
' Ferme le fichier ouvert
wb.Close SaveChanges:=False
End SubEdit modo : code à mettre entre balises avec le bouton </> merci d'y faire attention la prochaine fois
Invité
Bonjour Jeremy et
Vous voudrez bien lire ou relire la charte comme demandé lors de votre inscription.
Le code est à mettre entre balises avec le bouton </>
Pour ce que vous souhaitez, il faut faire une boucle
https://www.excel-pratique.com/fr/vba/boucles
En parcourant les cellules
A+