Récupérer des information par rapport a un mot dans plusieurs feuille Excel
Bonjour, j'ai un problème avec cette macro et j'ai besoin de votre aide pour comprendre ou je me trompe,
J'ai un tableau de bord ou j'aimerai affichez des informations qui se trouve sur différentes feuilles du classeur, je recherche un mot dans la colonne K de toute les feuilles et si le mot est trouvé, il me copie la ligne entière et me la retransmet sur le menu
La macro marche bien, elle me colle les informations en A1 mais je n'arrive pas a lui faire coller ces informations en Colonne E11 comme su la macro précédente,
Dim Ws As Worksheet
Dim CWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xRStr = "Oui" ' Mot a rechercher
Set CWs = ActiveWorkbook.Worksheets("Menu") ' Page de déstination
xC = 11
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name <> CWs Then
Set xRg = Ws.Range("K3:K50") ' recherche mot dans la colonne
Set xRg = Intersect(xRg, Ws.UsedRange)
For Each xRRg In xRg
If xRRg.Value = xRStr Then
xRRg.EntireRow.Copy ' copie ligne correspondante au mot
CWs.Cells(xC, 5).PasteSpecial xlPasteValuesAndNumberFormats
xC = xC + 1
End If
Next xRRg
End If
Next Ws
Application.DisplayAlerts = True
Avez vous une idée de comment faire?
Bonjour,
Je ne vous souhaite pas la bienvenue puisqu'à priori vous n'avez pas lu la charte du forum
ICI => https://forum.excel-pratique.com/excel/a-lire-avant-de-poster-charte-du-forum-et-informations-utiles...
Prendre 5 minutes de son temps est peut-être compliqué pour vous
Les codes donnés sont à mettre entre balises, grâce au bouton
Sérieux...
Bonjour, Désolé effectivement j'ai oublié les Balises;
Je vous remet le code comme il ce doit;
Dim Ws As Worksheet
Dim CWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xRStr = "Oui" ' Mot a rechercher
Set CWs = ActiveWorkbook.Worksheets("Menu") ' Page de déstination
xC = 11
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name <> CWs Then
Set xRg = Ws.Range("K3:K50") ' recherche mot dans la colonne
Set xRg = Intersect(xRg, Ws.UsedRange)
For Each xRRg In xRg
If xRRg.Value = xRStr Then
xRRg.EntireRow.Copy ' copie ligne correspondante au mot
CWs.Cells(xC, 5).PasteSpecial xlPasteValuesAndNumberFormats
xC = xC + 1
End If
Next xRRg
End If
Next Ws
Application.DisplayAlerts = TrueJ'ai un tableau de bord ou j'aimerai affichez des informations qui se trouve sur différentes feuilles du classeur, je recherche un mot dans la colonne K de toute les feuilles et si le mot est trouvé, il me copie la ligne entière et me la retransmet sur la feuille "menu"
La macro marche bien, elle me colle les informations en A11
CWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormatsmais je n'arrive pas a lui faire coller ces informations en Colonne E11, pas de code erreur juste rien
Avez vous une idée de comment faire?
Bonjour,
Pourquoi ne pas rendre le fichier anonyme en enlevant ce qui ne doit pas être rendu public et le proposer ici avec le code vba ?
P.
Je vous joins un fichier test;
Ce que je souhaite c'est avoir le même format de copie avec la recherche par mot clef qu'avec la macro Pommier, si quelqu'un à une solution, je suis preneur