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

macro boucle sur texte avec variable

  • Initiateur de la discussion Initiateur de la discussion Fab71
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Fab71

XLDnaute Nouveau
bonjour, je débute en VBA et je sèche vraiment et sollicite donc votre aide ;-)

voilà j'importe un fichier csv sur un onglet "CSV"
dans cet onglet je veux chercher et copier sur un autre onglet "RESULTAT" un ensemble de données.

je sais faire une partie, c'est a dire chercher une valeur fixe : practice 1 result
puis selectionner les valeurs adjacentes
puis les coller sur l'onglet RESULTAT, a la suite d'une ligne vide (avec 3 lignes d'espace)

ma macro :

Sub Macro1()
'
' Macro1 Macro
'

' recherche practice 1 result et active cellule
Sheets("CSV").Select
Cells.Find(What:="practice 1 result", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate

' active la tableau soit equivalent de ctrl A
ActiveCell.CurrentRegion.Select

' copie la selection et va sur onglet RESULTAT et colle emplacement vide suivant + 3 lignes
Selection.Copy
With Sheets("RESULTAT")
ActiveSheet.Paste Destination:=.Range("A" & .Range("A" & Rows.Count).End(xlUp).Row).Offset(3)
Application.CutCopyMode = False
.Activate
End With

End Sub

ce que j'aimerai obtenir c'est une recherche sur "CSV" de chaque "practice N result" ou N varie de 1 à X
et de les copier a la suite sur l'onglet "RESULTAT"

Voilà en vous remerciant par avance, Fabrice
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
108
Réponses
5
Affichages
417
Réponses
20
Affichages
808
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…