Discussion :

[Guismo33]

Bonjour à tous,

Voici ma VBA à modifier, car là je sèche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Copier() 
Dim source As Workbook, dest As Workbook, n%, cellule As Range 
On Error Resume Next 
Set source = Workbooks("Recupe_Resultat.xlsm") 'à adapter 
Set dest = Workbooks("model_prono.xlsm") 'à adapter 
If Err Then MsgBox "Les 2 fichiers 'Recupe' et 'model' doivent être ouverts...": Exit Sub 
On Error GoTo 0 
If source.Worksheets.Count <> dest.Worksheets.Count Then MsgBox "Le nombre des feuilles de calcul n'est pas le même !", 48: Exit Sub 
 
For n = 1 To source.Worksheets.Count 
    For Each cellule In ActiveSheet.Range("a:a") 
        If cellule.Value = "*Jeu*" Then 
            source.Worksheets(n).Range(cellule & ":D62").Copy dest.Worksheets(n).Range("Ay43") 
        End If 
 
    Next 
    'End If 
Next 
 
End Sub

je récupère des information web sur 30 feuilles et je vais les coller dans un autre classeur.
le soucis c'est que les informations que je recherche ne sont pas toujours dans les même cellules
donc je voudrais à partir d'un mot pour le début et un autre pour la fin (ces mots sont toujours les mêmes)
à partir du mot "Jeu Simple" et "2 sur 4" copier les 3 colonnes (a,b,c) pour les coller dans l'autre classeur.

merci à vous


bien à vous

[fraflt69]

Bonjour

Pour rechercher les adresses (ligne, colonne) des cellules contenant des mots, regarder ici:

https://docs.microsoft.com/fr-fr/off...cel.range.find

[Guismo33]

oui merci cela je l'avait bien compris , mais si je fait appel a un forum c que je suis perdu

[Guismo33]

Bonjour

Pour rechercher les adresses (ligne, colonne) des cellules contenant des mots, regarder ici:

https://docs.microsoft.com/fr-fr/off...cel.range.find

oui merci , si je fait appel au forum c que je suis perdu .

[Menhir]

For n = 1 To source.Worksheets.Count
For Each cellule In ActiveSheet.Range("a:a")

Ton For To ne va pas changer la feuille active.
De plus, le For Each va scruter toutes les cellules de la colonne A, y compris celles qui ne sont pas utilisées. Il va donc en scruter environ 1 million de trop.

Pour ces deux raisons, il serait plus propre d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim WS As Worksheet
 
For Each WS In Worksheets 
    For Each cellule In Intersec(WS.Columns(1), WS.UsedRange)

If cellule.Value = "*Jeu*" Then

Si les * sont utilisés pour caractères génériques, ça ne fonctionnera pas avec un simple =.
Il serait préférable d'utiliser la fonction InStr() > 0 pour faire ce type de test.
https://docs.microsoft.com/fr-fr/off...instr-function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

source.Worksheets(n).Range(cellule & ":D62")

Il serait plus propre d'utiliser Resize pour définir cette référence.
Je suis très étonné de ton "62". Il est rare qu'on utilise une référence ligne fixe quand on doit copier une zone après une recherche sur les lignes.
Mais comme ton explication ne permet pas de comprendre ce que tu souhaites faire réellement, difficile de savoir s'il faut le corriger et comment.

[Guismo33]

Bonjour

Pour rechercher les adresses (ligne, colonne) des cellules contenant des mots, regarder ici:

https://docs.microsoft.com/fr-fr/off...cel.range.find

Ton For To ne va pas changer la feuille active.
De plus, le For Each va scruter toutes les cellules de la colonne A, y compris celles qui ne sont pas utilisées. Il va donc en scruter environ 1 million de trop.

Pour ces deux raisons, il serait plus propre d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim WS As Worksheet
 
For Each WS In Worksheets 
    For Each cellule In Intersec(WS.Columns(1), WS.UsedRange)

Si les * sont utilisés pour caractères génériques, ça ne fonctionnera pas avec un simple =.
Il serait préférable d'utiliser la fonction InStr() > 0 pour faire ce type de test.
https://docs.microsoft.com/fr-fr/off...instr-function


Il serait plus propre d'utiliser Resize pour définir cette référence.
Je suis très étonné de ton "62". Il est rare qu'on utilise une référence ligne fixe quand on doit copier une zone après une recherche sur les lignes.
Mais comme ton explication ne permet pas de comprendre ce que tu souhaites faire réellement, difficile de savoir s'il faut le corriger et comment.

Bonjour,

merci je vais essayer de changer la donne , je reviens vers vous.
merci encore


bien à vous