VBA rechercher un mot,copier coller plage...
Fermé
swell004
Messages postés
2
Date d'inscription
samedi 29 août 2009
Statut
Membre
Dernière intervention
30 août 2009
-
29 août 2009 à 13:12
barnaby - 31 août 2009 à 10:02
barnaby - 31 août 2009 à 10:02
A voir également:
- VBA rechercher un mot,copier coller plage...
- Rechercher ou entrer l'adresse - Guide
- Piratage facebook changer mot de passe - Guide
- Adresse IP locale : comment la trouver facilement - Guide
- Copier coller pdf - Guide
- Mettre un mot de passe sur un dossier - Guide
1 réponse
swell004
Messages postés
2
Date d'inscription
samedi 29 août 2009
Statut
Membre
Dernière intervention
30 août 2009
30 août 2009 à 22:37
30 août 2009 à 22:37
j ai fait ca pour l instant :
Sub test()
Dim mot As String
Dim i, k As Integer
Dim montab(10) As Variant
For i = 1 To 15
mot = Worksheets("Sheet1").Range("A" & i & ":Z" & i).Value ' la ca bug
If mot = "portfolio" Then
For k = 1 To 10
montab(k) = Range("A" & i + k & ":Z" & i + k + 5)
Next
End If
Next
For i = 2 To 10
Worksheets("Sheet2").Range("A" & i) = montab(i)
Next
je ne veux plus me contenter de rechercher le "portfolio" ds la ligne 8 mais dans toute la feuille et ca me met erreur 13 si vous pouviez m aider! :(
End Sub
Sub test()
Dim mot As String
Dim i, k As Integer
Dim montab(10) As Variant
For i = 1 To 15
mot = Worksheets("Sheet1").Range("A" & i & ":Z" & i).Value ' la ca bug
If mot = "portfolio" Then
For k = 1 To 10
montab(k) = Range("A" & i + k & ":Z" & i + k + 5)
Next
End If
Next
For i = 2 To 10
Worksheets("Sheet2").Range("A" & i) = montab(i)
Next
je ne veux plus me contenter de rechercher le "portfolio" ds la ligne 8 mais dans toute la feuille et ca me met erreur 13 si vous pouviez m aider! :(
End Sub
31 août 2009 à 10:02
Beaucoup trop compliqué ton code utilise la méthode de recherche .find
set f =sheets("Sheet1").Range("A:Z").find(what:="portfolio")
if not f is nothing then
first = f.address
do
ici tes instructions
set f =sheets("Sheet1").Range("A:Z").findnext(f)
loop while not f Is Nothing And f.Address <> firstAddress
end if
Bonne continuation