Aide Excel

Forum d'aide et d'entraide sur Excel : cours, astuces, tutoriaux...
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 macro ctrl+f zone délimitée

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
oob2
Membre


Nombre de messages : 1
Date d'inscription : 28/01/2010

MessageSujet: macro ctrl+f zone délimitée   Jeu 28 Jan à 19:42

Bonjour,

Je souhaite faire une macro qui ferai un ctrl+f mais ceci sur une zone délimité, j'ai tenté un petit bout de code que je vais vous joindre mais il ne fonctionne pas, le début de la recherche se fait bien comme je veux mais je n'arrive pas à lui indiquer une fin donc le ctrl+f va au bout de la feuille

Voila le code utilisé

Sub essai5()
'
' essai5 Macro
'
Dim J As Long
Dim K As Long
toto = InputBox("ou ?", "Canal")
'Range("A3").Select
J = 1
K = 13
Cells.Find(What:=Cells(4, "K").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Application.CutCopyMode = False
Selection.Copy
Cells(6, K).Select
ActiveSheet.Paste
Cells(3, J).Select
Application.CutCopyMode = False
Do While J < 8

MsgBox toto
Cells.FindNext(After:=ActiveCell).Activate
Selection.Copy
Cells(6, K).Select
ActiveSheet.Paste
Cells(3, J).Select
Application.CutCopyMode = False
J = J + 1
Loop
End Sub


Merci de votre aide Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
macro ctrl+f zone délimitée
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» roll-over, zone réactive, image et son
» Zone Alarm n'est plus compatible avec firefox
» [Résolu] Zone de notifications
» Macro sons/autorail en mode horaire
» IMPOSSIBLE DE FAIRE UNE MAJ FIREWALL ZONE ALARME [RESOLU]

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Aide Excel :: Entraide & apprentissage :: A l'aide...-
Sauter vers: