Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Macro "Recherche" sur zone définie !

 

1 utilisateur anonyme
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Macro "Recherche" sur zone définie !

RÉSOLU
Prévenir les modérateurs en cas d'abus 
nanard6262
nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 03/12/2016 à 19:53:27  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bsr ts

Dans un petit pgm fait sous Excel 2007, il y a une toute simple macro:

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub FenêtreRecherche()
  2. 'Macro 11/09/2013
  3.  Application.SendKeys ("^f")
  4. End Sub

(en fait CTRL + F)

A partir de cette macro quelle ligne faut il ajouter pour que la recherche qu'une partie de la feuille seulement et non pas toute la feuille.

Par exemple, que la recherche ne puisse concerner que la partie déterminée: AL11 : AZ11 : AL120 : AZ120 .

Et d'abord est-ce possible et simple sans faire une usine à gaz ???

Merci de m'éclaircir

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 03/12/2016 à 21:45:23
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 04/12/2016 à 10:43:33  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bjr nanard,

voici un exemple de recherche à l'aide d'une macro
http://www.cjoint.com/c/FLejPY​16OpW

mais c'est plus simple d'utiliser le CTRL+F

 :hello:
Message cité 1 fois
Message édité par willyplaisir le 04/12/2016 à 10:44:13

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 04/12/2016 à 11:38:10  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

willyplaisir a écrit :

Bjr nanard,

voici un exemple de recherche à l'aide d'une macro
http://www.cjoint.com/c/FLejPY​16OpW

mais c'est plus simple d'utiliser le CTRL+F

 :hello:
Afficher plus
Afficher moins


Salut willy, tu ne me croiras pas mais j'aurais parié une réponse de ta part Excel l et tilt! willy :lol: :lol:
Mais comme d'habitude, pas déçu, c'est exactement ce que je cherchais.
PARFAIT :hot:

En effet, la recherche ne concerne qu'une partie d'une feuille très largement occupée avec des doublons mais dont la recherche ne peut intéresser qu'une partie d'une feuille du programme
Enfin, bref c'est parfait Merci et bon dimanche...

nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 04/12/2016 à 12:03:42  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
RE

Je viens d'inclure ton code dans mon pgm mais il ne trouve pas de mot: exemple "test" dans le champ de recherche. Dommage mais pas grave, willy je vais abandonner cette idée, une mauvaise idée.
http://www.cjoint.com/c/FLek7d​WzvdK
Bon dim'


PS J'ai essayé sur ta feuille modèle et même pb, pas grave
Message édité par nanard6262 le 04/12/2016 à 15:36:27
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 04/12/2016 à 15:51:13  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
re,

j'ai corrigé le tir

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub recherche()
  2. 'willy
  3.  
  4. ' mettre ci-dessous tes cellules concernées de ta feuille active
  5. Set mazone = ActiveSheet.Range("AL11 : AZ11 , AL120 : AZ120")
  6.  
  7. mot = InputBox("Saisir le texte recherché", "Recherche dans " & mazone.Address)
  8.  
  9. With mazone
  10. Set c = .Find(mot, LookIn:=xlValues)
  11. If c Is Nothing Then
  12. MsgBox "pas trouvé le texte cherché", vbCritical, "Dans la zone choisie " & mazone.Address
  13. Else
  14. c.Select
  15. End If
  16. End With
  17.  
  18.  
  19. End Sub


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 04/12/2016 à 21:32:06  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
RE RE

Non, même résultat willy, ne te tracasse pas pour cela...
(ici Excel 3007)
Bonne nuit

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 05/12/2016 à 10:19:36  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bjr,

pas réveillé nanard avec la version 3007.

sous Excel 2007, la macro fonctionne bien pour trouver la 1ère occurence
http://www.cjoint.com/c/FLfjqJ​1TLdW

 :hello:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 05/12/2016 à 11:18:39  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bjr willy effectivement 2007 ....

Ta macro fonctionne parfaitement pour une recherche sur les lignes:
AL11 à AL120 et AZ11 à AZ120 mais pas dans les cellules entre ces 2 limites.
En fait la recherche devrait couvrir la surface AL11-AL120-AZ11-AZ120
Surement une modif. à effectuer. J'ai essayé mais mes connaissances en VBA sont proches de 0...
J'ai dû mal m'expliquer aussi !!!
A+


re
Sans doute cette ligne à modifier:
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Set mazone = ActiveSheet.Range("AL11 : AZ11 , AL120 : AZ120")

J'ai fait différentes combinaisons sans succès ....

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 05/12/2016 à 20:21:26
(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 05/12/2016 à 18:39:43  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bsr,

mettre tout simplement
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Set mazone = ActiveSheet.Range("AL11 : AZ120")


je pensais que tu voulais 2 zones .

 :hello:

Edit par Tintin10 : rajout des balises de code
Message cité 1 fois
Message édité par Tintin10 le 05/12/2016 à 20:21:49

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
nanard6262
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 05/12/2016 à 19:55:28  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

willyplaisir a écrit :

bsr,

mettre tout simplement
Set mazone = ActiveSheet.Range("AL11 : AZ120" )

je pensais que tu voulais 2 zones .

 :hello:

Afficher plus
Afficher moins

Bsr willy

Tout fonctionne PARFAITEMENT .... :hot: :hot:

Merci et bonne soirée

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 05/12/2016 à 20:03:42  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
content pour toi, mettre Résolu
 :hello:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
Retrouver recherche normale Faire une macro Excel "remplacer"
exel macro d'enregistrement sur disque"D" besoin d'aide super macro
je cherche une macro exixtante pour excel 2016 Lire disque Blu-ray zone A sur pc
Excel. passer d'une cellule définie à une autre....  
Plus de sujets relatifs à : Macro "Recherche" sur zone définie !

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Excel 2010 Impossible de mettre symbole monétaire 13
Comment ouvrir Un Windows Office protégé avec LibreOffice 5.2 ? 1
Images Outlook 2007 et windows 8.1 3
Problème d'Affichage de nombre en publipostage 3
Office PME 2003 répète le contrat de licence sous Windows 10 1